-- registro de pago de créditos
This commit is contained in:
@@ -1034,34 +1034,28 @@ Partial Class Bancos_IE
|
|||||||
IDPoliza = ObjIE.IDPoliza
|
IDPoliza = ObjIE.IDPoliza
|
||||||
IDCtaContable = ObjIE.IdCtaContable
|
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
|
End If
|
||||||
BtnDescontabilizar.Visible = True
|
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
|
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
|
End If
|
||||||
|
|
||||||
UPPDesContabilizar.Update()
|
UPPDesContabilizar.Update()
|
||||||
|
|
||||||
'ImgImprimir.Visible = True
|
'ImgImprimir.Visible = True
|
||||||
@@ -1416,9 +1410,9 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
|
IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
|
||||||
|
|
||||||
If Not IDCtaBeneficiario > 0 Then
|
'If Not IDCtaBeneficiario > 0 Then
|
||||||
Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
|
' Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -2651,6 +2645,7 @@ Partial Class Bancos_IE
|
|||||||
Case "P" 'Proveedores
|
Case "P" 'Proveedores
|
||||||
If CveProveedor > 0 Then
|
If CveProveedor > 0 Then
|
||||||
CveConceptoCompra = 10 'Anticipo a proveedor
|
CveConceptoCompra = 10 'Anticipo a proveedor
|
||||||
|
If CveMoneda = 2 Then CveConceptoCompra = 338
|
||||||
CveConceptoContable = 30 'Pago a Proveedor
|
CveConceptoContable = 30 'Pago a Proveedor
|
||||||
CvePlantillaPoliza = 3
|
CvePlantillaPoliza = 3
|
||||||
End If
|
End If
|
||||||
@@ -2720,7 +2715,11 @@ Partial Class Bancos_IE
|
|||||||
Dim FolioFijo As Integer = 0
|
Dim FolioFijo As Integer = 0
|
||||||
Dim tCveMoneda As Integer = CveMoneda
|
Dim tCveMoneda As Integer = CveMoneda
|
||||||
Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal
|
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 = ""
|
Dim PagueseA = ""
|
||||||
|
|
||||||
If HdnCveCliente.Value.ToEntero > 0 Then
|
If HdnCveCliente.Value.ToEntero > 0 Then
|
||||||
@@ -2884,7 +2883,7 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
Select Case ConceptoContable
|
Select Case ConceptoContable
|
||||||
|
|
||||||
Case 10
|
Case 10, 338
|
||||||
If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then
|
If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then
|
||||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||||
importeMX = importeMovimiento
|
importeMX = importeMovimiento
|
||||||
@@ -3596,71 +3595,76 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
Dim ConceptoContable As Integer
|
Dim ConceptoContable As Integer
|
||||||
Dim TipoMovimiento As Boolean
|
Dim TipoMovimiento As Boolean
|
||||||
Dim importeMovimiento As Decimal
|
Dim importeMovimiento As Decimal = TxtImporte.Text.ToDecimal
|
||||||
Dim FechaMovimiento As Date = Now
|
Dim FechaMovimiento As Date = Now
|
||||||
Dim Concepto As String = ""
|
Dim Concepto As String = ""
|
||||||
Dim Referencia As String = PagueseA
|
Dim Referencia As String = PagueseA
|
||||||
|
Dim CveCredito As Integer
|
||||||
|
|
||||||
Dim importeMX As Decimal
|
CveCredito = IfNull(Request("CveCredito"), "-1").ToString.ToEntero
|
||||||
Dim Multiplicador As Integer
|
CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
|
||||||
|
Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
|
||||||
|
|
||||||
If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
|
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."
|
||||||
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
|
|
||||||
End If
|
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
|
Case Else
|
||||||
Dim TipoMovimiento As Boolean = True
|
Dim TipoMovimiento As Boolean = True
|
||||||
|
|
||||||
@@ -3681,7 +3685,7 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
|
|
||||||
'MOVIMIENTOS EGRESOS
|
'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
|
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 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
|
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
|
If tCveMoneda > 1 And UsaComplementariaBancos Then
|
||||||
Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
|
Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
|
||||||
Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
|
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"
|
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If CveConceptoCompra = 10 Then
|
If CveConceptoCompra.Contiene(10, 338, 48) 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 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"
|
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -3873,8 +3877,12 @@ Partial Class Bancos_IE
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If IDPoliza > 0 Then
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
|
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
|
End If
|
||||||
|
|
||||||
'AUTO DESCARGAR PDF PARA COMPU
|
'AUTO DESCARGAR PDF PARA COMPU
|
||||||
@@ -3888,7 +3896,7 @@ Partial Class Bancos_IE
|
|||||||
Else
|
Else
|
||||||
ObjIE.RollBack()
|
ObjIE.RollBack()
|
||||||
Alert(MsgError, TipoMensaje.MsgAdvertencia)
|
Alert(MsgError, TipoMensaje.MsgAdvertencia)
|
||||||
If Opcion = "INGPC" Then
|
If Opcion.Contiene("INGPC", "EGSCREDITO") Then
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user