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

-- cancelación, corrección de datos de prepóliza

Browse Source
This commit is contained in:
rrene
2023-09-07 15:50:46 -07:00
parent 26c4292956
commit eeeb1d169a
1 changed files with 17 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Compras/Compras.aspx.vb
View File

@@ -13120,7 +13120,8 @@ Partial Class Compras_Compras
Dim CvePrePolizaNueva As Integer = -1 Dim CvePrePolizaNueva As Integer = -1
Try 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 'DEVOLUCIÓN AUTOMATICA
If CheckDevAuto.Checked Then 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) ' 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 If CvePrePolizaNueva > 0 Then
For Each dr As DataRow In dt.Rows 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, 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, CveMovimientoAlmacen:=dr("CveMovimientoAlmacen").ToString.ToEntero,
CveActivoFijo:=dr("CveActivoFijo").ToString.ToEntero, CveCreditoDetalle:=dr("CveCreditoDetalle").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, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal, PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
@@ -14952,7 +14956,7 @@ Partial Class Compras_Compras
If GvFacturas.Visible AndAlso GvFacturas.Rows.Count > 0 Then 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 Dim TotalServicios As Decimal = 0
TotalServicios = TxtSubTotal.Text.ToString.ToDecimal TotalServicios = TxtSubTotal.Text.ToString.ToDecimal
@@ -15385,7 +15389,7 @@ Partial Class Compras_Compras
End Sub End Sub
Private Sub CargaSerie() Private Sub CargaSerie()
Dim AplicaCaducidad = False Dim AplicaCaducidad As Boolean = False
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0) IsNot Nothing Then 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) AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0)("AplicaCaducidad").ToString = "True", True, False)
End If End If
@@ -15411,7 +15415,7 @@ Partial Class Compras_Compras
End If End If
'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD '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 For Each Gvr As GridViewRow In GvInv.Rows
Gvr.FCTextBox("TbCantidad").Enabled = False Gvr.FCTextBox("TbCantidad").Enabled = False
If Gvr.DataKey("CvePS").ToEntero = CvePSSerieLote Then If Gvr.DataKey("CvePS").ToEntero = CvePSSerieLote Then
@@ -15436,8 +15440,8 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs)
Dim SerieLote = TxtSerieLote.Text.Replace(" ", String.Empty) Dim SerieLote As String = TxtSerieLote.Text.Replace(" ", String.Empty)
Dim AplicaCaducidad = False Dim AplicaCaducidad As Boolean = False
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS") Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS")
If dr IsNot Nothing Then AplicaCaducidad = dr("AplicaCaducidad").ToString = "True" If dr IsNot Nothing Then AplicaCaducidad = dr("AplicaCaducidad").ToString = "True"
@@ -15447,7 +15451,7 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End If End If
Dim Row = DtDatosDetalle.NewRow Dim Row As DataRow = DtDatosDetalle.NewRow
Row("CvePS") = CvePSSerieLote Row("CvePS") = CvePSSerieLote
Row("CveUM") = CveUMSerieLote Row("CveUM") = CveUMSerieLote
Row("PU") = PUSerieLote Row("PU") = PUSerieLote
@@ -15462,7 +15466,7 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs) 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) LbProducto.Text = Argumentos(3)
LbCantidadSerie.Text = Argumentos(4) LbCantidadSerie.Text = Argumentos(4)
@@ -15507,16 +15511,12 @@ Partial Class Compras_Compras
DivTC.Visible = False DivTC.Visible = False
LblTC.Visible = True LblTC.Visible = True
End If End If
Else Else
If UsuarioActual.CveEmpresa.Contiene({4, 7, 11, 12, 145}) Then If UsuarioActual.CveEmpresa.Contiene({4, 7, 11, 12, 145}) Then
If CveMoneda > 1 AndAlso TipoCambio > 1 Then If CveMoneda > 1 AndAlso TipoCambio > 1 Then
RegistraScript("$('#ModalPesos').modal('show');") RegistraScript("$('#ModalPesos').modal('show');")
TxtConvertirPesos.Text = If(TipoCambio > 0, TipoCambio, GlobalTipoCambio(TxtFecha.Text.ToDate)).ToString.FormatoNumero TxtConvertirPesos.Text = If(TipoCambio > 0, TipoCambio, GlobalTipoCambio(TxtFecha.Text.ToDate)).ToString.FormatoNumero
End If End If
End If End If
TipoCambio = 1 TipoCambio = 1
@@ -15526,7 +15526,6 @@ Partial Class Compras_Compras
TxtFecha.Attributes.Add("onblur", "CambiaFecha()") TxtFecha.Attributes.Add("onblur", "CambiaFecha()")
End If End If
End If End If
CargaCuentas() CargaCuentas()
End Sub End Sub
Protected Sub BtnCambiaFechaTC_Click(sender As Object, e As EventArgs) Protected Sub BtnCambiaFechaTC_Click(sender As Object, e As EventArgs)
@@ -16953,7 +16952,7 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End If End If
Dim ErrorPS = False Dim ErrorPS As Boolean = False
'Actualiza Clasificacion directamente a la DB cuando ya se tiene alguna clasificacion 'Actualiza Clasificacion directamente a la DB cuando ya se tiene alguna clasificacion
'Solo cuando el PS ya esta registrado 'Solo cuando el PS ya esta registrado
@@ -16971,7 +16970,7 @@ Partial Class Compras_Compras
End If End If
If Not ErrorPS Then If Not ErrorPS Then
Dim index = 0 Dim index As Integer = 0
For Each Dr As DataRow In TmpDT.Rows For Each Dr As DataRow In TmpDT.Rows
If Dr("CvePS").ToString.ToEntero = 0 OrElse Dr("CveClasificacion").ToString.ToEntero <= 0 Then If Dr("CvePS").ToString.ToEntero = 0 OrElse Dr("CveClasificacion").ToString.ToEntero <= 0 Then
'Dr("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero 'Dr("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero