From 708f3457e319957d51c9184fbb5524e2279674b1 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 6 Mar 2020 19:31:15 -0700
Subject: [PATCH 1/5] terminando el reporte de metas vendedores

---
 Ventas/MetasVendedores.aspx    | 73 ++++++++++++++++++++++++++++++++++
 Ventas/MetasVendedores.aspx.vb | 30 ++++++++++++++
 2 files changed, 103 insertions(+)

diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx
index 6fe34dd38..61dcbddc1 100644
--- a/Ventas/MetasVendedores.aspx
+++ b/Ventas/MetasVendedores.aspx
@@ -56,6 +56,79 @@
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpFiltros">
+        <ContentTemplate>
+            <div class="portlet solid grey-cascade portlet-filter" style="">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 122px; position: relative;">
+                    <div class="tools">
+                        <asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultar" Text="Consultar" /></td>
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros caption magindate">
+                        <div class="row">
+
+                            
+
+                            <div class="col-md-1 truncate">Fecha del mes: </div>
+                            <div class="col-md-2 col-sm-2">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaMes" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaMes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaMes" PopupButtonID="ImgFechaMes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                            </div>
+
+                            <div class="col-md-1 truncate text-right">Sucursal: </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" CssClass="form-control input-sm select2me" Width="50%" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <div class="row" style="margin-top: 10px">
+                            <label class="col-md-1 ">Marca: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 text-right">Vendedor: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlVendedorFiltro" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 text-right">Categoria: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <label class="col-md-1 text-right">Clasificaciones: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 text-right">Sub Clasificaciones: </label>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlClasificacion2" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            </div>
+                        </div>
+
+                    </div>
+                </div>
+                <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                    <div class="row">
+                    </div>
+                    <div class="row">
+                    </div>
+                    <div id="DivFamiliaSubFamilia" class="row" runat="server" visible="false">
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
     <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index 9a5ca2ede..b630cf294 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -8,8 +8,38 @@ Partial Class MetasVendedores
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaDatosModal()
+            CargaDatosFiltros()
         End If
     End Sub
+    Private Sub CargaDatosFiltros()
+        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoFiltro.DataBind()
+        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarcaFiltro.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarcaFiltro.DataBind()
+        DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedorFiltro.DataBind()
+        DdlVendedorFiltro.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+        DdlCategoria.DataBind()
+        DdlCategoria.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
     Private Sub CargaDatosModal()
         DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)

From 10e88ccca20780f746287238bac71bc52d22fe3b Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 6 Mar 2020 22:08:40 -0700
Subject: [PATCH 2/5] PA para el reporte de metas vendedores

---
 App_Code/ClsVentas.vb | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 4519bd0b3..1afc4f4b2 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4305,6 +4305,28 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
+                                          CveClasificacion2 As Integer, CveMarca As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaMesActual", SqlDbType.DateTime).Value = FechaMesActual
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de metas por vendedores", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean

From 8d1d4be53d224171d6c33af703a00cab987c9b2a Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 7 Mar 2020 00:29:12 -0700
Subject: [PATCH 3/5] reporte metas por vendedor

---
 App_Code/ClsVentas.vb          |  3 +-
 Ventas/MetasVendedores.aspx    | 45 ++++++++++++++++++++++---
 Ventas/MetasVendedores.aspx.vb | 61 ++++++++++++++++++++++++++++++++++
 3 files changed, 103 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1afc4f4b2..206ce0908 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4307,7 +4307,7 @@ Public Class ClsVentas
     End Function
 
     Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
-                                          CveClasificacion2 As Integer, CveMarca As Integer) As Boolean
+                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -4318,6 +4318,7 @@ Public Class ClsVentas
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx
index 61dcbddc1..28ae1f483 100644
--- a/Ventas/MetasVendedores.aspx
+++ b/Ventas/MetasVendedores.aspx
@@ -68,9 +68,7 @@
                     <div class="titlefiltros caption magindate">
                         <div class="row">
 
