saldar fye

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -7,8 +7,8 @@ Imports Microsoft.Reporting.WebForms
 Imports System.Linq
 
 Partial Class Bancos_RepEgresosSinComprobante
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region " PROPIEDADES "
     Private Property DtDatos As DataTable
         Get
@@ -25,9 +25,9 @@ Partial Class Bancos_RepEgresosSinComprobante
         Set(value As DataTable)
             ViewState("DtFuncionariosEmpleados") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
@@ -295,12 +295,16 @@ Partial Class Bancos_RepEgresosSinComprobante
                     Dim CveCuenta As Integer = 0
                     Dim IdCtaContPersonal As Integer = 0
                     Dim CveConceptoContable As Integer
+                    Dim TipoMovtoOtIngresos As Boolean = True
+                    Dim TipoMovtoConcepto As Boolean = False
 
                     Select Case gr.DataKey("CveConceptoContable").ToEntero
                         Case 10
                             CveConceptoContable = 21
                         Case 28
                             CveConceptoContable = 29
+                            TipoMovtoOtIngresos = False
+                            TipoMovtoConcepto = True
                         Case 37
                             CveConceptoContable = 43
                         Case 42
@@ -324,14 +328,14 @@ Partial Class Bancos_RepEgresosSinComprobante
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
@@ -392,33 +396,33 @@ Partial Class Bancos_RepEgresosSinComprobante
             End If
             ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", DtDatos, params, String.Format("EgresosSinComprovante-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
         End If
-    End Sub
-
+    End Sub
+
 #Region "PROVEEDORES"
-
+
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
         ImprimirReportePdf("RepEgresosSinComprobante.rdlc", DtDatos.FiltraParametros(" RazonSocial is not null  "), "EXCEL")
     End Sub
 
     Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
         ImprimirReportePdf("RepEgresosSinComprobante.rdlc", DtDatos.FiltraParametros(" RazonSocial is not null  "))
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "FUNCIONARIOS/EMPLEADOS"
-
+
     Protected Sub LnkExportarFuncionarios_Click(sender As Object, e As EventArgs)
         ImprimirReportePdf("RepEgresosSinComprobanteFuncionarios.rdlc", DtFuncionariosEmpleados, "EXCEL")
     End Sub
     Protected Sub LnkPDFFuncionarios_Click(sender As Object, e As EventArgs)
         ImprimirReportePdf("RepEgresosSinComprobanteFuncionarios.rdlc", DtFuncionariosEmpleados)
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #End Region
-
-
-
+
+
+
 End Class