-- mejora en tipos de póliza

-- filtra las tipotransacción activas
-- se actió ot gastos/ingresos funcionaldiad 590

Bancos/IE.aspx.vb

@@ -700,6 +700,13 @@ Partial Class Bancos_IE
                 TxtImporte.Attributes.Add("onkeypress", "javascript: return false;")
             End If
 
+            If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "INGPC" Then
+                If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
+                    DivOtrosIngresosEgresos.Visible = True
+                End If
+
+            End If
+
 
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
                 LblPagueseA.Text = ""
@@ -1844,18 +1851,18 @@ Partial Class Bancos_IE
     Private Sub CargaTipoTransaccion(Optional Tipo As String = "")
         Dim dt As DataTable
         If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
-            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
+            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1")
             LtlTitulo.Text = "Egreso  Por Comprobar"
 
             RBL.Items.Remove(RBL.Items.FindByValue("C"))
         ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "DEV" Then
-            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
+            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ")
             LtlTitulo.Text = If(Request("Opcion").ToString = "INGPC", "Ingreso por comprobar", "Devolución")
             LblPagueseA.Text = "Recibido de:"
             RBL.SelectedValue = "C"
             Anexo.Visible = True
         ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "INGPC" Then
-            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
+            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1")
             LtlTitulo.Text = If(Request("Opcion").ToString = "INGPC", "Ingreso por comprobar", "Devolución")
             LblPagueseA.Text = "Recibido de:"
             RBL.SelectedValue = "C"
@@ -1865,13 +1872,13 @@ Partial Class Bancos_IE
             RBL.Items.Remove(RBL.Items.FindByValue("FE"))
 
         ElseIf Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "ANTC" Then
-            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
+            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ")
             LtlTitulo.Text = "Anticipo de Cliente"
             LblPagueseA.Text = "Recibido de:"
             Anexo.Visible = True
             RBL.Items.Remove(RBL.Items.FindByValue("P")) : RBL.Items.Remove(RBL.Items.FindByValue("FE")) : RBL.Items.Remove(RBL.Items.FindByValue("DD")) : RBL.Items.Remove(RBL.Items.FindByValue("AC")) : RBL.Items.Remove(RBL.Items.FindByValue("DP"))
         ElseIf Opcion = "DevDinV" Then ' DEVOLUCION DINERO NC-VENTAS
-            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
+            dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1 ")
             LtlTitulo.Text = "Devolución dinero"
             RBL.SelectedValue = "C"
             RBL.Enabled = False
@@ -1879,20 +1886,17 @@ Partial Class Bancos_IE
             dt = GlobalDTTipoTransacciones
         End If
 
-
-
         If Opcion = "DevDinC" AndAlso Request("P") IsNot Nothing AndAlso Request("P").Length > 0 Or Opcion = "DevDinC" AndAlso Masivonotas Then
-            DdlTipoTransaccion.DataSource = dt.FiltraParametros("Tipo = 'Ing' ")
+            DdlTipoTransaccion.DataSource = dt.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
         Else
             DdlTipoTransaccion.DataSource = dt
         End If
 
         If Tipo.Length > 0 Then
             DdlTipoTransaccion.Items.Clear()
-            DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND EstatusTexto = 'Activo' ")
+            DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
         End If
 
-
         DdlTipoTransaccion.DataBind()
         DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
         RBL_SelectedIndexChanged(RBL, Nothing)
@@ -2584,6 +2588,7 @@ Partial Class Bancos_IE
         Dim CveConceptoContable As Integer = 30
         Dim CveConceptoCompra As Integer = 10
         Dim CveCreditoDetalle As Integer = -1
+        Dim tCveTipoPoliza As Integer = 2
         Dim CIF As Decimal = 0
         Dim CvePlantillaPoliza As Integer = 3
         Dim CvePrePoliza As Integer = 0
@@ -2667,9 +2672,11 @@ Partial Class Bancos_IE
                 CvePlantillaPoliza = 92
 
             End If
+
             Dim AgregaPolizaSaldoInicial As Boolean = False
             'Cuando es Egreso sin factura, se registra una compra tipo anticipo
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "EGSSINFACT" Then
+                tCveTipoPoliza = 2
                 Select Case RBL.SelectedValue
                     Case "P"  'Proveedores
                         If CveProveedor > 0 Then
@@ -2710,6 +2717,7 @@ Partial Class Bancos_IE
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "INGPC" Then
                 HdnProvPorIVA.Value = "0"
                 CvePlantillaPoliza = 6
+                tCveTipoPoliza = 1
                 Select Case RBL.SelectedValue
                     Case "DD" ' Deudores Diversos
                         If CveProveedor > 0 Then
@@ -2792,7 +2800,7 @@ Partial Class Bancos_IE
                     End If
 
                     If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
-                    CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
+                    CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=tCveTipoPoliza)
 
                     'valida prepoliza
                     If CvePrePoliza > 0 Then
@@ -2873,6 +2881,30 @@ Partial Class Bancos_IE
 
                                 Dim importeMX As Decimal
                                 Dim Multiplicador As Integer
+                                Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero
+
+                                'OTROS INGRESOS/EGRESOS
+                                Dim TCC As Decimal = 1
+                                If TxtTipoCambio.Text.Trim.ToDecimal > 0 Then TCC = TxtTipoCambio.Text.Trim.ToDecimal
+
+                                Dim ImporteOtros As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal * TCC
+                                If ImporteOtros <> 0 Then
+                                    Dim TipoMovtoIE As Boolean = False
+                                    Dim CveConcIE As Integer = 78
+                                    If ImporteOtros > 0 Then
+                                        TipoMovtoIE = True : ImporteOtros = Math.Abs(ImporteOtros)
+                                        CveConcIE = 78
+                                    Else
+                                        TipoMovtoIE = False : ImporteOtros = Math.Abs(ImporteOtros)
+                                        CveConcIE = 211
+                                    End If
+
+                                    Dim OtConcepto As String = PagueseA & " $" & TxtOtrosIngresosEgresos.Text.ToDecimal.FormatoNumero
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, ImporteOtros, PagueseA, CveConcIE, OtConcepto, Now, -1, -1, CveIE, CveCliente:=CveCliente, ImporteMX:=ImporteOtros, CveSubProyecto:=tCveSubProyecto, ImporteME:=0) Then
+                                        MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
+                                        Exit Select
+                                    End If
+                                End If
 
                                 If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
 
@@ -2929,7 +2961,7 @@ Partial Class Bancos_IE
 
                                             Case 66
                                                 If RBL.SelectedValue = "C" AndAlso CveCliente > 0 Then
-                                                    importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal
+                                                    importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal - TxtOtrosIngresosEgresos.Text.ToDecimal
                                                     importeMX = importeMovimiento
 
                                                     'Agregamos el IVA