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

-mejora en que se eliminó una llamado a clase

Browse Source
This commit is contained in:
rrene
2021-09-14 13:32:31 -07:00
parent b90736dec7
commit 8687166aab
1 changed files with 9 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/Compras.aspx.vb
View File

@@ -6931,7 +6931,7 @@ Partial Class Compras_Compras
tidctacon = ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero tidctacon = ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero
End If End If
ElseIf DdlTipoComprobante.SelectedValue = "NC" Then ElseIf DdlTipoComprobante.SelectedValue = "NC" AndAlso UsuarioActual.Empresa.Funcionalidad(405).ToEntero > 0 Then
tcvecon = 259 tcvecon = 259
tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
@@ -10216,9 +10216,10 @@ Partial Class Compras_Compras
Next Next
For Each item As String In ClavesBorradas For Each item As String In ClavesBorradas
Dim ObjCompras As New ClsCompras If item.ToEntero > 0 Then
If Not ObjCompras.DeleteCompraDetalle(item.ToEntero) Then If Not ObjCompra.DeleteCompraDetalle(item.ToEntero) Then
Retorno = False Retorno = False
End If
End If End If
Next Next
@@ -20107,14 +20108,6 @@ Partial Class Compras_Compras
Dim IDPoliza As Integer = 0 Dim IDPoliza As Integer = 0
'EMPIEZA OBJETOS Y TRANSACCIONES
'Dim OC As New ClsOC
'Dim OCBitacora As New ClsOIEventos(OC.IniciaTransacSQL())
'Dim ObjInventarios As New ClsInventarios(OC.IniciaTransacSQL())
'Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
Dim DtInvOC As New DataTable Dim DtInvOC As New DataTable
Dim DtInvOCDiferencias As New DataTable 'Actualizado con diferencia Dim DtInvOCDiferencias As New DataTable 'Actualizado con diferencia
DtInvOCDiferencias.Columns.Add("CveOrdenCompra", GetType(Integer)) DtInvOCDiferencias.Columns.Add("CveOrdenCompra", GetType(Integer))
@@ -20142,7 +20135,7 @@ Partial Class Compras_Compras
Dim diferencia As Decimal = (dr2("PU").ToString.ToDecimal - gvr.FCTextBox("TxtPU").Text.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal Dim diferencia As Decimal = (dr2("PU").ToString.ToDecimal - gvr.FCTextBox("TxtPU").Text.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal
Dim DrInvOCDiferencias As DataRow Dim DrInvOCDiferencias As DataRow
If diferencia <> 0 Then 'And DtInvOC.Rows.Count > 0 If diferencia <> 0 Then
DrInvOCDiferencias = DtInvOCDiferencias.NewRow DrInvOCDiferencias = DtInvOCDiferencias.NewRow
DrInvOCDiferencias("CveOrdenCompra") = dr2("CveOrdenCompra").ToString.ToEntero DrInvOCDiferencias("CveOrdenCompra") = dr2("CveOrdenCompra").ToString.ToEntero
DrInvOCDiferencias("CveOrdenCompraDetalle") = dr2("CveOrdenCompraDetalle").ToString.ToEntero DrInvOCDiferencias("CveOrdenCompraDetalle") = dr2("CveOrdenCompraDetalle").ToString.ToEntero
@@ -20201,7 +20194,7 @@ Partial Class Compras_Compras
If DtInvOCDiferencias.Rows.Count > 0 Then If DtInvOCDiferencias.Rows.Count > 0 Then
'VARIABLES 'VARIABLES
Dim CveOrdenCompra = -1 Dim CveOrdenCompra As Integer = -1
Dim DiferenciaInvOC = 0.0D Dim DiferenciaInvOC = 0.0D
Dim CveMovimientoAlmacen = -1 Dim CveMovimientoAlmacen = -1
Dim CveOCDetalle = -1 Dim CveOCDetalle = -1
@@ -20284,15 +20277,14 @@ Partial Class Compras_Compras
If DiferenciaInvOC.RoundSQL() <> 0 Then If DiferenciaInvOC.RoundSQL() <> 0 Then
If CveSubProyecto <= 0 Then If CveSubProyecto <= 0 Then
Alert("Debe de asignar un sub proyecto o centro de constos.", TipoMensaje.MsgAdvertencia) Alert("Debe de asignar un sub proyecto o centro de costos.", TipoMensaje.MsgAdvertencia)
Retorno = False Retorno = False
End If End If
CvePrePoliza = ObjConta.AddPrePolizas("Compras/OC-(OCAlmacen)", 74, DiferenciaInvOC, DiferenciaInvOC, 1, Fecha, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("Compras/OC-(OCAlmacen)", 74, DiferenciaInvOC, DiferenciaInvOC, 1, Fecha, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
If CveMoneda = 2 And UsuarioActual.CveEmpresa.Contiene(119) Then If CveMoneda = 2 Then
ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD() ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD()
ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD() ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD()