-- cancelación, corrección de datos de prepóliza
This commit is contained in:
@@ -13120,7 +13120,8 @@ Partial Class Compras_Compras
|
||||
Dim CvePrePolizaNueva As Integer = -1
|
||||
|
||||
Try
|
||||
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", 1, 0, 0, 1, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", Serie & "-" & Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim ConceptoPoliza As String = String.Format("Cancelación: {0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim)
|
||||
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", 1, 0, 0, 1, TxtFechaCancelacion.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
'DEVOLUCIÓN AUTOMATICA
|
||||
If CheckDevAuto.Checked Then
|
||||
@@ -13297,12 +13298,15 @@ Partial Class Compras_Compras
|
||||
' CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar3", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
If CvePrePolizaNueva > 0 Then
|
||||
For Each dr As DataRow In dt.Rows
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("ImporteMN").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
|
||||
dr("Concepto").ToString, CveIE:=dr("CveIE").ToString.ToEntero,
|
||||
CveVenta:=dr("CveVenta").ToString.ToEntero, CveCompra:=dr("CveCompra").ToString.ToEntero, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, CveCliente:=dr("CveCliente").ToString.ToEntero, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CvePersonal:=dr("CvePersonal").ToString.ToEntero,
|
||||
CveVenta:=dr("CveVenta").ToString.ToEntero, CveCompra:=dr("CveCompra").ToString.ToEntero, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero,
|
||||
CveCliente:=dr("CveCliente").ToString.ToEntero, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CvePersonal:=dr("CvePersonal").ToString.ToEntero,
|
||||
CveMovimientoAlmacen:=dr("CveMovimientoAlmacen").ToString.ToEntero,
|
||||
CveActivoFijo:=dr("CveActivoFijo").ToString.ToEntero, CveCreditoDetalle:=dr("CveCreditoDetalle").ToString.ToEntero,
|
||||
ImporteME:=dr("Importe").ToString.ToDecimal * -1,
|
||||
ImporteME:=dr("ImporteME").ToString.ToDecimal * -1,
|
||||
TipoCambio:=dr("TC").ToString.ToDecimal,
|
||||
TipoCambioPago:=dr("TCPago").ToString.ToDecimal,
|
||||
CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
|
||||
PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
|
||||
CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
|
||||
@@ -14952,7 +14956,7 @@ Partial Class Compras_Compras
|
||||
|
||||
If GvFacturas.Visible AndAlso GvFacturas.Rows.Count > 0 Then
|
||||
|
||||
Dim IdCompras = New List(Of Integer)
|
||||
Dim IdCompras As New List(Of Integer)
|
||||
Dim TotalServicios As Decimal = 0
|
||||
|
||||
TotalServicios = TxtSubTotal.Text.ToString.ToDecimal
|
||||
@@ -15385,7 +15389,7 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Private Sub CargaSerie()
|
||||
|
||||
Dim AplicaCaducidad = False
|
||||
Dim AplicaCaducidad As Boolean = False
|
||||
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0) IsNot Nothing Then
|
||||
AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0)("AplicaCaducidad").ToString = "True", True, False)
|
||||
End If
|
||||
@@ -15411,7 +15415,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD
|
||||
Dim Contador = 0
|
||||
Dim Contador As Integer = 0
|
||||
For Each Gvr As GridViewRow In GvInv.Rows
|
||||
Gvr.FCTextBox("TbCantidad").Enabled = False
|
||||
If Gvr.DataKey("CvePS").ToEntero = CvePSSerieLote Then
|
||||
@@ -15436,8 +15440,8 @@ Partial Class Compras_Compras
|
||||
|
||||
End Sub
|
||||
Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs)
|
||||
Dim SerieLote = TxtSerieLote.Text.Replace(" ", String.Empty)
|
||||
Dim AplicaCaducidad = False
|
||||
Dim SerieLote As String = TxtSerieLote.Text.Replace(" ", String.Empty)
|
||||
Dim AplicaCaducidad As Boolean = False
|
||||
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS")
|
||||
If dr IsNot Nothing Then AplicaCaducidad = dr("AplicaCaducidad").ToString = "True"
|
||||
|
||||
@@ -15447,7 +15451,7 @@ Partial Class Compras_Compras
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim Row = DtDatosDetalle.NewRow
|
||||
Dim Row As DataRow = DtDatosDetalle.NewRow
|
||||
Row("CvePS") = CvePSSerieLote
|
||||
Row("CveUM") = CveUMSerieLote
|
||||
Row("PU") = PUSerieLote
|
||||
@@ -15462,7 +15466,7 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
|
||||
Dim Argumentos As String() = CType(sender, Button).CommandArgument.Split("°"c)
|
||||
|
||||
LbProducto.Text = Argumentos(3)
|
||||
LbCantidadSerie.Text = Argumentos(4)
|
||||
@@ -15507,16 +15511,12 @@ Partial Class Compras_Compras
|
||||
DivTC.Visible = False
|
||||
LblTC.Visible = True
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene({4, 7, 11, 12, 145}) Then
|
||||
|
||||
If CveMoneda > 1 AndAlso TipoCambio > 1 Then
|
||||
RegistraScript("$('#ModalPesos').modal('show');")
|
||||
TxtConvertirPesos.Text = If(TipoCambio > 0, TipoCambio, GlobalTipoCambio(TxtFecha.Text.ToDate)).ToString.FormatoNumero
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
TipoCambio = 1
|
||||
@@ -15526,7 +15526,6 @@ Partial Class Compras_Compras
|
||||
TxtFecha.Attributes.Add("onblur", "CambiaFecha()")
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaCuentas()
|
||||
End Sub
|
||||
Protected Sub BtnCambiaFechaTC_Click(sender As Object, e As EventArgs)
|
||||
@@ -16953,7 +16952,7 @@ Partial Class Compras_Compras
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim ErrorPS = False
|
||||
Dim ErrorPS As Boolean = False
|
||||
|
||||
'Actualiza Clasificacion directamente a la DB cuando ya se tiene alguna clasificacion
|
||||
'Solo cuando el PS ya esta registrado
|
||||
@@ -16971,7 +16970,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
If Not ErrorPS Then
|
||||
Dim index = 0
|
||||
Dim index As Integer = 0
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("CvePS").ToString.ToEntero = 0 OrElse Dr("CveClasificacion").ToString.ToEntero <= 0 Then
|
||||
'Dr("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
|
||||
|
||||
Reference in New Issue
Block a user