From 66d671bc0f4cca250589f939f8b8ce6805572144 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Mon, 14 Dec 2020 12:00:45 -0700
Subject: [PATCH] Ventas contratos Egresos

---
 Compras/ReembolsosComprobaciones.aspx.vb | 49 ++++++++++++++----------
 Ventas/Ventas.aspx                       |  4 +-
 Ventas/Ventas.aspx.vb                    | 14 +++++--
 vwd.webinfo                              |  4 ++
 4 files changed, 45 insertions(+), 26 deletions(-)

diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index f5d83d58c..4b00fbc2c 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/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 "
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 08553cbad..4dc1dfa02 100644
--- a/Ventas/Ventas.aspx
+++ b/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">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 215665354..063add67b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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
diff --git a/vwd.webinfo b/vwd.webinfo
index ce767c892..02418376d 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -140,6 +140,10 @@
     
   
     
+  
+    
+  
+