-- corrección
This commit is contained in:
@@ -3077,38 +3077,23 @@ Partial Class Compras_Compras
|
||||
TmpDT.Columns.Add("CveContrato", GetType(Integer))
|
||||
TmpDT.Columns.Add("DifPSSat", GetType(Integer))
|
||||
|
||||
If Not TmpDT.Columns.Contains("CveContratoDetalle") Then
|
||||
TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("CveCultivoCuadroDetalle") Then
|
||||
TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("CveContratoDetalle") Then TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
|
||||
If Not TmpDT.Columns.Contains("CveCultivoCuadroDetalle") Then TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
|
||||
If Not TmpDT.Columns.Contains("CveSATPSActualizado") Then TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
|
||||
If Not TmpDT.Columns.Contains("ImporteSinImpuestos") Then TmpDT.Columns.Add("ImporteSinImpuestos", GetType(Decimal))
|
||||
|
||||
If Not TmpDT.Columns.Contains("CveSATPSActualizado") Then
|
||||
TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("AplicaSerie") Then TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
|
||||
If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
|
||||
If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
|
||||
|
||||
If Not TmpDT.Columns.Contains("ImporteSinImpuestos") Then
|
||||
TmpDT.Columns.Add("ImporteSinImpuestos", GetType(Decimal))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("AplicaLote") Then
|
||||
TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("AplicaCaducidad") Then
|
||||
TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("Serie") Then TmpDT.Columns.Add("Serie", GetType(String))
|
||||
If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String))
|
||||
If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
|
||||
|
||||
If Not TmpDT.Columns.Contains("Lote") Then
|
||||
TmpDT.Columns.Add("Lote", GetType(String))
|
||||
End If
|
||||
If Not TmpDT.Columns.Contains("FechaCaducidad") Then
|
||||
TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
|
||||
End If
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
CargaHidendsAC()
|
||||
End If
|
||||
|
||||
@@ -4909,7 +4894,6 @@ Partial Class Compras_Compras
|
||||
TmpDT.AcceptChanges()
|
||||
If Correcto Then
|
||||
|
||||
|
||||
Dim ObjCompras As New ClsCompras()
|
||||
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
|
||||
Dim ObjIE As New ClsBancos(ObjCompras.IniciaTransacSQL)
|
||||
@@ -4923,7 +4907,6 @@ Partial Class Compras_Compras
|
||||
Dim ObjCGame As New ClsCGame(ObjCompras.IniciaTransacSQL())
|
||||
Dim ObjProductosServicios As New ClsProductosServicios(ObjCompras.IniciaTransacSQL())
|
||||
Dim ObjGrales As New ClsGenerales(ObjCompras.IniciaTransacSQL())
|
||||
|
||||
Dim ObjContaAC As ClsContPAQi = Nothing
|
||||
|
||||
Dim ErrorMovtosCxP As Boolean = False
|
||||
@@ -5057,7 +5040,6 @@ Partial Class Compras_Compras
|
||||
UsuarioActual.Sesion("Comp-NumeroReembolso") = ""
|
||||
End If
|
||||
|
||||
|
||||
If Not ErrorReembolso Then
|
||||
|
||||
'PORCENTAJE IVA
|
||||
@@ -5797,7 +5779,6 @@ Partial Class Compras_Compras
|
||||
If CveMovimientoInventario <= 0 Then
|
||||
ErrorMovInv = True
|
||||
Else
|
||||
|
||||
Dim DtDetalle As New DataTable
|
||||
Dim DtEquivalencias As DataTable
|
||||
Dim CveProducto As Integer
|
||||
@@ -5879,8 +5860,6 @@ Partial Class Compras_Compras
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
i = i + 1
|
||||
@@ -5904,7 +5883,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -6031,7 +6009,6 @@ Partial Class Compras_Compras
|
||||
If Capital > 0 Or Interes > 0 Or Ambos > 0 Then
|
||||
|
||||
If ObjIE.GetCreditosDetalle(CveCreditoTemp, -1) Then
|
||||
|
||||
Dim CveCompraCapital As Integer = -1
|
||||
Dim CveCompraInteres As Integer = -1
|
||||
|
||||
@@ -6264,9 +6241,6 @@ Partial Class Compras_Compras
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
importeMovimiento = importePagoProv
|
||||
If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then
|
||||
importeMovimiento = importeMovimiento / TipoCambioCompra
|
||||
@@ -6284,7 +6258,6 @@ Partial Class Compras_Compras
|
||||
CveSubProyectoDT = TmpDT(0)("CveSubProyecto").ToString.ToEntero
|
||||
CveTipoGastoDT = TmpDT(0)("CveTipoGasto").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
|
||||
|
||||
Dim ImporteSubCre As Decimal = TxtSubTotal.Text.ToDecimal
|
||||
@@ -6294,7 +6267,6 @@ Partial Class Compras_Compras
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
|
||||
'If importeMovimiento <> 0 Then
|
||||
For Each gvRowCredito As GridViewRow In GvCreditos.Rows
|
||||
|
||||
@@ -13905,7 +13877,7 @@ Partial Class Compras_Compras
|
||||
If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToEntero, Dr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
|
||||
FechaMovto:=tFechaExistencia.ToString("yyyy/MM/dd HH:mm")) Then
|
||||
Dim Existencia As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacen)).ToDecimal
|
||||
If Dr.FCTextBox("TxtCantidad").Text.ToDouble > Existencia Then
|
||||
If Dr.FCTextBox("TxtCantidad").Text.ToDecimal > Existencia Then
|
||||
Alert($"No hay existencia suficiente del producto: <br/> - {Dr.DataKey("CodigoPS")} en la fecha: {tFechaExistencia.ToString("yyyy/MM/dd HH:mm")}", TipoMensaje.MsgAdvertencia)
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
@@ -13991,15 +13963,7 @@ Partial Class Compras_Compras
|
||||
|
||||
UPDevolucion.Update()
|
||||
End Sub
|
||||
'Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
' cargaddldevoluciones(CveProveedor, TextBox1.Text.ToDouble)
|
||||
'End Sub
|
||||
'Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
' Dim ObjInventario As New ClsInventarios()
|
||||
' Dim cvecompra As Integer = 5221
|
||||
' Dim subtotal As Double = TextBox1.Text.ToDouble
|
||||
' guardardevolucion(ObjInventario, cvecompra, subtotal, NowADS().ToDate)
|
||||
'End Sub
|
||||
|
||||
Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
|
||||
Try
|
||||
Dim subtotaldevolucion As Decimal = 0
|
||||
@@ -14036,7 +14000,6 @@ Partial Class Compras_Compras
|
||||
OnError("Ocurrió un error al realizar la vinculación", ex)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VinculaDevolucion()
|
||||
@@ -14080,9 +14043,7 @@ Partial Class Compras_Compras
|
||||
Dim Clasificacion As String = gvr.DataKey("Clasificacion").ToString
|
||||
Dim PS As String = gvr.DataKey("CodigoPS").ToString
|
||||
Dim CveTipoPS As Integer = gvr.DataKey("CveTipoPS").ToString.ToEntero
|
||||
|
||||
Dim CveProyecto As String = "-1"
|
||||
|
||||
Dim Proyecto As String = "Seleccione"
|
||||
Dim Obs As String = ""
|
||||
Dim PU As Decimal = gvr.DataKey("PU").ToString.ToDecimal
|
||||
@@ -14106,21 +14067,20 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
|
||||
Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
|
||||
If CvePS_RNC = 0 Then
|
||||
Dim CvePSRNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
|
||||
If CvePSRNC = 0 Then
|
||||
Alert("producto utilizado para diferencia no definido.")
|
||||
Exit Sub
|
||||
End If
|
||||
Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
|
||||
Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSRNC).FiltroPrimero("")
|
||||
Dim PS As String = PSRow("PSCodigo").ToString
|
||||
Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - Total
|
||||
|
||||
AddPS(1, PSRow("CveUnidadMedida").ToString.ToEntero, PSRow("UnidadMedida").ToString,
|
||||
PSRow("CveClasificacion").ToString.ToEntero, PSRow("Clasificacion").ToString, CvePS_RNC, PS, 1, CveSubProyectoDev.ToString, SubProyecto, "", "-1", "", tDif, tDif, IVAPorcentajeCompra, 0, 0, 0, 0, 0)
|
||||
PSRow("CveClasificacion").ToString.ToEntero, PSRow("Clasificacion").ToString, CvePSRNC, PS, 1, CveSubProyectoDev.ToString, SubProyecto, "", "-1", "", tDif, tDif, IVAPorcentajeCompra, 0, 0, 0, 0, 0)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
AddPS2()
|
||||
|
||||
BtnGuardar.Enabled = True
|
||||
|
||||
Reference in New Issue
Block a user