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

-- parametro cveempresa en compradetalle

Browse Source 
-- limpieza de codigo muy posiblemente duplicado.
-- optmimzación de gvantcipo_rowdatabound
This commit is contained in:
rrene
2023-01-28 10:42:18 -07:00
parent 7e4a52e5b2
commit fc994d9543
3 changed files with 62 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsCompras.vb
View File

@@ -173,12 +173,13 @@ Public Class ClsCompras
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Comp_CompraDetalleGet") DataAdapter("PA_Comp_CompraDetalleGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

114
Compras/Compras.aspx.vb
View File

@@ -1462,9 +1462,7 @@ Partial Class Compras_Compras
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
'TdIVA.Visible = True 'TdIVA.Visible = True
'DdlIVA.Enabled = False 'DdlIVA.Enabled = False
CargaGvBitacora()
InventarioMov()
HabilitaNCInv()
DivConsignaciones.Visible = False DivConsignaciones.Visible = False
' 2018/05/25 - Muestra Boton Agregar Guia ' 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%")))) 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 End If
TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True) TxtRembolsoNumero.Enabled = If(IdPoliza > 0, False, True)
'CargaDetalle 'CargaDetalle
If ObjCompra.GetCompraDetalle(CveCompra) Then If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
TmpDT = ObjCompra.DtResultados TmpDT = ObjCompra.DtResultados
TmpDTOriginal = ObjCompra.DtResultados.Copy TmpDTOriginal = ObjCompra.DtResultados.Copy
@@ -2902,61 +2899,61 @@ Partial Class Compras_Compras
CalculaTotales(True) CalculaTotales(True)
If UsuarioActual.Empresa.UsaInventarios Then 'If UsuarioActual.Empresa.UsaInventarios Then
DtInv = TmpDT.FiltraParametros(String.Format("CveTipoPS = 2")).Copy ' 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 ' Dim Inv As New ClsInventarios
If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then ' If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
'Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", dr("CveMovimiento"))) ' 'Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", dr("CveMovimiento")))
'ImgImprimirAlmacen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", TempParametros) ' 'ImgImprimirAlmacen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", TempParametros)
ImgImprimirAlmacen.Visible = True ' ImgImprimirAlmacen.Visible = True
ImgImprimirAlmacen.NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", dr("CveMovimiento")) ' ImgImprimirAlmacen.NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", dr("CveMovimiento"))
Dim drt As DataRow ' Dim drt As DataRow
'actualizo el almacen ' 'actualizo el almacen
For Each dri As DataRow In DtInv.Rows ' For Each dri As DataRow In DtInv.Rows
drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad"))) ' drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
If drt IsNot Nothing Then ' If drt IsNot Nothing Then
Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) 'Charlie ' Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) 'Charlie
TmpDr("CveAlmacen") = drt("CveAlmacen") '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 ' ''Proceso Super Tramposo de Charlie
If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa, CveCompra:=-123) Then ' 'If Inv.GetMovimientosDetalle(dr("CveMovimiento").ToString.ToEntero, UsuarioActual.CveEmpresa, CveCompra:=-123) Then
Dim drt As DataRow ' ' Dim drt As DataRow
For Each dri As DataRow In DtInv.Rows ' ' For Each dri As DataRow In DtInv.Rows
drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad"))) ' ' drt = Inv.DtResultados.FiltroPrimero(String.Format("CvePS = {0} AND Cantidad = {1}", dri("CvePS"), dri("Cantidad")))
If drt IsNot Nothing Then ' ' If drt IsNot Nothing Then
Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0) ' ' Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dri("Consec").ToString.ToEntero}")(0)
TmpDr("CveAlmacen") = drt("CveAlmacen") ' ' TmpDr("CveAlmacen") = drt("CveAlmacen")
End If ' ' End If
Next ' ' Next
End If ' 'End If
Inv.Dispose() ' Inv.Dispose()
End If ' End If
CargaGvInv() ' CargaGvInv()
'Ocultamos "Recibir Aqui" ' 'Ocultamos "Recibir Aqui"
GvInv.Columns(6).Visible = False ' GvInv.Columns(6).Visible = False
GvInv.Columns(7).Visible = False ' GvInv.Columns(7).Visible = False
End If 'End If
End If End If
DdlTipoComprobante.Enabled = False DdlTipoComprobante.Enabled = False
@@ -3204,6 +3201,9 @@ Partial Class Compras_Compras
End If End If
End If End If
CargaComplementosPago() CargaComplementosPago()
CargaGvBitacora()
InventarioMov()
HabilitaNCInv()
Else Else
Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) 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 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 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.FCTextBox("TxtAnticipo").Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1},{2},{3},{4},{5},{6});",
e.Row.FCCheckBox("Chk").ClientID, e.Row.FCCheckBox("Chk").ClientID,
e.Row.DBCampo("Saldo"), e.Row.DBCampo("Saldo"),
If(CveCompra > 0, Saldo, ImporteAmortizacion), e.Row.DBCampo("CveMoneda").ToEntero, 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, DdlMoneda.SelectedValue.ToEntero,
e.Row.FCTextBox("TxtComision").ClientID)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO 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"), e.Row.DBCampo("Saldo"),
If(CveCompra > 0, Saldo, ImporteAmortizacion), If(CveCompra > 0, Saldo, ImporteAmortizacion),
e.Row.DBCampo("CveMoneda").ToEntero, 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, DdlMoneda.SelectedValue.ToEntero,
e.Row.FCTextBox("TxtAnticipo").ClientID)) e.Row.FCTextBox("TxtAnticipo").ClientID))
Else Else
@@ -10102,7 +10104,7 @@ Partial Class Compras_Compras
e.Row.FCCheckBox("Chk").ClientID, e.Row.FCCheckBox("Chk").ClientID,
e.Row.DBCampo("Saldo"), e.Row.DBCampo("Saldo"),
If(CveCompra > 0, Saldo, ImporteAmortizacion), e.Row.DBCampo("CveMoneda").ToEntero, 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, DdlMoneda.SelectedValue.ToEntero,
e.Row.FCTextBox("TxtComision").ClientID)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO 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"), e.Row.DBCampo("Saldo"),
If(CveCompra > 0, Saldo, ImporteAmortizacion), If(CveCompra > 0, Saldo, ImporteAmortizacion),
e.Row.DBCampo("CveMoneda").ToEntero, 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, DdlMoneda.SelectedValue.ToEntero,
e.Row.FCTextBox("TxtAnticipo").ClientID)) e.Row.FCTextBox("TxtAnticipo").ClientID))
End If End If
@@ -14034,7 +14036,7 @@ Partial Class Compras_Compras
Dim TipoCambioGuardar As Decimal = 1 Dim TipoCambioGuardar As Decimal = 1
Dim tcvealmacen As Integer = 0 Dim tcvealmacen As Integer = 0
If ObjCompra.GetCompraDetalle(CveCompra) Then If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
If ObjCompra.DtResultados.Rows.Count > 0 Then If ObjCompra.DtResultados.Rows.Count > 0 Then
TmpDT = ObjCompra.DtResultados TmpDT = ObjCompra.DtResultados
End If End If
@@ -15927,7 +15929,7 @@ Partial Class Compras_Compras
Return False Return False
Else Else
If ObjCompras.GetCompraDetalle(CveCompra) Then If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
If ObjInv.GetMovimientosDetalle(-1, UsuarioActual.CveEmpresa, CveCompra) Then If ObjInv.GetMovimientosDetalle(-1, UsuarioActual.CveEmpresa, CveCompra) Then
Dtcompra = ObjInv.DtResultados Dtcompra = ObjInv.DtResultados
Dim TotalProductos = Dtcompra.SUM("Total").ToString.ToDecimal Dim TotalProductos = Dtcompra.SUM("Total").ToString.ToDecimal
@@ -16752,12 +16754,14 @@ Partial Class Compras_Compras
#Region "Historial de Modificacion" #Region "Historial de Modificacion"
Private Sub CargaGvBitacora() Private Sub CargaGvBitacora()
' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017 ' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
Dim ObjGral As New ClsGenerales() If CveCompra > 0 Then
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, CveCompra, -1, UsuarioActual.CveEmpresa) Then Dim ObjGral As New ClsGenerales()
GvBitacora.DataSource = ObjGral.DtResultados If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, CveCompra, -1, UsuarioActual.CveEmpresa) Then
GvBitacora.DataBind() GvBitacora.DataSource = ObjGral.DtResultados
End If
ObjGral.Dispose()
End If End If
ObjGral.Dispose() GvBitacora.DataBind()
End Sub End Sub
#End Region #End Region

2
Compras/Proveedores.aspx.vb
View File

@@ -5625,7 +5625,7 @@ Partial Class Compras_Proveedores
TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString() TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString()
End If End If
End If End If
If ObjCompras.GetCompraDetalle(CveCompra) Then If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
Dim StrPS As New StringBuilder() Dim StrPS As New StringBuilder()
For Each Row As DataRow In ObjCompras.DtResultados.Rows For Each Row As DataRow In ObjCompras.DtResultados.Rows
If ObjCompras.DtResultados.Rows.Count > 1 Then If ObjCompras.DtResultados.Rows.Count > 1 Then