No usar complementaria 13,83
This commit is contained in:
Oscar Irigoyen
@@ -10091,11 +10091,21 @@ Public Class ClsPaginas
|
||||
If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O / E G R E S O S X C O M P R O B A R
|
||||
Dim Ret As New ConceptosRetenciones
|
||||
If Pago.CveMonedaPago > 1 Then
|
||||
|
||||
Dim Importe21 As Decimal = Pago.ImportePago
|
||||
If Not UsaComplementaria Then
|
||||
Importe21 = (Importe21 + (Pago.ImportePago * TCValuacionPago - Pago.ImportePago)).RoundSQL
|
||||
End If
|
||||
|
||||
'Agregamos la Extranjera
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Importe21, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
|
||||
|
||||
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
|
||||
|
||||
If UsaComplementaria Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
|
||||
End If
|
||||
|
||||
Else
|
||||
'Agregamos Nacional
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
|
||||
|
||||
@@ -2152,7 +2152,7 @@ Public Class ClsVentas
|
||||
End Function
|
||||
Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
|
||||
CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String,
|
||||
Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CvePromocionPadre As Integer = -1) As Integer
|
||||
Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer
|
||||
Dim Retorno = -1
|
||||
DataAdapter("PA_Vta_PromocionesAdd")
|
||||
|
||||
@@ -2170,7 +2170,6 @@ Public Class ClsVentas
|
||||
.Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
|
||||
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
||||
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
|
||||
.Add("@CvePromocionPadre", SqlDbType.Int).Value = CvePromocionPadre
|
||||
.Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
End With
|
||||
|
||||
|
||||
@@ -2773,7 +2773,7 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
End If
|
||||
Dim UsaComplementariaBancos As Boolean = False
|
||||
UsaComplementariaBancos = True
|
||||
UsaComplementariaBancos = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
|
||||
|
||||
If MsgError = "" Then
|
||||
|
||||
@@ -3706,8 +3706,16 @@ Partial Class Bancos_IE
|
||||
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:=TxtImporte.Text.ToDecimal, 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:=tImporteMonedaExtranjera, 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
|
||||
@@ -3725,7 +3733,7 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
'BANCOS COMPLEMENTARIA
|
||||
If tCveMoneda > 1 Then
|
||||
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
|
||||
|
||||
@@ -7416,11 +7416,12 @@ Partial Class Compras_Compras
|
||||
Else
|
||||
|
||||
Dim usacomplementariaAnticipo As Boolean = False
|
||||
usacomplementariaAnticipo = If(Ant.TCCompra > 1, True, False)
|
||||
usacomplementariaAnticipo = If(Ant.TCCompra > 1 And not UsuarioActual.CveEmpresa.Contiene(13,83), True, False)
|
||||
Dim TipoCambioAnt As Decimal = Ant.TCCompra
|
||||
|
||||
Dim ImporteAnt As Decimal = importeMovimiento
|
||||
Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt
|
||||
|
||||
If usacomplementariaAnticipo Then
|
||||
IdCtaContable = CtaProveedorAnticiposComplementaria
|
||||
ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt
|
||||
@@ -7440,6 +7441,11 @@ Partial Class Compras_Compras
|
||||
|
||||
'Dim ImporComisionAnticipo As Decimal = Ant.ImporteComision
|
||||
'Dim importeMNComision As Decimal = ImporComisionAnticipo * tipoCambioActual * Multiplicador
|
||||
|
||||
If Not usacomplementariaAnticipo Then
|
||||
ImporteAntMN = TipoCambioAnt * ImporteAnt
|
||||
End If
|
||||
|
||||
If ImporComisionAnticipo = 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, ConceptoContableAnticipo, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
|
||||
@@ -293,6 +293,24 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property CargaBitacora As Boolean
|
||||
Get
|
||||
|
||||
If ViewState("CargaBitacora") Is Nothing Then
|
||||
ViewState("CargaBitacora") = False
|
||||
End If
|
||||
|
||||
Return Boolean.Parse(ViewState("CargaBitacora").ToString)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("CargaBitacora") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
@@ -932,7 +950,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
'SugerirFecha()
|
||||
If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
|
||||
CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero)
|
||||
' SugiereLoteCaducidad(DdlAlmacen.SelectedValue.ToEntero)
|
||||
|
||||
If CargaBitacora Then
|
||||
CargaBitacoraSerie()
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
GvDatos.DataSource = DtDatos
|
||||
@@ -1283,26 +1305,26 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
|
||||
'Valida Existencia
|
||||
If TipoMovimiento = 1 Then
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
|
||||
If Existencia < 1 Then
|
||||
Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2")
|
||||
ObjInventarios.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
ObjInventarios.Dispose()
|
||||
Else
|
||||
If DtExistencias IsNot Nothing Then
|
||||
Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'")
|
||||
If Existencia < 1 Then
|
||||
Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error3")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'If TipoMovimiento = 1 Then
|
||||
' Dim ObjInventarios As New ClsInventarios
|
||||
' Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
|
||||
' If Existencia < 1 Then
|
||||
' Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
|
||||
' RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2")
|
||||
' ObjInventarios.Dispose()
|
||||
' Exit Sub
|
||||
' End If
|
||||
' ObjInventarios.Dispose()
|
||||
'Else
|
||||
' If DtExistencias IsNot Nothing Then
|
||||
' Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'")
|
||||
' If Existencia < 1 Then
|
||||
' Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
|
||||
' RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error3")
|
||||
' Exit Sub
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
Dim Row = DtDatosDetalle.NewRow
|
||||
@@ -1364,23 +1386,35 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
|
||||
|
||||
CargaBitacora = False
|
||||
If IO.File.Exists(ArchivoBitacora) Then
|
||||
'DtInv.Clear()
|
||||
'DtDatosDetalle.Clear()
|
||||
|
||||
CargaBitacoraSerie()
|
||||
CargaGvDatos()
|
||||
CargaBitacora = True
|
||||
Else
|
||||
Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaBitacoraSerie()
|
||||
|
||||
If IO.File.Exists(ArchivoBitacora) Then
|
||||
|
||||
DtDatos.ReadXml(ArchivoBitacora)
|
||||
If IO.File.Exists(ArchivoBitacoraDetalle) Then
|
||||
Dim dtt As New DataTable
|
||||
dtt.ReadXml(ArchivoBitacoraDetalle)
|
||||
DtDatosDetalle = dtt
|
||||
Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
|
||||
End If
|
||||
CargaGvDatos()
|
||||
|
||||
End If
|
||||
Else
|
||||
Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
#Region " AGREGA CON LOTE BATCH "
|
||||
|
||||
@@ -3020,6 +3054,10 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
Limpia()
|
||||
CargaPendientes()
|
||||
LimpiaCampos()
|
||||
|
||||
CargaBitacora = False
|
||||
|
||||
|
||||
Else
|
||||
ObjInventario.RollBack()
|
||||
Alert(TextoError.ToString(), TipoMensaje.MsgError)
|
||||
@@ -3452,6 +3490,9 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
Limpia()
|
||||
LimpiaCampos()
|
||||
CargaPendientes()
|
||||
|
||||
CargaBitacora = False
|
||||
|
||||
Else
|
||||
Alert(TextoError, TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
|
||||
@@ -951,7 +951,7 @@ Partial Class Ventas_ClientesAbonar
|
||||
VentaActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
|
||||
VentaActual.IdCtaContableCliente = IIf(VentaActual.CveMoneda = 1, IdCuentaCliente, IdCtaContMonedaExtranjera)
|
||||
VentaActual.IdCtaContableClienteComplementaria = IdCtaContComplementaria
|
||||
|
||||
VentaActual.IdCtaContableClienteAnticipo = IdCtaAnticipo
|
||||
'Importe de pago
|
||||
Dim Pago As New VentaPago
|
||||
Pago.Fecha = TxtFechaDocumento.Text.ToDate
|
||||
|
||||
Reference in New Issue
Block a user