-- parametro cveempresa en compradetalle
-- limpieza de codigo muy posiblemente duplicado. -- optmimzación de gvantcipo_rowdatabound
This commit is contained in:
@@ -173,12 +173,13 @@ Public Class ClsCompras
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetCompraDetalle(CveCompra As Integer) As Boolean
|
||||
Public Function GetCompraDetalle(CveCompra As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Comp_CompraDetalleGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -1462,9 +1462,7 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = False
|
||||
'TdIVA.Visible = True
|
||||
'DdlIVA.Enabled = False
|
||||
CargaGvBitacora()
|
||||
InventarioMov()
|
||||
HabilitaNCInv()
|
||||
|
||||
DivConsignaciones.Visible = False
|
||||
|
||||
' 2018/05/25 - Muestra Boton Agregar Guia
|
||||
@@ -2830,11 +2828,10 @@ Partial Class Compras_Compras
|
||||
ImgDownPDF.Visible = True : ImgDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Fact&EXT=pdf&CveFactura={0}&RFC={1}", dr("CveFactura"), dr("RFC").ToString.Replace("&", "%26%"))))
|
||||
End If
|
||||
|
||||
|
||||
TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True)
|
||||
|
||||
'CargaDetalle
|
||||
If ObjCompra.GetCompraDetalle(CveCompra) Then
|
||||
If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
TmpDT = ObjCompra.DtResultados
|
||||
TmpDTOriginal = ObjCompra.DtResultados.Copy
|
||||
|
||||
@@ -2902,61 +2899,61 @@ Partial Class Compras_Compras
|
||||
|
||||
CalculaTotales(True)
|
||||
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
DtInv = TmpDT.FiltraParametros(String.Format("CveTipoPS = 2")).Copy
|
||||
'If UsuarioActual.Empresa.UsaInventarios Then
|
||||
' DtInv = TmpDT.FiltraParametros(String.Format("CveTipoPS = 2")).Copy
|
||||
|
||||
If dr("Inventario").ToString = "1" Then
|
||||
' If dr("Inventario").ToString = "1" Then
|
||||
|
||||
CveMovimientoAlmacen = dr("CveMovimiento").ToString.ToEntero
|
||||
' CveMovimientoAlmacen = dr("CveMovimiento").ToString.ToEntero
|
||||
|
||||
Dim Inv As New ClsInventarios
|
||||
If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
'Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", dr("CveMovimiento")))
|
||||
'ImgImprimirAlmacen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", TempParametros)
|
||||
' Dim Inv As New ClsInventarios
|
||||
' If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
' 'Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", dr("CveMovimiento")))
|
||||
' 'ImgImprimirAlmacen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", TempParametros)
|
||||
|
||||
ImgImprimirAlmacen.Visible = True
|
||||
ImgImprimirAlmacen.NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", dr("CveMovimiento"))
|
||||
' ImgImprimirAlmacen.Visible = True
|
||||
' ImgImprimirAlmacen.NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", dr("CveMovimiento"))
|
||||
|
||||
Dim drt As DataRow
|
||||
'actualizo el almacen
|
||||
For Each dri As DataRow In DtInv.Rows
|
||||
' Dim drt As DataRow
|
||||
' 'actualizo el almacen
|
||||
' For Each dri As DataRow In DtInv.Rows
|
||||
|
||||
drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
|
||||
If drt IsNot Nothing Then
|
||||
Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) 'Charlie
|
||||
TmpDr("CveAlmacen") = drt("CveAlmacen") 'Charlie
|
||||
' drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
|
||||
' If drt IsNot Nothing Then
|
||||
' Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) 'Charlie
|
||||
' TmpDr("CveAlmacen") = drt("CveAlmacen") 'Charlie
|
||||
|
||||
dri("CveAlmacen") = drt("CveAlmacen")
|
||||
' dri("CveAlmacen") = drt("CveAlmacen")
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
Next
|
||||
' Next
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
'Proceso Super Tramposo de Charlie
|
||||
If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa, CveCompra:=-123) Then
|
||||
Dim drt As DataRow
|
||||
For Each dri As DataRow In DtInv.Rows
|
||||
drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
|
||||
If drt IsNot Nothing Then
|
||||
Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0)
|
||||
TmpDr("CveAlmacen") = drt("CveAlmacen")
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
' ''Proceso Super Tramposo de Charlie
|
||||
' 'If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa, CveCompra:=-123) Then
|
||||
' ' Dim drt As DataRow
|
||||
' ' For Each dri As DataRow In DtInv.Rows
|
||||
' ' drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
|
||||
' ' If drt IsNot Nothing Then
|
||||
' ' Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0)
|
||||
' ' TmpDr("CveAlmacen") = drt("CveAlmacen")
|
||||
' ' End If
|
||||
' ' Next
|
||||
' 'End If
|
||||
|
||||
Inv.Dispose()
|
||||
' Inv.Dispose()
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
CargaGvInv()
|
||||
' CargaGvInv()
|
||||
|
||||
'Ocultamos "Recibir Aqui"
|
||||
GvInv.Columns(6).Visible = False
|
||||
GvInv.Columns(7).Visible = False
|
||||
' 'Ocultamos "Recibir Aqui"
|
||||
' GvInv.Columns(6).Visible = False
|
||||
' GvInv.Columns(7).Visible = False
|
||||
|
||||
End If
|
||||
'End If
|
||||
End If
|
||||
|
||||
DdlTipoComprobante.Enabled = False
|
||||
@@ -3204,6 +3201,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
CargaComplementosPago()
|
||||
CargaGvBitacora()
|
||||
InventarioMov()
|
||||
HabilitaNCInv()
|
||||
|
||||
Else
|
||||
Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -10080,12 +10080,14 @@ Partial Class Compras_Compras
|
||||
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("chkAnt(this,{0},{1},{2});", e.Row.FCTextBox("TxtAnticipo").ClientID, e.Row.DBCampo("Saldo"), If(CveCompra > 0, Saldo, ImporteAmortizacion), e.Row.DBCampo("CveMoneda").ToEntero, If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble), DdlMoneda.SelectedValue.ToEntero)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
|
||||
|
||||
Dim tTCFecha As Double = If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble)
|
||||
|
||||
If UsuarioActual.Empresa.CveEmpresa.Contiene(13, 83) Then
|
||||
e.Row.FCTextBox("TxtAnticipo").Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1},{2},{3},{4},{5},{6});",
|
||||
e.Row.FCCheckBox("Chk").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, Saldo, ImporteAmortizacion), e.Row.DBCampo("CveMoneda").ToEntero,
|
||||
If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble),
|
||||
tTCFecha,
|
||||
DdlMoneda.SelectedValue.ToEntero,
|
||||
e.Row.FCTextBox("TxtComision").ClientID)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
|
||||
@@ -10094,7 +10096,7 @@ Partial Class Compras_Compras
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, Saldo, ImporteAmortizacion),
|
||||
e.Row.DBCampo("CveMoneda").ToEntero,
|
||||
If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble),
|
||||
tTCFecha,
|
||||
DdlMoneda.SelectedValue.ToEntero,
|
||||
e.Row.FCTextBox("TxtAnticipo").ClientID))
|
||||
Else
|
||||
@@ -10102,7 +10104,7 @@ Partial Class Compras_Compras
|
||||
e.Row.FCCheckBox("Chk").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, Saldo, ImporteAmortizacion), e.Row.DBCampo("CveMoneda").ToEntero,
|
||||
If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble),
|
||||
tTCFecha,
|
||||
DdlMoneda.SelectedValue.ToEntero,
|
||||
e.Row.FCTextBox("TxtComision").ClientID)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
|
||||
@@ -10111,7 +10113,7 @@ Partial Class Compras_Compras
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, Saldo, ImporteAmortizacion),
|
||||
e.Row.DBCampo("CveMoneda").ToEntero,
|
||||
If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble),
|
||||
tTCFecha,
|
||||
DdlMoneda.SelectedValue.ToEntero,
|
||||
e.Row.FCTextBox("TxtAnticipo").ClientID))
|
||||
End If
|
||||
@@ -14034,7 +14036,7 @@ Partial Class Compras_Compras
|
||||
Dim TipoCambioGuardar As Decimal = 1
|
||||
Dim tcvealmacen As Integer = 0
|
||||
|
||||
If ObjCompra.GetCompraDetalle(CveCompra) Then
|
||||
If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
If ObjCompra.DtResultados.Rows.Count > 0 Then
|
||||
TmpDT = ObjCompra.DtResultados
|
||||
End If
|
||||
@@ -15927,7 +15929,7 @@ Partial Class Compras_Compras
|
||||
Return False
|
||||
Else
|
||||
|
||||
If ObjCompras.GetCompraDetalle(CveCompra) Then
|
||||
If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
If ObjInv.GetMovimientosDetalle(-1, UsuarioActual.CveEmpresa, CveCompra) Then
|
||||
Dtcompra = ObjInv.DtResultados
|
||||
Dim TotalProductos = Dtcompra.SUM("Total").ToString.ToDecimal
|
||||
@@ -16752,12 +16754,14 @@ Partial Class Compras_Compras
|
||||
#Region "Historial de Modificacion"
|
||||
Private Sub CargaGvBitacora()
|
||||
' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, CveCompra, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvBitacora.DataSource = ObjGral.DtResultados
|
||||
GvBitacora.DataBind()
|
||||
If CveCompra > 0 Then
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, CveCompra, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvBitacora.DataSource = ObjGral.DtResultados
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
GvBitacora.DataBind()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -5625,7 +5625,7 @@ Partial Class Compras_Proveedores
|
||||
TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString()
|
||||
End If
|
||||
End If
|
||||
If ObjCompras.GetCompraDetalle(CveCompra) Then
|
||||
If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
Dim StrPS As New StringBuilder()
|
||||
For Each Row As DataRow In ObjCompras.DtResultados.Rows
|
||||
If ObjCompras.DtResultados.Rows.Count > 1 Then
|
||||
|
||||
Reference in New Issue
Block a user