FiltraPolizas, RegPoliza unificadas y RegPrePoliza validaciones de naturaleza de cargo abono.

2022-02-18 12:33:48 -07:00
parent 1a7efd89d9
commit bc9ff8d722
14 changed files with 8636 additions and 5332 deletions
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6081,7 +6081,7 @@ Public Class ClsContabilidad
        Return Retorno
    End Function

-    Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
+    Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
                                           Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
                                           Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
@@ -6601,6 +6601,34 @@ Public Class ClsContabilidad

 #End Region

+
+
+    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Respuesta As Boolean = False
+
+        DataAdapter("PA_Conta_FiltraPolizasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@Periodo", SqlDbType.Int).Value = Periodo
+            .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Respuesta = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener  las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Respuesta
+
+    End Function
+
+
 #Region "IDisposable Support"
    ' IDisposable
    Protected Overridable Sub Dispose(disposing As Boolean)
--- a/App_Code/ClsSisEmpresas.vb
+++ b/App_Code/ClsSisEmpresas.vb
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -431,10 +431,10 @@ Partial Class PopUpVerFactura


        Dim bcode As New BarcodeLib.Barcode()
-        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
+        ' Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
        Dim barcodebyte As Byte()
        Using ms = New MemoryStream()
-            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+            ' img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
            barcodebyte = ms.ToArray()
        End Using
        rowqr("ImagenByte") = barcodebyte
--- a/Contabilidad/FiltraPolizas.aspx
+++ b/Contabilidad/FiltraPolizas.aspx
@@ -157,7 +157,9 @@
                        </asp:TemplateField>
                        <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left">
                            <ItemTemplate>
-                                <asp:HyperLink ID="Hpl" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("Id", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>' runat="server" Text='<%# Eval("Folio")%>'></asp:HyperLink>
+                                
+                                <asp:HyperLink ID="Hpl" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("Id", " ")%>' runat="server" Text='<%# Eval("Folio")%>'></asp:HyperLink>
+
                            </ItemTemplate>
                            <ItemStyle Width="50px"></ItemStyle>
                        </asp:TemplateField>
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -15,6 +15,7 @@ Partial Class Contabilidad_FiltraPolizas
            ViewState("DtDatos") = value
        End Set
    End Property
+
    Public Property Tick As String
        Get
            Return CType(ViewState("Tick"), String)
@@ -23,20 +24,47 @@ Partial Class Contabilidad_FiltraPolizas
            ViewState("Tick") = value
        End Set
    End Property
+
+
+    Public Property ContabilidadSIG As Boolean
+        Get
+            If ViewState("ContabilidadSIG") Is Nothing Then
+                ViewState("ContabilidadSIG") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ContabilidadSIG") = value
+        End Set
+    End Property
+
 #End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+
+
        If Not Page.IsPostBack Then
+
+
+            ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
+
+
            ViewState("Orden") = ""
            DdlPeriodo.SelectedValue = Now.Month.ToString
            TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
            TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
-            If UsuarioActual.Empresa.UsaContabilidad Then
+
+            If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
+
                CargaSegmentoNeg()
                CargaEjercicios()
-                CargaDatos()
+                'CargaDatos()
                CargaGvBitacora()
+
            Else
                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
                BtnConsultar.Enabled = False
@@ -55,50 +83,110 @@ Partial Class Contabilidad_FiltraPolizas
        End If
    End Sub
    Public Sub CargaDatos()
+
        Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
        Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)

-        If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
-            DtDatos = ObjConta.DtResultados
-            Gv.DataSource = ObjConta.DtResultados
-            'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
-            '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
-            '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
-            'Else
-            '    ViewState("DTPolizas") = ObjConta.DtResultados
-            '    DtDatos = ObjConta.DtResultados
-            'End If
+
+
+
+        If ContabilidadSIG Then
+
+            Dim ObjConta As New ClsContabilidad
+
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+                Gv.DataSource = ObjConta.DtResultados
+            Else
+                Gv.DataSource = Nothing
+            End If
+
+            ObjConta.Dispose()
+
+
+        Else
+
+            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+                Gv.DataSource = ObjConta.DtResultados
+                'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
+                '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+                '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+                'Else
+                '    ViewState("DTPolizas") = ObjConta.DtResultados
+                '    DtDatos = ObjConta.DtResultados
+                'End If
+            Else
+                Gv.DataSource = Nothing
+            End If
+
+            ObjConta.Dispose()

        End If

