AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

saldar fye

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-01-22 20:30:56 -07:00
parent 0b07a53ea7
commit 601ccedb44
1 changed files with 23 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Bancos/RepEgresosSinComprobante.aspx.vb
View File

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