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

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)

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

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>

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
+        If ContabilidadSIG Then
-            '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+
-            '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
+            Dim ObjConta As New ClsContabilidad
-            'Else
+
-            '    ViewState("DTPolizas") = ObjConta.DtResultados
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
-            '    DtDatos = ObjConta.DtResultados
+                DtDatos = ObjConta.DtResultados
-            'End If
+                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.Items.Clear()
-            DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
+
-            DdlSegmentoNeg.DataBind()
+        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
+            If ContabilidadSIG Then
-            'Else
+
-            '    e.Row.FCCheckBox("ChkPoliza").ToolTip = "No se tiene cargado comprobante de pago"
+                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
-            'End If
+                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
 

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>

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

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:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >     
-        <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>
+        <ContentTemplate>
-    </li>
+            <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">
 

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

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

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

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

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