-        Gv.DataBind()

-        ObjConta.Dispose()
+
+        Gv.DataBind()
        UpDatos.Update()
    End Sub

    Private Sub CargaSegmentoNeg()
-        Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
-            DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
-            DdlSegmentoNeg.DataBind()
+
+        DdlSegmentoNeg.Items.Clear()
+
+        If ContabilidadSIG Then
+            DdlSegmentoNeg.DataValueField = "CveSubProyecto"
+            DdlSegmentoNeg.DataTextField = "SubProyecto"
+            DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        Else
+            DdlSegmentoNeg.DataValueField = "Id"
+            DdlSegmentoNeg.DataTextField = "Nombre"
+
+            Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
+                DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
+            End If
+            ObjContPAQ.Dispose()
+
        End If
-        ObjContPAQ.Dispose()
+
+
+        DdlSegmentoNeg.DataBind()
        DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
+
    End Sub

    Private Sub CargaEjercicios()
-        Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
-        If ClsConta.GetEjercicios() Then
-            DdlEjercicio.DataSource = ClsConta.DtResultados
-        Else
-            DdlEjercicio.DataSource = Nothing
-        End If
-        ClsConta.Dispose()
-        DdlEjercicio.DataBind()

+        DdlEjercicio.Items.Clear()
+
+        If ContabilidadSIG Then
+
+            Dim ObjConta As New ClsContabilidad
+
+            If ObjConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+                DdlEjercicio.DataSource = ObjConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+            ObjConta.Dispose()
+
+        Else
+            Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ClsConta.GetEjercicios() Then
+                DdlEjercicio.DataSource = ClsConta.DtResultados
+            Else
+                DdlEjercicio.DataSource = Nothing
+            End If
+            ClsConta.Dispose()
+
+        End If
+
+
+        DdlEjercicio.DataBind()
        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
+
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -526,12 +614,18 @@ Partial Class Contabilidad_FiltraPolizas
    End Function

    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound
+
        If e.Row.RowType = DataControlRowType.DataRow Then
-            'If e.Row.DataKey("Comprobante").ToString <> "" AndAlso e.Row.DataKey("Comprobante").ToString IsNot Nothing Then
-            '    e.Row.FCCheckBox("ChkPoliza").Enabled = True
-            'Else
-            '    e.Row.FCCheckBox("ChkPoliza").ToolTip = "No se tiene cargado comprobante de pago"
-            'End If
+
+            If ContabilidadSIG Then
+
+                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
+                e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
+
+            End If
+
+
+
        End If
    End Sub

--- a/Contabilidad/PolizasImpresion.aspx
+++ b/Contabilidad/PolizasImpresion.aspx
@@ -73,7 +73,9 @@
                    <div class="col-md-2 ">
                        <asp:DropDownList ID="DdlUsuarioRegistro" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
                    </div>
-                    <label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">Segmento de Neg.:</label>
+                    <asp:Label runat="server" ID="LblSegmentoNegocio" class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">
+                        Segmento de Neg.:
+                    </asp:Label>
                    <div class="col-md-2 ">
                        <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
                    </div>
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -10,19 +10,173 @@ Partial Class Contabilidad_PolizasImpresion
    Inherits ClsPaginas


+
+    Public Property ContabilidadSIG As Boolean
+        Get
+            If ViewState("ContabilidadSIG") Is Nothing Then
+                ViewState("ContabilidadSIG") = False
+            End If
+
+            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("ContabilidadSIG") = value
+        End Set
+    End Property
+
+
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
+
        If Not IsPostBack Then
+
+            ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
+
            TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
            TxtFechaFin.Text = Now.ToShortDateString

            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
            DdlUsuarioRegistro.DataBind()
