manifistovtascitrus

App_Code/ClsCGame.vb

@@ -3518,7 +3518,7 @@ Public Class ClsCGame
             .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
             .Add("@VFechaInicio", SqlDbType.VarChar).Value = vFechaInicio
             .Add("@VFechaFin", SqlDbType.VarChar).Value = vFechaFin
-            .Add("@ErrorMostrarADS", SqlDbType.VarChar).Direction = ParameterDirection.Output
+            .Add("@ErrorMostrarADS", SqlDbType.VarChar, 500).Direction = ParameterDirection.Output
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -3529,6 +3529,28 @@ Public Class ClsCGame
         Return retorno
     End Function
 
+
+    Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, CveManifiesto As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_ManifiestoForVtaGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveManifiesto", SqlDbType.Int).Value = CveManifiesto
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener datos manifiesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los datos manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
     Public Function RepManifiesto_PSGet(cveManifiesto As Int32, cveEmpresa As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CGame_RepManifiesto_PSGet", CommandType.StoredProcedure)

Nomina/Aguinaldo.aspx

@@ -66,7 +66,7 @@
                                 <asp:DropDownList ID="ddltipoCalculo" runat="server" CssClass="select2me" Style="width: 100% !important;">
                                     <asp:ListItem Selected="True" Text="Método del Reglamento de la Ley del Impuesto Sobre la Renta (artículo 174)" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Método de la Ley del ISR" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="Mixto(ISR Menor)" Value="3"></asp:ListItem>
+                                    <%--<asp:ListItem Text="Mixto(ISR Menor)" Value="3"></asp:ListItem>--%>
                                 </asp:DropDownList>
                             </div>
                             <div class="col-md-3">

Nomina/Aguinaldo.aspx.cs

@@ -494,6 +494,13 @@ public partial class Nomina_Aguinaldo : ClsPaginas
                         else
                         {
 
+                            totalgravado = 0; 
+                                isrtotalgravado = 0;
+                                isrmensual = 0;
+                            lisr = 0;
+
+
+
                             FraccionIV = 0;
                             Aguinaldoapagar = aguinaldo - FraccionIV;
                         }
@@ -513,6 +520,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
                     {
                         FraccionIV = lisr;
                     }
+                    Aguinaldoapagar = aguinaldo - FraccionIV;
                     Aguinaldoapagar = Aguinaldoapagar - descuento;
 
                     aguinaldogravadoSubproyeto += aguinaldogravado;

Ventas/Ventas.aspx.vb

@@ -2720,6 +2720,23 @@ Partial Class Ventas
                 End Using
             End If
 
+            If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+                Using ObjVentas As New ClsCGame()
+
+                    If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
+                        'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
+                        DdlSubProyectoDatos.SelectedValueExist("12629")
+                    End If
+
+                    If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
+
+                        GvPS.DataSource = ObjVentas.DtResultados
+                        GvPS.DataBind()
+                    End If
+
+                End Using
+            End If
             If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
                     DdlMoneda.SelectedValueExist(2)
                     CambiaMoneda()
@@ -2747,8 +2764,6 @@ Partial Class Ventas
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
-                        'IEPS A NIVEL DETALLE
-                        'TxtIEPS.Text = If(TmpDT.SUM("IEPS") > 0, TmpDT.SUM("IEPS").FormatoNumero, TxtIEPS.Text)
                     End If
                     End Using
                 End If
@@ -3033,9 +3048,6 @@ Partial Class Ventas
                 ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0)
                 ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0)
 
-            'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
-            '    EsCreaApartirDe = True
-            'End If
 
             If ViewState("CveRemision").ToString().ToEntero() > 0 Or ViewState("CveCotizacion").ToString().ToEntero() > 0 Then
                     'ViewState("CveRemision") = Request("CveRemision")