-- registro de pago de créditos
This commit is contained in:
@@ -1034,34 +1034,28 @@ Partial Class Bancos_IE
|
||||
IDPoliza = ObjIE.IDPoliza
|
||||
IDCtaContable = ObjIE.IdCtaContable
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If ObjIE.IDPoliza > 0 Then
|
||||
|
||||
If ObjIE.IDPoliza > 0 Then
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(107) Then
|
||||
BtnDescontabilizar.Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(107) Then
|
||||
BtnDescontabilizar.Visible = True
|
||||
End If
|
||||
BtnContabilizar.Visible = False
|
||||
HplIrPoliza.Visible = True
|
||||
HplIrPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", ObjIE.IDPoliza)
|
||||
'ImgEliminarMovimiento.OnClientClick = "return confirm('Esta seguro de eliminar el documento y su póliza?');"
|
||||
LnkEliminar.OnClientClick = "return confirm('¿Está seguro de eliminar el documento y su póliza?');"
|
||||
EstaContabilizado = True
|
||||
TxtFechaDocumento.Enabled = False
|
||||
ImgCalendario.Visible = False
|
||||
Else
|
||||
BtnContabilizar.Visible = True
|
||||
BtnDescontabilizar.Visible = False
|
||||
HplIrPoliza.Visible = False
|
||||
EstaContabilizado = False
|
||||
End If
|
||||
BtnContabilizar.Visible = False
|
||||
HplIrPoliza.Visible = True
|
||||
HplIrPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", ObjIE.IDPoliza)
|
||||
'ImgEliminarMovimiento.OnClientClick = "return confirm('Esta seguro de eliminar el documento y su póliza?');"
|
||||
LnkEliminar.OnClientClick = "return confirm('¿Está seguro de eliminar el documento y su póliza?');"
|
||||
|
||||
EstaContabilizado = True
|
||||
|
||||
TxtFechaDocumento.Enabled = False
|
||||
ImgCalendario.Visible = False
|
||||
|
||||
|
||||
Else
|
||||
BtnContabilizar.Visible = True
|
||||
BtnDescontabilizar.Visible = False
|
||||
HplIrPoliza.Visible = False
|
||||
EstaContabilizado = False
|
||||
|
||||
'TxtFechaDocumento.Enabled = True
|
||||
'ImgCalendario.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
UPPDesContabilizar.Update()
|
||||
|
||||
'ImgImprimir.Visible = True
|
||||
@@ -1416,9 +1410,9 @@ Partial Class Bancos_IE
|
||||
|
||||
IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
|
||||
|
||||
If Not IDCtaBeneficiario > 0 Then
|
||||
Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
'If Not IDCtaBeneficiario > 0 Then
|
||||
' Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -2651,6 +2645,7 @@ Partial Class Bancos_IE
|
||||
Case "P" 'Proveedores
|
||||
If CveProveedor > 0 Then
|
||||
CveConceptoCompra = 10 'Anticipo a proveedor
|
||||
If CveMoneda = 2 Then CveConceptoCompra = 338
|
||||
CveConceptoContable = 30 'Pago a Proveedor
|
||||
CvePlantillaPoliza = 3
|
||||
End If
|
||||
@@ -2720,7 +2715,11 @@ Partial Class Bancos_IE
|
||||
Dim FolioFijo As Integer = 0
|
||||
Dim tCveMoneda As Integer = CveMoneda
|
||||
Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal
|
||||
If tCveMoneda <> 1 Then tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL
|
||||
Dim tImporteMonedaME As Decimal = 0
|
||||
If tCveMoneda <> 1 Then
|
||||
tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL
|
||||
tImporteMonedaME = TxtImporte.Text.ToDecimal
|
||||
End If
|
||||
Dim PagueseA = ""
|
||||
|
||||
If HdnCveCliente.Value.ToEntero > 0 Then
|
||||
@@ -2884,7 +2883,7 @@ Partial Class Bancos_IE
|
||||
|
||||
Select Case ConceptoContable
|
||||
|
||||
Case 10
|
||||
Case 10, 338
|
||||
If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
@@ -3596,71 +3595,76 @@ Partial Class Bancos_IE
|
||||
|
||||
Dim ConceptoContable As Integer
|
||||
Dim TipoMovimiento As Boolean
|
||||
Dim importeMovimiento As Decimal
|
||||
Dim importeMovimiento As Decimal = TxtImporte.Text.ToDecimal
|
||||
Dim FechaMovimiento As Date = Now
|
||||
Dim Concepto As String = ""
|
||||
Dim Referencia As String = PagueseA
|
||||
Dim CveCredito As Integer
|
||||
|
||||
Dim importeMX As Decimal
|
||||
Dim Multiplicador As Integer
|
||||
CveCredito = IfNull(Request("CveCredito"), "-1").ToString.ToEntero
|
||||
CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
|
||||
Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
|
||||
|
||||
If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
|
||||
|
||||
For Each Row As DataRow In ObjMov.DtResultados.Rows
|
||||
|
||||
ConceptoContable = Row("CveConcepto").ToString.ToEntero
|
||||
TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
|
||||
importeMovimiento = 0
|
||||
Multiplicador = (Row("Multiplicador").ToString.ToEntero)
|
||||
Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
|
||||
|
||||
Select Case ConceptoContable
|
||||
|
||||
Case 30
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
If tCveMoneda > 1 Then
|
||||
'Agregamos complementaria
|
||||
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
|
||||
End If
|
||||
End If
|
||||
Case 42
|
||||
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
If tCveMoneda > 1 Then
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
End If
|
||||
|
||||
|
||||
Case 46
|
||||
If TxtInteresMoratorio.Text.ToDecimal > 0 Then
|
||||
importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
importeMX = 0
|
||||
End If
|
||||
Case 48
|
||||
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
importeMX = importeMovimiento
|
||||
|
||||
End Select
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 57, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
|
||||
End If
|
||||
|
||||
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Concepto, 30, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
|
||||
End If
|
||||
|
||||
If MsgError = "" AndAlso tCveMoneda > 1 Then
|
||||
'Agregamos complementaria
|
||||
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCredito:=CveCredito) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento del ingreso."
|
||||
End If
|
||||
End If
|
||||
|
||||
'Select Case ConceptoContable
|
||||
|
||||
' Case 30
|
||||
' importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
' importeMX = importeMovimiento
|
||||
|
||||
' Case 42
|
||||
|
||||
' importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
' importeMX = importeMovimiento
|
||||
' If tCveMoneda > 1 Then
|
||||
' importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
|
||||
' importeMX = importeMovimiento
|
||||
' End If
|
||||
|
||||
' Case 57
|
||||
|
||||
' importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
' importeMX = importeMovimiento
|
||||
' If tCveMoneda > 1 Then
|
||||
' importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
|
||||
' importeMX = importeMovimiento
|
||||
' End If
|
||||
|
||||
' Case 46
|
||||
' If TxtInteresMoratorio.Text.ToDecimal > 0 Then
|
||||
' importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
|
||||
' importeMX = importeMovimiento
|
||||
' Else
|
||||
' importeMovimiento = 0
|
||||
' importeMX = 0
|
||||
' End If
|
||||
|
||||
|
||||
'End Select
|
||||
|
||||
' If importeMovimiento <> 0 Then
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
' MsgError = "Ocurrió un error al registrar el asiento del ingreso."
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
Case Else
|
||||
Dim TipoMovimiento As Boolean = True
|
||||
|
||||
@@ -3681,7 +3685,7 @@ Partial Class Bancos_IE
|
||||
|
||||
|
||||
'MOVIMIENTOS EGRESOS
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=Importe30, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=Importe30, ImporteME:=tImporteMonedaME, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
|
||||
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
@@ -3702,12 +3706,12 @@ Partial Class Bancos_IE
|
||||
If tCveMoneda > 1 And UsaComplementariaBancos Then
|
||||
Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
|
||||
Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=tImporteMonedaME, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
|
||||
If CveConceptoCompra = 10 Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
If CveConceptoCompra.Contiene(10, 338, 48) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, If(CveConceptoCompra = 10, 266, 340), Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
End If
|
||||
@@ -3873,8 +3877,12 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
End If
|
||||
|
||||
If IDPoliza > 0 Then
|
||||
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
|
||||
Else
|
||||
If IDPoliza > 0 Then
|
||||
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
|
||||
End If
|
||||
End If
|
||||
|
||||
'AUTO DESCARGAR PDF PARA COMPU
|
||||
@@ -3888,7 +3896,7 @@ Partial Class Bancos_IE
|
||||
Else
|
||||
ObjIE.RollBack()
|
||||
Alert(MsgError, TipoMensaje.MsgAdvertencia)
|
||||
If Opcion = "INGPC" Then
|
||||
If Opcion.Contiene("INGPC", "EGSCREDITO") Then
|
||||
CveIE = -1
|
||||
End If
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user