-            cargaddlpolizas()
-            CargaSegmentoNeg()
-            cargaCuentas()
+
+
+            If ContabilidadSIG Then
+                cargaddlpolizasSIG()
+                CargaSubProyectosSIG()
+                CargaCuentasSIG()
+
+                CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSegmentoNegocio)
+                LblSegmentoNegocio.Attributes.Add("title", LblSegmentoNegocio.Text)
+
+            Else
+                cargaddlpolizas()
+                CargaSegmentoNeg()
+                CargaCuentas()
+            End If
+
+
+
        End If
+
    End Sub
    Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
+
+        If ContabilidadSIG Then
+            ConsultaSIIG()
+        Else
+            ConsultaCONTPAQi()
+        End If
+
+    End Sub
+
+
+
+#Region "SIIG"
+
+    Private Sub ConsultaSIIG()
+
+        Dim foli As Integer = -1
+        Dim folf As Integer = -1
+        If Not FolioInicio.Text = "" Then
+            foli = FolioInicio.Text.ToEntero()
+        End If
+        If Not FolioFin.Text = "" Then
+            folf = FolioFin.Text.ToEntero()
+        End If
+
+        Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"
+
+        If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
+            ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
+        End If
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
+                                           FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero,
+                                           CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
+                                           CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
+            If ObjConta.DtResultados.Rows.Count < 10000 Then
+
+                If ObjConta.DtResultados.Rows.Count > 0 Then
+                    Dim dr As DataRow
+                    dr = ObjConta.DtResultados.Rows(0)
+                    Dim params As New List(Of ReportParameter)
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+                    params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
+                    params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
+                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+                    'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
+                    'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
+                    params.Add(New ReportParameter("Numero", dr("Folio").ToString))
+                    params.Add(New ReportParameter("Moneda", ""))
+                    params.Add(New ReportParameter("CodigoPostal", ""))
+
+                    If UsuarioActual.CveEmpresa = 119 Then
+                        params.Add(New ReportParameter("UsuarioRegistro", dr("NombreUsuario").ToString))
+                    End If
+
+                    ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params)
+
+                Else
+                    Alert("Los Filtros Actuales no contienen datos")
+                End If
+
+            Else
+                Alert("Los Filtros Actuales contienen muchos datos")
+            End If
+        End If
+        ObjConta.Dispose()
+
+    End Sub
+
+
+
+    Private Sub cargaddlpolizasSIG()
+        Dim objcont As New ClsContabilidad
+        If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
+            ddlTipoPoliza.DataSource = objcont.DtResultados
+            ddlTipoPoliza.DataBind()
+            ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        End If
+        objcont.Dispose()
+        DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaSubProyectosSIG()
+
+        DdlSegmentoNeg.DataValueField = "CveSubProyecto"
+        DdlSegmentoNeg.DataTextField = "SubProyecto"
+
+        DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSegmentoNeg.DataBind()
+        DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
+    End Sub
+
+    Private Sub CargaCuentasSIG()
+
+        DdlCuenta.DataValueField = "CveCuenta"
+        DdlCuenta.DataTextField = "CtaCodigo"
+
+
+
+        Dim objconta As New ClsContabilidad
+        If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuenta.DataSource = objconta.DtResultados
+        End If
+        objconta.Dispose()
+        DdlCuenta.DataBind()
+
+        DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+
+
+#End Region
+
+#Region "CONTPAQi"
+    Private Sub ConsultaCONTPAQi()
        Dim foli As Integer = -1
        Dim folf As Integer = -1
        If Not FolioInicio.Text = "" Then
@@ -73,8 +227,8 @@ Partial Class Contabilidad_PolizasImpresion
            End If
        End If
        objcont.Dispose()
-
    End Sub
+
    Private Sub cargaddlpolizas()
        Dim objcont As New ClsContPAQi(UsuarioActual.Empresa)
        If objcont.GetTiposPoliza(-1, "-1") Then
@@ -119,5 +273,10 @@ Partial Class Contabilidad_PolizasImpresion
            DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
        End If
    End Sub
