IE impresion facturas, agregar prepoliza de IE
This commit is contained in:
rakcsle
@@ -1514,8 +1514,7 @@ Public Class ClsInventarios
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
|
||||
Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
|
||||
Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_KardexAlmacenGet")
|
||||
@@ -1528,8 +1527,6 @@ Public Class ClsInventarios
|
||||
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
|
||||
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
|
||||
.Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -1549,7 +1546,7 @@ Public Class ClsInventarios
|
||||
Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
|
||||
IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
|
||||
Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1",
|
||||
Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
|
||||
Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
|
||||
@@ -1573,10 +1570,6 @@ Public Class ClsInventarios
|
||||
.Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
|
||||
.Add("@GPO", SqlDbType.Int).Value = GPO
|
||||
.Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS
|
||||
.Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
|
||||
.Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
|
||||
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -1839,7 +1832,7 @@ Public Class ClsInventarios
|
||||
|
||||
Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
|
||||
CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
|
||||
Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
|
||||
Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_ReporteMovimientos")
|
||||
@@ -1862,8 +1855,6 @@ Public Class ClsInventarios
|
||||
.Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
|
||||
.Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
|
||||
.Add("@Modalidad", SqlDbType.Int).Value = Modalidad
|
||||
.Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
|
||||
.Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -5746,11 +5746,12 @@ Partial Class PopUpVerFactura
|
||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim reportDataSetsList As New List(Of ReportDataSource)
|
||||
|
||||
Dim CvePrePoliza As Integer = 0
|
||||
Dim dtMovs As New DataTable
|
||||
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
|
||||
CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
|
||||
|
||||
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
|
||||
@@ -5792,7 +5793,25 @@ Partial Class PopUpVerFactura
|
||||
.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
||||
End With
|
||||
dtMovs.Dispose()
|
||||
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
|
||||
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
|
||||
Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
ObjContabilidad.Dispose()
|
||||
|
||||
Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
|
||||
reportDataSetsList.Add(rdsPrePoliza)
|
||||
|
||||
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
||||
Else
|
||||
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1,5 +1,4 @@
|
||||
Imports System.Data
|
||||
Imports ADSNetLibrary.SIGAPI.Models.CGame
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
@@ -113,10 +112,7 @@ Partial Class Inventarios_KardexAlmacen
|
||||
Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
|
||||
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
|
||||
|
||||
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
|
||||
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
|
||||
|
||||
If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
|
||||
If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
dt = ObjMovimientos.DtResultados
|
||||
GvDatos.DataSource = ObjMovimientos.DtResultados
|
||||
End If
|
||||
|
||||
@@ -159,14 +159,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
|
||||
Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
|
||||
|
||||
|
||||
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
|
||||
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
|
||||
|
||||
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
|
||||
DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
|
||||
Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
|
||||
CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
|
||||
Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
|
||||
|
||||
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
|
||||
dt = ObjMovimientos.DtResultados
|
||||
Dim ListaBorrar As New List(Of DataColumn)
|
||||
|
||||
@@ -256,13 +256,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
|
||||
CveMarca = DdlMarca.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
|
||||
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
|
||||
|
||||
If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
|
||||
Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
|
||||
DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
|
||||
Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
|
||||
Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
|
||||
dt = Reporte.DtResultados
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user