-                            
-
-                            <div class="col-md-1 truncate">Fecha del mes: </div>
+                            <div class="col-md-1 truncate text-right">Fecha del mes: </div>
                             <div class="col-md-2 col-sm-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
                                     <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -89,7 +87,7 @@
                             </div>
                         </div>
                         <div class="row" style="margin-top: 10px">
-                            <label class="col-md-1 ">Marca: </label>
+                            <label class="col-md-1 text-right">Marca: </label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me"></asp:DropDownList>
                             </div>
@@ -104,7 +102,7 @@
                                 <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
                             </div>
                         </div>
-                        <div class="row">
+                        <div class="row" style="margin-top: 10px">
                             <label class="col-md-1 text-right">Clasificaciones: </label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
@@ -129,6 +127,43 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <div id="dvCuerpo" style="width: 100%">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Titulo,Etiqueta,RealMes,VtaMesAA,RealAcumulado,RealMesPorcentaje"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="HlkGrupo" runat="server" Target="_blank" Text='<%# Eval("Titulo").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ventata Mes Año Anterior" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVtaMesAA" runat="server" Target="_blank" Text='<%# Eval("VtaMesAA").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Acumulado" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealAcumulado" runat="server" Target="_blank" Text='<%# Eval("RealAcumulado").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes Porcentaje" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMesPorcentaje" runat="server" Target="_blank" Text='<%# Eval("RealMesPorcentaje").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
     <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index b630cf294..543c8205d 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -4,14 +4,26 @@ Imports Microsoft.Reporting.WebForms
 
 Partial Class MetasVendedores
     Inherits ClsPaginas
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
 
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaDatosModal()
             CargaDatosFiltros()
+            CargarDatosReporte()
         End If
     End Sub
     Private Sub CargaDatosFiltros()
+        Dim dNow As Date = Now
+        TxtFechaMes.Text = dNow.ToString("dd/MM/yyyy")
+
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectoFiltro.DataBind()
         DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -55,6 +67,17 @@ Partial Class MetasVendedores
         DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
+    Private Sub CargarDatosReporte()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
     Private Sub ResetDatosSeleccionadosModal()
         DdlVendedores.SelectedValue = "-1"
         TxtFechaI.Text = ""
@@ -83,4 +106,42 @@ Partial Class MetasVendedores
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
         ResetDatosSeleccionadosModal()
     End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargarDatosReporte()
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DataKey("Etiqueta")
+                Case "Categoria"
+                    e.Row.CssClass = "Totales"
+                Case "Clasificacion"
+                    e.Row.CssClass = "SubTotales2"
+                Case "Clasificacion2"
+                    e.Row.CssClass = "SubTotales"
+                Case "Marca"
+            End Select
+        End If
+    End Sub
+
+    Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
+        params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
+
+        ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
+    End Sub
 End Class

From ab6ed4c03c1a58a06f1734af76d8942741081fbd Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 7 Mar 2020 11:11:50 -0700
Subject: [PATCH 4/5] row data bound para los campos null

---
 Ventas/MetasVendedores.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index 543c8205d..686c58107 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -121,8 +121,11 @@ Partial Class MetasVendedores
                     e.Row.CssClass = "SubTotales2"
                 Case "Clasificacion2"
                     e.Row.CssClass = "SubTotales"
-                Case "Marca"
             End Select
+
+            If e.Row.DataKey("Titulo") = "" Then
+                e.Row.Cells(0).Text = "OTRO"
+            End If
         End If
     End Sub
 

From ae972bee9c3b69823185910d40b09e0166a0ea81 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 7 Mar 2020 12:27:36 -0700
Subject: [PATCH 5/5] agregando porcentaje iva al registro de ventas

---
 General/SaldosIniciales.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 44105439a..205ca841b 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1378,6 +1378,7 @@ Partial Class General_SaldosIniciales
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
                     Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
                     Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
+                    Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString.ToDecimal, 0)
 
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
@@ -1431,7 +1432,7 @@ Partial Class General_SaldosIniciales
                             End If
                             CveVenta = ObjVentas.CveVenta
 
-                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, "Saldo Inicial", 0, 0, -1, 0) Then
+                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, -1, 0, PorcentajeIVA:=PorcentajeIVA) Then
                                 ErrorVentas = True
                                 Exit For
                             End If