Ventas contratos Egresos

Compras/ReembolsosComprobaciones.aspx.vb

@@ -93,33 +93,40 @@ Partial Class Compras_ReembolsosComprobaciones
 
             Dim ObjPersonal As New ClsRH
             ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
-            DdlPersonal.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
-            ObjPersonal.Dispose()
-            DdlPersonal.DataBind()
 
-            CargaTipoTransaccion()
-
-            If UsuarioActual.Empresa.Funcionalidad(506) = "1" Then
-                CbPermitirExcedente.Visible = True
+            If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
+                DdlPersonal.DataSource = ObjPersonal.DtResultados
             Else
-                CbPermitirExcedente.Visible = False
+                DdlPersonal.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then
-                rowComisiones.Visible = True
+
+            ObjPersonal.Dispose()
+                DdlPersonal.DataBind()
+
+                CargaTipoTransaccion()
+
+                If UsuarioActual.Empresa.Funcionalidad(506) = "1" Then
+                    CbPermitirExcedente.Visible = True
+                Else
+                    CbPermitirExcedente.Visible = False
+                End If
+
+                If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then
+                    rowComisiones.Visible = True
+                End If
+
+                If UsuarioActual.CveEmpresa = 119 Then
+                    ChkReembolsarSinBancos.Visible = True
+                End If
+
+                TxtFechaPrePoliza.Text = Date.Now.ToShortDateString
+
+                'CargaCuentasDiferencia()
+
+                'TableDiferencia.Visible = False
             End If
 
-            If UsuarioActual.CveEmpresa = 119 Then
-                ChkReembolsarSinBancos.Visible = True
-            End If
-
-            TxtFechaPrePoliza.Text = Date.Now.ToShortDateString
-
-            'CargaCuentasDiferencia()
-
-            'TableDiferencia.Visible = False
-        End If
-
     End Sub
 
 #Region " FILTROS "

Ventas/Ventas.aspx

@@ -2822,9 +2822,9 @@
                                             <div class="col-md-5">
                                                 <asp:RadioButtonList ID="RBLTipoContrato" AppendDataBoundItems="true" OnSelectedIndexChanged="RBLTipoContrato_SelectedIndexChanged" AutoPostBack="true" runat="server" RepeatDirection="Horizontal">
                                                     <asp:ListItem Text="Venta" Value="2" Selected="True" />
-                                                    <asp:ListItem Text="Suministro" Value="1" />
-                                                    <%--<asp:ListItem Text="Consignación" Value="3" Enabled="false" />--%>
+                                                    <asp:ListItem Text="Suministro" Value="1" />                                                   
                                                     <asp:ListItem Text="Obra" Value="4" />
+                                                   
                                                 </asp:RadioButtonList>
                                             </div>
                                             <div class="col-md-6">

Ventas/Ventas.aspx.vb

@@ -9115,7 +9115,7 @@ Partial Class Ventas
         ObjFactura.NumeroPersonas = 0
 
 
-        If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
+        If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Egs" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
             CveContrato = DdlContratosModal.SelectedValue.ToEntero
         End If
 
@@ -16384,6 +16384,10 @@ Partial Class Ventas
             Dim TotalCalculableImpuestosIVA As Decimal = 0
             PU = PU.RoundAD(6) ' el precio unitario puede llevar hasta 6 decimales permitidos
 
+            If Not TmpDT.Columns.Contains("RetIVA") Then
+                TmpDT.Columns.Add("RetIVA", GetType(Decimal))
+            End If
+
             Row = TmpDT.NewRow()
             Row("CveProyecto") = CveProyecto
             Row("Proyecto") = Proyecto
@@ -16510,7 +16514,11 @@ Partial Class Ventas
             Row("IVA") = Row("PorcentajeIVA")
             Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundAD(NumeroDecimales)
             Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales)
+
+
+
             Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales)
+
             Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundAD(NumeroDecimales)
             Row("PorcentajeRetIVA") = ClienteRetIVA
             Row("PorcentajeRetISR") = ClienteRetISR
@@ -28702,11 +28710,11 @@ Partial Class Ventas
                     Alert("Se selecciono un contrato de obra, para continuar seleccione una estimación.", TipoMensaje.MsgAdvertencia)
                 End If
 
-            ElseIf DdlTipoComprobante.SelectedValue = "Ant" Then
+            ElseIf DdlTipoComprobante.SelectedValue = "Ant" Or DdlTipoComprobante.SelectedValue = "Egs" Then
                 Respuesta = True
             Else
                 Alert("Tipo de documento no valido para contratos de obra.", TipoMensaje.MsgAdvertencia)
-                Respuesta = True
+                Respuesta = False
             End If
 
         Else

vwd.webinfo

@@ -140,6 +140,10 @@
     
   
     
+  
+    
+  
+