-- limpieza de código de mandar idcta de contpaq
This commit is contained in:
@@ -5,8 +5,6 @@ Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports System.Web.Services
|
||||
Imports System.IO
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports System.Xml
|
||||
|
||||
Partial Class Bancos_IE
|
||||
Inherits ClsPaginas
|
||||
@@ -232,38 +230,7 @@ Partial Class Bancos_IE
|
||||
ViewState("Opcion") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IDCtaContable As Integer
|
||||
Get
|
||||
Return ViewState("IDCtaContable").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IDCtaContable") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IDCtaContableComplementaria As Integer
|
||||
Get
|
||||
Return ViewState("IDCtaContableComplementaria").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IDCtaContableComplementaria") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IDCtaBeneficiario As Integer
|
||||
Get
|
||||
Return ViewState("IDCtaBeneficiario").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IDCtaBeneficiario") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IDCtaBeneficiarioComplementaria As Integer
|
||||
Get
|
||||
Return ViewState("IDCtaBeneficiarioComplementaria").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IDCtaBeneficiarioComplementaria") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CvePrePoliza As Integer
|
||||
Get
|
||||
Return ViewState("CvePrePoliza").ToString.ToEntero
|
||||
@@ -433,8 +400,6 @@ Partial Class Bancos_IE
|
||||
ViewState("ComprobanteIE") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property PorcentajeCompraDevDinC As Decimal
|
||||
Get
|
||||
Return ViewState("PorcentajeCompraDevDinC").ToString.ToDecimal
|
||||
@@ -443,23 +408,6 @@ Partial Class Bancos_IE
|
||||
ViewState("PorcentajeCompraDevDinC") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCtaAnticipoComplementaria As Integer
|
||||
Get
|
||||
Return ViewState("IdCtaAnticipoComplementaria").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IdCtaAnticipoComplementaria") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCtaAnticipoExtranjera As Integer
|
||||
Get
|
||||
Return ViewState("IdCtaAnticipoExtranjera").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IdCtaAnticipoExtranjera") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveEstatusIE As Integer
|
||||
Get
|
||||
If ViewState("CveEstatusIE") Is Nothing Then
|
||||
@@ -500,7 +448,6 @@ Partial Class Bancos_IE
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property Masivonotas As Boolean
|
||||
Get
|
||||
|
||||
@@ -633,11 +580,6 @@ Partial Class Bancos_IE
|
||||
|
||||
Me.CveCorte = -1
|
||||
Folio = ""
|
||||
IDCtaBeneficiario = 0
|
||||
IDCtaBeneficiarioComplementaria = 0
|
||||
IDCtaContable = 0
|
||||
IdCtaAnticipoComplementaria = 0
|
||||
IdCtaAnticipoExtranjera = 0
|
||||
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
|
||||
TxtImporte.Attributes.Add("onblur", "upIE(this);FncImporteCuenta(this);")
|
||||
'Calendario.StartDate = Now.AddMonths(-2).FirstDayOfMonth()
|
||||
@@ -1042,7 +984,6 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
IDPoliza = ObjIE.IDPoliza
|
||||
IDCtaContable = ObjIE.IdCtaContable
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If ObjIE.IDPoliza > 0 Then
|
||||
@@ -1393,53 +1334,11 @@ Partial Class Bancos_IE
|
||||
RBL.Enabled = False
|
||||
DdlProveedores.Visible = True
|
||||
DdlProveedores.Enabled = True
|
||||
|
||||
IDCtaBeneficiarioComplementaria = ObjProveedor.IdCtaContProveedoresComplementaria
|
||||
|
||||
DdlProveedores.SelectedText = ObjProveedor.NombreComercial
|
||||
DdlProveedores.SelectedValue = ObjProveedor.CveProveedor.ToString
|
||||
DivOtrosIngresosEgresos.Visible = True
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Select Case RBL.SelectedValue
|
||||
Case "P"
|
||||
IDCtaBeneficiario = ObjProveedor.IdCtaContAnticipos
|
||||
IdCtaAnticipoExtranjera = ObjProveedor.IdCtaContAnticiposExtranjera : IdCtaAnticipoComplementaria = ObjProveedor.IdCtaContAnticiposComplementaria
|
||||
If EsDevolucion Then
|
||||
IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
|
||||
End If
|
||||
Case "DD" : IDCtaBeneficiario = ObjProveedor.IdCtaContDeudor
|
||||
Case "AC" : IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
|
||||
Case "DP" : IDCtaBeneficiario = ObjProveedor.IdCtaContDocsXPagar
|
||||
Case Else
|
||||
IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
|
||||
End Select
|
||||
|
||||
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
|
||||
|
||||
IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
|
||||
|
||||
'If Not IDCtaBeneficiario > 0 Then
|
||||
' Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
' If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
' Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
' BtnGuardar.Enabled = False
|
||||
' Else
|
||||
' BtnGuardar.Enabled = True
|
||||
' End If
|
||||
' UpGuardar.Update()
|
||||
'End If
|
||||
|
||||
CargaCuentasDepositos()
|
||||
Else
|
||||
Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -1511,13 +1410,9 @@ Partial Class Bancos_IE
|
||||
HdnProvPorIVA.Value = "0" 'ObjProveedor.IVA.ToString
|
||||
HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString
|
||||
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
|
||||
IDCtaBeneficiario = ObjCliente.IdCtaContAnticipos
|
||||
IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompAnticipos
|
||||
CorreoCobranzaCliente = ObjCliente.CobranzaCorreo
|
||||
|
||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinV" Then
|
||||
IDCtaBeneficiario = ObjCliente.IdCtaContClientes
|
||||
IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompClientes
|
||||
DdlCliente.SelectedText = ObjCliente.NombreComercial
|
||||
DdlCliente.SelectedValue = ObjCliente.CveCliente.ToString
|
||||
DivOtrosIngresosEgresos.Visible = True
|
||||
@@ -1525,16 +1420,6 @@ Partial Class Bancos_IE
|
||||
TxtImporte.Attributes.Add(“readonly”, “readonly”)
|
||||
End If
|
||||
|
||||
'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
' If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
|
||||
' Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
' BtnGuardar.Enabled = False
|
||||
' Else
|
||||
' BtnGuardar.Enabled = True
|
||||
' End If
|
||||
' UpGuardar.Update()
|
||||
'End If
|
||||
|
||||
CargaCuentasDepositos()
|
||||
|
||||
Else
|
||||
@@ -1582,18 +1467,6 @@ Partial Class Bancos_IE
|
||||
HdnProvPorIVA.Value = "0" 'ObjProveedor.IVA.ToString
|
||||
HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString
|
||||
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
|
||||
IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal
|
||||
|
||||
'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
' If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
|
||||
' Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
' BtnGuardar.Enabled = False
|
||||
' Else
|
||||
' BtnGuardar.Enabled = True
|
||||
' End If
|
||||
' UpGuardar.Update()
|
||||
'End If
|
||||
|
||||
CargaCuentasDepositos()
|
||||
Else
|
||||
Alert("El Personal solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -1662,8 +1535,6 @@ Partial Class Bancos_IE
|
||||
If dr IsNot Nothing Then
|
||||
|
||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
IDCtaContable = dr("IdCtaContable").ToString.ToEntero
|
||||
IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero
|
||||
CambiaTipoMoneda()
|
||||
|
||||
If Opcion IsNot Nothing AndAlso Opcion.Contiene("EGSSINFACT") Then
|
||||
@@ -1696,11 +1567,6 @@ Partial Class Bancos_IE
|
||||
Else
|
||||
DivTarjeta.Visible = False
|
||||
End If
|
||||
|
||||
If Not IDCtaContable > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
|
||||
Alert("La Cuenta Bancaria no tiene asignada una cuenta contable", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then
|
||||
@@ -2823,11 +2689,11 @@ Partial Class Bancos_IE
|
||||
Dim DtIE As DataTable = Mov.DtResultados
|
||||
For Each dr As DataRow In DtIE.Rows
|
||||
|
||||
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, dr("Importe").ToString.ToDecimal), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, -dr("Importe").ToString.ToDecimal), ImporteME:=tImporteMonedaExtranjera) Then
|
||||
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, dr("Importe").ToString.ToDecimal), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, 0, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, -dr("Importe").ToString.ToDecimal), ImporteME:=tImporteMonedaExtranjera) Then
|
||||
MsgError = "no se pudo insertar el detalle de la póliza 2"
|
||||
End If
|
||||
Next
|
||||
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
|
||||
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
|
||||
|
||||
End If
|
||||
Mov.Dispose()
|
||||
@@ -2837,7 +2703,7 @@ Partial Class Bancos_IE
|
||||
|
||||
Dim Mov As New ClsMovimientos
|
||||
'INGxC
|
||||
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
|
||||
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, 0, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
|
||||
|
||||
If TxtIvaIxC.Text.ToDouble > 0 Then
|
||||
Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
|
||||
@@ -2846,12 +2712,12 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
'Bancos
|
||||
ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDecimal, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
|
||||
ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDecimal, Ref, 30, Conc, Now, 0, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
|
||||
Mov.Dispose()
|
||||
|
||||
Else
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, 0, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera) Then
|
||||
MsgError = "no se pudo insertar el detalle de la póliza 2"
|
||||
End If
|
||||
Else
|
||||
@@ -2958,7 +2824,7 @@ Partial Class Bancos_IE
|
||||
'Agregamos complementaria
|
||||
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, 0, -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
|
||||
|
||||
@@ -2974,7 +2840,7 @@ Partial Class Bancos_IE
|
||||
'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
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, 0, -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
|
||||
Else
|
||||
@@ -2987,7 +2853,7 @@ Partial Class Bancos_IE
|
||||
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
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, 0, -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
|
||||
@@ -2998,7 +2864,6 @@ Partial Class Bancos_IE
|
||||
|
||||
|
||||
Case "DevDinV"
|
||||
Dim IdCtaContableAplicar = -1
|
||||
Dim ImporteAplicar = 0.0D
|
||||
Dim ImporteAplicarMN = 0.0D
|
||||
Dim ImporteAplicarME = 0.0D
|
||||
@@ -3016,8 +2881,7 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
'BANCOS
|
||||
IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, 0, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
@@ -3025,7 +2889,7 @@ Partial Class Bancos_IE
|
||||
'BANCOS COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)) - ImporteAplicar).RoundSQL()
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, 0, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
End If
|
||||
@@ -3040,25 +2904,22 @@ Partial Class Bancos_IE
|
||||
TipoMovtoIE = True
|
||||
Impo = Math.Abs(Impo)
|
||||
CveConcIE = 78
|
||||
IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
||||
Else
|
||||
TipoMovtoIE = False
|
||||
Impo = Math.Abs(Impo)
|
||||
CveConcIE = 211
|
||||
IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
|
||||
End If
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0, CveSubProyecto:=tCveSub) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, 0, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0, CveSubProyecto:=tCveSub) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
End If
|
||||
|
||||
'CANCELA NC
|
||||
IdCtaContableAplicar = IDCtaBeneficiario
|
||||
ImporteAplicar = ImporteAplicar - Impo
|
||||
ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, 0, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
@@ -3076,9 +2937,8 @@ Partial Class Bancos_IE
|
||||
ImporteAplicar = (Dr("Importe").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
|
||||
ImporteAplicarMN = (Dr("ImporteMN").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
|
||||
ImporteAplicarME = (Dr("ImporteME").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
|
||||
IdCtaContableAplicar = Dr("IdCtaContable").ToString.ToEntero
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, 0, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||
Select Case CveConceptoContableAplciar
|
||||
Case 13
|
||||
CveConceptoContableAplciar = 61
|
||||
@@ -3090,7 +2950,7 @@ Partial Class Bancos_IE
|
||||
CveConceptoContableAplciar = 39
|
||||
End Select
|
||||
TipoMovtoAplicar = Not TipoMovtoAplicar
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, 0, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
@@ -3098,14 +2958,10 @@ Partial Class Bancos_IE
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
Case "DevDinC"
|
||||
'asdasdasd
|
||||
'asdasdasdasd
|
||||
Dim IdCtaContableAplicar = -1
|
||||
Dim ImporteAplicar = 0.0D
|
||||
Dim ImporteAplicarMN = 0.0D
|
||||
Dim ImporteAplicarME = 0.0D
|
||||
@@ -3117,7 +2973,6 @@ Partial Class Bancos_IE
|
||||
ImporteAplicar = TxtImporte.Text.ToDecimal
|
||||
ImporteAplicarME = ImporteAplicar
|
||||
|
||||
|
||||
'CONSIDERA COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
ImporteAplicarMN = ImporteAplicar
|
||||
@@ -3128,25 +2983,19 @@ Partial Class Bancos_IE
|
||||
Dim TCCompra As Decimal = 1
|
||||
Dim TCDocumento As Decimal = 1
|
||||
|
||||
|
||||
'BANCOS
|
||||
IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
|
||||
|
||||
If Masivonotas Then
|
||||
|
||||
For Each GvRow As GridViewRow In GvA.Rows
|
||||
If GvRow.RowType = DataControlRowType.DataRow AndAlso GvRow.FCCheckBox("Chk").Checked Then
|
||||
|
||||
|
||||
Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate
|
||||
|
||||
If tCveMoneda > 1 Then
|
||||
|
||||
TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal
|
||||
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
|
||||
|
||||
@@ -3157,15 +3006,10 @@ Partial Class Bancos_IE
|
||||
If TCDocumento <= 0 Then
|
||||
Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ImporteAplicar = GvRow.DataKey("Saldo").ToDecimal
|
||||
ImporteAplicarME = ImporteAplicar
|
||||
|
||||
|
||||
'CONSIDERA COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
ImporteAplicarMN = ImporteAplicar
|
||||
@@ -3173,7 +3017,6 @@ Partial Class Bancos_IE
|
||||
ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||
End If
|
||||
|
||||
|
||||
If tCveMoneda > 1 Then
|
||||
|
||||
TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal
|
||||
@@ -3186,53 +3029,24 @@ Partial Class Bancos_IE
|
||||
If TCDocumento <= 0 Then
|
||||
Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {ImporteAplicar} NC:{GvRow.DataKey("SerieFolio")}"
|
||||
|
||||
CveCompraDeCDin = GvRow.DataKey("CveCompra").ToEntero
|
||||
|
||||
''
|
||||
|
||||
'BANCOS COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
|
||||
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
End If
|
||||
|
||||
''OTROS INGRESOS/EGRESOS
|
||||
'If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
|
||||
' Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||
' Dim TipoMovtoIE As Boolean = False
|
||||
' Dim CveConcIE As Integer = 78
|
||||
' If Impo > 0 Then
|
||||
' TipoMovtoIE = True
|
||||
' Impo = Math.Abs(Impo)
|
||||
' CveConcIE = 78
|
||||
' IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
||||
' Else
|
||||
' TipoMovtoIE = False
|
||||
' Impo = Math.Abs(Impo)
|
||||
' CveConcIE = 211
|
||||
' IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
|
||||
' End If
|
||||
|
||||
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento) Then
|
||||
' MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
' Exit Select
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'CANCELA NC
|
||||
IdCtaContableAplicar = IDCtaBeneficiario
|
||||
ImporteAplicar = ImporteAplicar '- TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||
ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
@@ -3246,7 +3060,7 @@ Partial Class Bancos_IE
|
||||
|
||||
ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
|
||||
@@ -3298,16 +3112,12 @@ Partial Class Bancos_IE
|
||||
Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
|
||||
PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
|
||||
|
||||
'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
|
||||
'Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||
'Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||
Dim IVADevMN As Decimal = 0
|
||||
Dim IEPSDevMN As Decimal = 0
|
||||
Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2)
|
||||
|
||||
IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2)
|
||||
IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2)
|
||||
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
|
||||
|
||||
If tCveMoneda > 1 Then
|
||||
IVADevMN = IVADev
|
||||
@@ -3321,74 +3131,36 @@ Partial Class Bancos_IE
|
||||
|
||||
If IVADev > 0 Then
|
||||
|
||||
' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, -IVADevMN, 14, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
|
||||
' IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, -IVADevMN, 19, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
Else
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
|
||||
If IEPSDev > 0 Then
|
||||
'Dim ObjContabilidad As New ClsContabilidad
|
||||
If ObjMov.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
|
||||
Try
|
||||
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
|
||||
If ObjMov.GetRetCuenta(26, UsuarioActual.CveEmpresa) Then
|
||||
Try
|
||||
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||
ErrorDevolucionImpuestos = True
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||
ErrorDevolucionImpuestos = True
|
||||
End Try
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
Else
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
|
||||
If ErrorDevolucionImpuestos Then
|
||||
MsgError = MsgError & " Error en devolución compra."
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
''
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Else
|
||||
|
||||
If tCveMoneda > 1 Then
|
||||
@@ -3410,7 +3182,7 @@ Partial Class Bancos_IE
|
||||
'BANCOS COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
|
||||
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
End If
|
||||
@@ -3424,38 +3196,33 @@ Partial Class Bancos_IE
|
||||
TipoMovtoIE = True
|
||||
Impo = Math.Abs(Impo)
|
||||
CveConcIE = 78
|
||||
IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
||||
Else
|
||||
TipoMovtoIE = False
|
||||
Impo = Math.Abs(Impo)
|
||||
CveConcIE = 211
|
||||
IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
|
||||
End If
|
||||
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento, CveSubProyecto:=CveSubProyecto) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento, CveSubProyecto:=CveSubProyecto) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
End If
|
||||
|
||||
'CANCELA NC
|
||||
IdCtaContableAplicar = IDCtaBeneficiario
|
||||
ImporteAplicar = ImporteAplicar - TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||
ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||
Exit Select
|
||||
End If
|
||||
|
||||
|
||||
'NC COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
|
||||
ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||
End If
|
||||
|
||||
@@ -3480,17 +3247,12 @@ Partial Class Bancos_IE
|
||||
MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
|
||||
Exit Select
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'IMPUESTOS
|
||||
|
||||
Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
|
||||
Dim CveConceptoContableAplciar = -1
|
||||
'Dim TipoMovtoAplicar = False
|
||||
|
||||
|
||||
Dim ObjCompras As New ClsCompras()
|
||||
If ObjCompras.GetCompras(CveCompraDeCDin, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
@@ -3505,18 +3267,6 @@ Partial Class Bancos_IE
|
||||
Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
|
||||
PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
|
||||
|
||||
'Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
|
||||
|
||||
Dim IdCtaIVAXAcreditarDevDinC As Integer
|
||||
Dim IdCtaIVAAcreditableDevDinC As Integer
|
||||
|
||||
'If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then
|
||||
' IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||
' IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||
'Else
|
||||
' MsgError = "Sin Registros de porcentaje impuesto"
|
||||
'End If
|
||||
|
||||
Dim IVADevMN As Decimal = 0
|
||||
Dim IEPSDevMN As Decimal = 0
|
||||
Dim PorcentajeDevolucion As Decimal = ((TxtImporte.Text.ToDecimal * 100D / TotalCompraDev) / 100).RoundSQL(2)
|
||||
@@ -3524,9 +3274,6 @@ Partial Class Bancos_IE
|
||||
IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2)
|
||||
IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2)
|
||||
|
||||
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
|
||||
|
||||
|
||||
If tCveMoneda > 1 Then
|
||||
IVADevMN = IVADev
|
||||
IEPSDevMN = IEPSDev
|
||||
@@ -3540,69 +3287,34 @@ Partial Class Bancos_IE
|
||||
|
||||
If IVADev > 0 Then
|
||||
|
||||
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
|
||||
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
Else
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
|
||||
If IEPSDev > 0 Then
|
||||
'Dim ObjContabilidad As New ClsContabilidad
|
||||
If ObjMov.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
|
||||
Try
|
||||
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
|
||||
If ObjMov.GetRetCuenta(26, UsuarioActual.CveEmpresa) Then
|
||||
Try
|
||||
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución "
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||
ErrorDevolucionImpuestos = True
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||
ErrorDevolucionImpuestos = True
|
||||
End Try
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, 0, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev) Then
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución "
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
Else
|
||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||
ErrorDevolucionImpuestos = True
|
||||
End If
|
||||
|
||||
If ErrorDevolucionImpuestos Then
|
||||
MsgError = MsgError & " Error en devolución compra."
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
''''''''''''''''''''''''''''''''''''''''''''''
|
||||
@@ -3622,11 +3334,11 @@ Partial Class Bancos_IE
|
||||
Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
|
||||
|
||||
Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, CveMoneda, False, 1)
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, ConPreP.CveConcepto, 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
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, ConPreP.CveConcepto, Concepto, FechaMovimiento, 0, -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
|
||||
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Concepto, 30, Concepto, FechaMovimiento, 0, -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
|
||||
|
||||
@@ -3634,39 +3346,30 @@ Partial Class Bancos_IE
|
||||
'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
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, 0, -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
|
||||
|
||||
Case Else
|
||||
Dim TipoMovimiento As Boolean = True
|
||||
|
||||
If Opcion.Contiene("ANTC") Then
|
||||
TipoMovimiento = False
|
||||
End If
|
||||
|
||||
If CveConceptoCompra = 10 AndAlso tCveMoneda > 1 AndAlso UsaComplementariaBancos Then
|
||||
IDCtaBeneficiario = IdCtaAnticipoExtranjera
|
||||
End If
|
||||
|
||||
|
||||
Dim Importe30 As Decimal = TxtImporte.Text.ToDecimal
|
||||
|
||||
If Not UsaComplementariaBancos AndAlso tCveMoneda > 1 Then
|
||||
Importe30 = TxtImporte.Text.ToDecimal + (TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal - TxtImporte.Text.ToDecimal).RoundSQL()
|
||||
End If
|
||||
|
||||
|
||||
'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:=tImporteMonedaME, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, 0, -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
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, 0, -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, 0, -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
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
'intereses pagados
|
||||
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
Else
|
||||
@@ -3680,17 +3383,17 @@ 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:=tImporteMonedaME, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, 0, -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.Contiene(10, 338, 48, 345) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, If(CveConceptoCompra = 10, 266, If(CveConceptoCompra = 345, 347, 340)), 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, If(CveConceptoCompra = 345, 347, 340)), Conc, Now, 0, -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
|
||||
If CveConceptoCompra = 66 Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 226, 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, 226, Conc, Now, 0, -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
|
||||
@@ -3727,9 +3430,9 @@ Partial Class Bancos_IE
|
||||
|
||||
Total = TxtImporte.Text.ToDouble
|
||||
|
||||
If Not Conta.AddMovimiento(IDPoliza, IDCtaContable, True, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
If Not Conta.AddMovimiento(IDPoliza, 0, True, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
|
||||
If Not Conta.AddMovimiento(IDPoliza, IDCtaBeneficiario, False, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
If Not Conta.AddMovimiento(IDPoliza, 0, False, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
|
||||
Else
|
||||
'MsgError = "No se insertó el encabezado"
|
||||
@@ -3803,17 +3506,6 @@ Partial Class Bancos_IE
|
||||
'Conta ContPAQ
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
|
||||
Dim AutoConta As Boolean = True
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If Not (IDCtaBeneficiario > 0 And IDCtaContable > 0) Then
|
||||
AutoConta = False
|
||||
If IDCtaContable < 1 Then
|
||||
Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
If IDCtaBeneficiario < 1 Then
|
||||
Alert("No se puede contabilizar la Prepoliza debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If AutoConta Then
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
|
||||
Reference in New Issue
Block a user