.

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
@@ -28740,11 +28748,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