+#End Region
+
+
+
+

 End Class
--- a/Contabilidad/RegPoliza.aspx
+++ b/Contabilidad/RegPoliza.aspx
@@ -56,24 +56,29 @@
    Pólizas
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <%--<asp:LinkButton ID="LBImprimir" OnClick="LBImprimir_Click" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>--%>
-        <asp:HyperLink ID="HLImprimir" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-print" style="color: #686868;"></i> Imprimir</asp:HyperLink>
-    </li>
-    <li>
-        <asp:LinkButton ID="LBDevIVA" OnClick="LBDevIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Agregar movtos de IVA</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="LBCauIVA" OnClick="LBCauIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Causaciones IVA</asp:LinkButton>
-    </li>

-    <li>
-        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Movimientos</asp:HyperLink>
-    </li>
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >     
+        <ContentTemplate>
+            <li>
+                <asp:HyperLink ID="HLImprimir" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-print" style="color: #686868;"></i> Imprimir</asp:HyperLink>
+            </li>
+            <li>
+                <asp:LinkButton ID="LBDevIVA" OnClick="LBDevIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Agregar movtos de IVA</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LBCauIVA" OnClick="LBCauIVA_Click" runat="server" Style="color: #686868;"><i class="fa fa-plus-circle" style="color: #686868;"></i> Causaciones IVA</asp:LinkButton>
+            </li>
+
+            <li>
+                <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Movimientos</asp:HyperLink>
+            </li>
+        </ContentTemplate>
+   
+    </asp:UpdatePanel>
+
+
+

-    <li>
-        <asp:Button ID="Button1" runat="server" Text="Button" Visible="False" />
-    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">

--- a/Contabilidad/RegPoliza.aspx.vb
+++ b/Contabilidad/RegPoliza.aspx.vb
@@ -937,7 +937,7 @@ Partial Class RegPoliza


                Dim dr As DataRow = DT.Rows(0)
-                HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}"))
+                HLImprimir.PostBackUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("IdPoliza").ToString.ToEntero}"))
                HLImprimir.Visible = True

                TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString
@@ -1012,6 +1012,7 @@ Partial Class RegPoliza
        CargaGrid()
        upTitulos.Update()
        upDatos.Update()
+        UpAcciones.Update()

        If DT IsNot Nothing Then DT.Dispose()
    End Sub
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2390,6 +2390,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            ObjConta.IniciaTransacSQL()
            Try

+                Dim ContadorRegistros As Integer = 2

                For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows

@@ -2406,6 +2407,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                    Dim ObjConta2 As New ClsContabilidad
                    Dim FolioExcel As Long = -1
                    Dim TipoMov As Integer = -1
+                    Dim TipoNaturalesa As String = ""
                    Dim CveBancoCuenta As Integer = -1
                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
                        CveCuentaExcel = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
@@ -2438,6 +2440,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                        End If

                        TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+                        TipoNaturalesa = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+
                        FolioExcel = Row("Folio").ToString.ToEntero
                        CveTipoTransaccion = TipoMov
                        CveCuenta = CveBancoCuenta
@@ -2451,13 +2455,29 @@ Partial Class ContabilidadC_RegPrePolizaS
                        ImporteDocumento = IIf(Row("Abono").ToString.ToDecimal > 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal)
                        Observaciones = Row("Referencia").ToString
                        Beneficiario = Row("Concepto").ToString
+
                        If Not TipoMov > 0 Then
                            Alert(String.Format("El Tipo de Transferencia no fue encontrado: <br/> <b>Tipo Transferencia: <b/> {0} <br/> <b>Folio: <b/> {1} <br/> <b>Importe: <b/> {2} ", Row("TipoTransferencia").ToString(), FolioExcel, ImporteDocumento), TipoMensaje.MsgAdvertencia)
                            Exit Sub
                        End If

+
+                        If Row("Abono").ToString.ToDecimal > 0 And TipoNaturalesa = "Ing" Then
+                            Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")}  (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
+                            Exit Sub
+                        End If
+
+
+
                    End If

