- parametro de cveclasificación al editar prepolizadetalle
This commit is contained in:
@@ -292,12 +292,11 @@ Public Class ClsContabilidad
|
||||
|
||||
Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
|
||||
Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
|
||||
Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, Optional TipoCambio As Decimal = -1) As Boolean
|
||||
|
||||
Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1,
|
||||
Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Conta_PrePolizasDetalleUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
|
||||
.Add("@Concepto", SqlDbType.VarChar).Value = Concepto
|
||||
@@ -318,13 +317,12 @@ Public Class ClsContabilidad
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
|
||||
.Add("@CveIE", SqlDbType.Int).Value = CveIE
|
||||
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
|
||||
Catch ex As Exception
|
||||
If ex.Message.Contains("CuentasResultados_SubProyectos") Then
|
||||
OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
|
||||
@@ -440,7 +440,7 @@
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
|
||||
<asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
|
||||
DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE" Width="100%" >
|
||||
DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" >
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Movimiento</HeaderTemplate>
|
||||
|
||||
@@ -1145,9 +1145,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim CveIEAgregado As Integer = -1
|
||||
For Each row As GridViewRow In GvPrePoliza.Rows
|
||||
If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
|
||||
If row.FCCheckBox("chkModificado").Checked Then
|
||||
If CBool(row.DataKey("Modificado")) Then
|
||||
contador = contador + 1
|
||||
|
||||
Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal)
|
||||
|
||||
If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
|
||||
@@ -1166,7 +1165,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
|
||||
CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
|
||||
CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
|
||||
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
|
||||
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
|
||||
CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
|
||||
TipoCambio:=row.DataKey("TC").ToDecimal,
|
||||
CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
|
||||
@@ -1176,8 +1175,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
Else
|
||||
contador = contador + 1
|
||||
|
||||
|
||||
Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal)
|
||||
|
||||
If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
|
||||
@@ -1192,13 +1189,13 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, False, True),
|
||||
If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal),
|
||||
If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal),
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.DataKey("TipoMovto") = "True", True, False),
|
||||
row.DataKey("Cargo").ToDecimal,
|
||||
row.DataKey("Abono").ToDecimal,
|
||||
row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text,
|
||||
CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
|
||||
CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
|
||||
CveProveedor:=row.DataKey("CveProveedor").ToEntero,
|
||||
CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
|
||||
CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
|
||||
CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
|
||||
OcurrioError = True
|
||||
@@ -1208,6 +1205,13 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
Next
|
||||
End If
|
||||
If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
|
||||
If ObjContabilidad.ValorPolizaDescuadre > 0 Then
|
||||
OcurrioError = True
|
||||
Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
|
||||
GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
End If
|
||||
@@ -1217,31 +1221,22 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
OnError("Ocurrío un error al actualizar la PrePoliza", ex)
|
||||
End Try
|
||||
|
||||
If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
|
||||
If ObjContabilidad.ValorPolizaDescuadre > 0 Then
|
||||
OcurrioError = True
|
||||
Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
|
||||
GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not OcurrioError Then
|
||||
ObjContabilidad.Commit()
|
||||
CargaPrePoliza(CvePrePoliza)
|
||||
Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False)
|
||||
Else
|
||||
ObjContabilidad.RollBack()
|
||||
Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
CargaPrePoliza(CvePrePoliza)
|
||||
|
||||
If Not OcurrioError Then
|
||||
If IdPoliza > 0 AndAlso contador > 0 Then
|
||||
Contabilizar()
|
||||
End If
|
||||
'If Not OcurrioError Then
|
||||
' If IdPoliza > 0 AndAlso contador > 0 Then
|
||||
' Contabilizar()
|
||||
' End If
|
||||
|
||||
End If
|
||||
'End If
|
||||
End Sub
|
||||
Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
|
||||
@@ -2002,6 +1997,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
For Each dRow As DataRow In DtMovimientos.Rows
|
||||
dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue
|
||||
dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text
|
||||
dRow("Modificado") = True
|
||||
Next
|
||||
|
||||
DtMovimientos.AcceptChanges()
|
||||
@@ -2011,7 +2007,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
For Each Gvr As GridViewRow In GvPrePoliza.Rows
|
||||
'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
|
||||
Gvr.FCCheckBox("chkModificado").Checked = True
|
||||
|
||||
Next
|
||||
|
||||
UpPrePoliza.Update()
|
||||
|
||||
Reference in New Issue
Block a user