This commit is contained in:
HECTOR RODRIGUEZ
@@ -972,12 +972,12 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim TotalCargos, TotalAbonos As Decimal
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
TotalCargos = TxtTotalCargos.Text.ToDecimal
|
||||
TotalAbonos = TxtTotalAbonos.Text.ToDecimal
|
||||
TotalCargos = TxtTotalCargos.Text.ToDecimal()
|
||||
TotalAbonos = TxtTotalAbonos.Text.ToDecimal()
|
||||
Else
|
||||
For Each Gvr As GridViewRow In GvMov.Rows
|
||||
TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal
|
||||
TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal
|
||||
TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal()
|
||||
TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal()
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -993,17 +993,18 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim MensajeAlert = New StringBuilder
|
||||
Dim ObjIE As New ClsBancos()
|
||||
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
|
||||
' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
|
||||
Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
|
||||
Dim Conta As ClsContPAQi = Nothing
|
||||
Dim IDPoliza As Integer = 0
|
||||
Dim MsgError As String = ""
|
||||
Dim CveIE As Integer
|
||||
Dim CveIE As Integer = -1
|
||||
Dim CveIEInsertado As Integer = -1
|
||||
Dim FolioIE As String = ""
|
||||
|
||||
Try
|
||||
Dim CvePrePoliza As Integer
|
||||
Dim ConceptoPoliza As String = TxtObservaciones.Text
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero)
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero(), TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero())
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
|
||||
@@ -1011,65 +1012,72 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim Importe As Double = 0
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim IdCtaContable As Integer = 0
|
||||
|
||||
Dim PorcentajeImpuesto As Decimal = 0
|
||||
Dim CveProveedor As Integer = -1
|
||||
Dim CveCompra As Integer = -1
|
||||
|
||||
'inserto las compras que voy a pagarDdlSaldos
|
||||
For Each gvr As GridViewRow In GvMov.Rows
|
||||
'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
|
||||
' IdCtaContable = gvr.DataKey("IDCuenta")
|
||||
'End If
|
||||
|
||||
'Registra movimieno bancario
|
||||
If gvr.DataKey("CveConcepto").ToEntero = 30 Then
|
||||
|
||||
CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
|
||||
gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
|
||||
False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
If CveIE < 0 Then
|
||||
MsgError = "No se pudo registrar movimiento bancario"
|
||||
Exit For
|
||||
End If
|
||||
'If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
' FolioIE = ObjIE.Folio
|
||||
'End If
|
||||
If gvr.DataKey("IDCuenta").ToEntero() > 0 Then
|
||||
IdCtaContable = gvr.DataKey("IDCuenta")
|
||||
End If
|
||||
CveProveedor = gvr.DataKey("CveProveedor").ToEntero()
|
||||
CveCompra = gvr.DataKey("CveCompra").ToEntero()
|
||||
CveConcepto = gvr.DataKey("CveConcepto").ToEntero()
|
||||
|
||||
|
||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
||||
If gvr.DataKey("TipoMovto").ToDouble <> 0 Then
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||
TipoMovto = True
|
||||
Else
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
|
||||
TipoMovto = False
|
||||
End If
|
||||
'Registra pago de compra
|
||||
If CveConcepto = 17 Then
|
||||
CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero()
|
||||
CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero()
|
||||
End If
|
||||
|
||||
If gvr.DataKey("CveConcepto").ToEntero <> 30 Then
|
||||
If CveConcepto = 41 Then
|
||||
CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero()
|
||||
Else
|
||||
If CveConcepto = 30 AndAlso Importe <> 0 Then
|
||||
'Registra movimieno bancario
|
||||
If CveConcepto = 30 Then
|
||||
|
||||
CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
|
||||
gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
|
||||
False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
|
||||
CveIEInsertado = CveIE
|
||||
If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
FolioIE = ObjIE.Folio
|
||||
End If
|
||||
End If
|
||||
|
||||
CveIE = CveIEInsertado
|
||||
|
||||
If gvr.DataKey("CveConcepto").ToEntero = 41 Then
|
||||
CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
|
||||
Else
|
||||
CveIE = -1
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
|
||||
idCuentaContabilizacion = 0
|
||||
End If
|
||||
|
||||
If Importe <> 0 Then
|
||||
Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
|
||||
|
||||
'If gvr.datakey("CveConcepto") = "299" Then
|
||||
' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
|
||||
'End If
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
|
||||
TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
|
||||
CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
|
||||
CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
|
||||
ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
|
||||
CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero(), gvr.FCTextBox("TxtConcepto").Text,
|
||||
TxtFecha.Text.ToDate(), IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), CveIE:=CveIE,
|
||||
CveProveedor:=CveProveedor, CveCompra:=CveCompra,
|
||||
CvePersonal:=gvr.DataKey("CvePersonal").ToEntero(), CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero(),
|
||||
ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(),
|
||||
CveCliente:=gvr.DataKey("CveCliente").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToEntero(), TipoCambio:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, gvr.DataKey("TC").ToString().ToDecimal(), 1),
|
||||
ImporteME:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, (Importe / (gvr.DataKey("TC").ToString().ToDecimal() - 1)).RoundSQL, 0),
|
||||
PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal(), CveCuenta:=gvr.DataKey("CveCuenta").ToEntero()) Then
|
||||
Else
|
||||
MsgError = "No se pudo insertar el detalle de la póliza2"
|
||||
Exit For
|
||||
@@ -1080,61 +1088,73 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
End If
|
||||
Next
|
||||
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
|
||||
|
||||
'If CvePeriodo > 0 Then
|
||||
' If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
' MsgError = "No se pudo actualizar el periodo de la nómina"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
|
||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||
GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
MsgError = ObjMov.MensajePolizaDescuadre
|
||||
MsgError = ObjMov.MensajePolizaDescuadre & "-"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'El movimiento 2 es el de Pago
|
||||
If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
|
||||
If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
|
||||
If idCuentaContabilizacion > 0 Then
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
|
||||
'MENSAJE PRINCIPAL
|
||||
MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
|
||||
'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
|
||||
MensajeAlert.AppendFormat("<br/><br/>Folio de Póliza: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
|
||||
MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
|
||||
'Alert(MensajeAlert.Tostring(), ModExtensiones.TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
|
||||
End If
|
||||
Else
|
||||
Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
|
||||
End If
|
||||
Else
|
||||
MensajeAlert.AppendFormat("<br/><br/>Folio: <b><a href = ""/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgError = "Error"
|
||||
End Try
|
||||
|
||||
If MsgError = "" Then
|
||||
|
||||
'MENSAJE IE
|
||||
If CveIE Then
|
||||
Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
If CveIE > 0 Then
|
||||
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
|
||||
Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
Else
|
||||
Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
Alert(If(MensajeAlert.ToString() = "", "Se registro con exito.", MensajeAlert.ToString()), TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||
End If
|
||||
|
||||
ObjIE.Commit()
|
||||
If Conta IsNot Nothing Then Conta.Commit()
|
||||
|
||||
UPPDocumento.Update()
|
||||
|
||||
TxtObservaciones.Text = ""
|
||||
GvMov.DataBind()
|
||||
TxtFecha.Text = ""
|
||||
TxtObservaciones.Text = ""
|
||||
'UPPDocumento.Update()
|
||||
'TxtObservaciones.Text = ""
|
||||
'GvMov.DataBind()
|
||||
'TxtFecha.Text = ""
|
||||
'TxtObservaciones.Text = ""
|
||||
Else
|
||||
Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
|
||||
MsgError.GuardaLogAD()
|
||||
ObjIE.RollBack()
|
||||
If Conta IsNot Nothing Then Conta.RollBack()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ex.GuardaLog(ex.Message)
|
||||
ObjIE.RollBack()
|
||||
If Conta IsNot Nothing Then Conta.RollBack()
|
||||
Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
ObjIE.Dispose()
|
||||
ObjMov.Dispose()
|
||||
|
||||
Reference in New Issue
Block a user