+
+                    If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString = "" Then
+                        Alert($" El registro {ContadorRegistros}  es movimiento bancario y no se especifica el tipo de  transferencia , importe: {ImporteDocumento.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+
+
                    'sino viene  el cveconcepto, busca por le nombre del concepto
                    If CveConceptoContable = 0 Then
                        Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
@@ -2515,6 +2535,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                        DtMovimientos.Rows.Add(dr)
                        DtMovimientos.AcceptChanges()
                    End If
+
+                    ContadorRegistros = ContadorRegistros + 1
+
                Next

                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
--- a/Contabilidad2/PolizasImpresion.aspx.vb
+++ b/Contabilidad2/PolizasImpresion.aspx.vb
@@ -39,7 +39,7 @@ Partial Class Contabilidad2_PolizasImpresion
        End If

        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
+        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
                                           FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
                                           CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
                                           CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
--- a/Contratos/ContratoObraAutorizacion.aspx.vb
+++ b/Contratos/ContratoObraAutorizacion.aspx.vb
@@ -221,7 +221,7 @@ Partial Class Contratos_ContratoObraAutorizacion

        If DTEstimaciones.Rows.Count > 0 Then
            GvEstimaciones.DataSource = DTEstimaciones
-            ' BtnGuardarEstimacion.Visible = True
+            'BtnGuardarEstimacion.Visible = True
            BtnAutoriza.Visible = True
        Else
            GvEstimaciones.DataSource = Nothing
--- a/Empresas/1/Formatos/Factura.rdlc
+++ b/Empresas/1/Formatos/Factura.rdlc
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1558,21 +1558,21 @@ Partial Class Ventas_ClientesAbonar
                                Dim CveConceptoLiquidacion As Integer = 51

                                If ImporteLiquidacion1 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion1, "Liquidacion Col 1", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion1 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol1) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion1, "Liquidacion Col 1", CveConceptoLiquidacion, "Liquidacion Col 1", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion1 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol1, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If
                                End If

                                If ImporteLiquidacion2 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion2, "Liquidacion Col 2", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion2 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol2) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion2, "Liquidacion Col 2", CveConceptoLiquidacion, "Liquidacion Col 2", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion2 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol2, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If
                                End If

                                If ImporteLiquidacion3 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion3, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 3", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion3 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol3) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion3, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 3", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion3 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol3, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If
@@ -1580,7 +1580,7 @@ Partial Class Ventas_ClientesAbonar


                                If ImporteLiquidacion4 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion4, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 4", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion4 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol4) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion4, "Liquidacion Col 4", CveConceptoLiquidacion, "Liquidacion Col 4", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion4 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol4, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If
@@ -1589,21 +1589,21 @@ Partial Class Ventas_ClientesAbonar


                                If ImporteLiquidacion5 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion5, "Liquidacion Col 5", CveConceptoLiquidacion, "Liquidacion Col 5", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion5 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol5) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion5, "Liquidacion Col 5", CveConceptoLiquidacion, "Liquidacion Col 5", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion5 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol5, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If
                                End If

                                If ImporteLiquidacion6 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion6, "Liquidacion Col 6", CveConceptoLiquidacion, "Liquidacion Col 6", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion6 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol6) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion6, "Liquidacion Col 6", CveConceptoLiquidacion, "Liquidacion Col 6", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion6 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol6, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If
                                End If

                                If ImporteLiquidacion7 <> 0 Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion7, "Liquidacion Col 7", CveConceptoLiquidacion, "Liquidacion Col 7", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion7 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol7) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiquidacion7, "Liquidacion Col 7", CveConceptoLiquidacion, "Liquidacion Col 7", Now, -1, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiquidacion7 * tipoCambioPago, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol7, ImporteME:=If(CveMoneda > 1, ImporteLiquidacion1, 0)) Then
                                        MsgError = "No se pudo insertar la póliza"
                                        Exit For
                                    End If