diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 3b31a78ca..081440aab 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3514,7 +3514,7 @@ Public Class ClsPaginas
End If
'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.SetAspSig, ASPSIG:=Request.Cookies[".ASPXSIG"].ToString())
- ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarModulo, Nothing, -1, "", Request.Url.ToString())
+ ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarModulo, Nothing, -1, "", Request.Url.PathAndQuery.ToString())
'If Me.Request.ServerVariables("http_user_agent").ToLower.Contains("safari") AndAlso Page.ClientTarget <> "uplevel" Then Page.ClientTarget = "uplevel" 'Código agregado para que muestre bién el menu, en chrome
End If
End Sub
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f2811f6ab..36b8de2dc 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1295,80 +1295,83 @@ Partial Class Compras_Compras
ViewState("CveFactura") = Request("CveFactura").ToEntero
Dim RFC As String = CargaFactura(CveFactura)
- DdlProveedor.Visible = False
- HplProveedor.Visible = True
- GvInv.Visible = True
- CargaProveedor(-1, RFC)
+ If RFC.Trim <> String.Empty Then
+ DdlProveedor.Visible = False
+ HplProveedor.Visible = True
+ GvInv.Visible = True
+ CargaProveedor(-1, RFC)
- If Not DdlTipoComprobante.SelectedValue = "NC" Then
- If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
- If TmpDT.MAX("CvePS").ToEntero > 0 Then
- BtnGuardar.Enabled = False
- RegistraScript("$('#ImgBtnBuscarOC').click()")
- End If
- End If
- End If
-
- If DdlTipoComprobante.SelectedValue = "NC" Then
- paneldevolucion.Visible = True
- Pnlalmaceninventarios.Visible = False
- cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
- InicializaAplicaNCFact()
- DivReembolso.Visible = False
- RBLPago.Items(2).Enabled = False
-
- End If
-
-
-
- If UsuarioActual.Empresa.UsaAC Then
- CambiaEjercicioAC()
- End If
-
- ' ''Fecha limite para ingreso de facturas
- ''Dim DtEmpresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa)
- ''If DtEmpresa.Rows.Count > 0 Then
- '' Dim FechaLimite = DateSerial(DtEmpresa.Rows(0)("EjercicioActual").ToString.ToEntero, DtEmpresa.Rows(0)("PeriodoActual").ToString.ToEntero, DtEmpresa.Rows(0)("DiasPermitidos").ToString.ToEntero)
- '' If Month(TxtFecha.Text.ToDate) < (Month(FechaLimite) - 1) Or (Month(TxtFecha.Text.ToDate) = (Month(FechaLimite) - 1) And Day(Date.Now) > Day(FechaLimite)) Then
- '' Alert("La factura actual ya no aplica para ingresarse al sístema.", TipoMensaje.MsgAdvertencia)
- '' BtnGuardar.Enabled = False
- '' Else
- '' Alert("En tiempo")
- '' End If
- ''Else
- '' Alert("No se pudieron cargar los datos de la empresa", TipoMensaje.MsgAdvertencia)
- ''End If
- 'Carga Compra
-
- If UsuarioActual.Empresa.Funcionalidad(123).ToEntero > 0 And Not UsuarioActual.TienePermisoProceso(156) Then
- If Not ValidaCierrePeriodo() Then
- Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
- BtnGuardar.Visible = False
- TxtOC.Enabled = False
- ImgBtnBuscarOC.Enabled = False
- CierrePeriodo = True
- DivRestriccionAdvertencia.Visible = True
- LtRestriccionAdvertencia.Text = "El periodo de la compra actual ya se encuentra cerrado."
- End If
- End If
-
- Dim HayDifIEPS As Boolean = False
- For Each Gvr As GridViewRow In GvPS.Rows
- If Gvr.DataKey("CvePS").ToEntero > 0 AndAlso Gvr.DataKey("IEPSPSPorcentaje").ToDouble > 0 Then
- If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Gvr.DataKey("CvePS").ToEntero).Rows.Count > 0 Then
- Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Gvr.DataKey("CvePS").ToEntero).Rows(0)
- If DrPS IsNot Nothing Then
- If DrPS("IEPSPorcentaje").ToString.ToDouble <> Gvr.DataKey("IEPSPSPorcentaje").ToDouble Then
- HayDifIEPS = True
- End If
+ If Not DdlTipoComprobante.SelectedValue = "NC" Then
+ If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
+ If TmpDT.MAX("CvePS").ToEntero > 0 Then
+ BtnGuardar.Enabled = False
+ RegistraScript("$('#ImgBtnBuscarOC').click()")
End If
End If
End If
- Next
- If HayDifIEPS Then Alert("El porcentaje de IEPS del producto no coincide con el especificado.", TipoMensaje.MsgAdvertencia)
+ If DdlTipoComprobante.SelectedValue = "NC" Then
+ paneldevolucion.Visible = True
+ Pnlalmaceninventarios.Visible = False
+ cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
+ InicializaAplicaNCFact()
+ DivReembolso.Visible = False
+ RBLPago.Items(2).Enabled = False
- If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
+ End If
+
+
+
+ If UsuarioActual.Empresa.UsaAC Then
+ CambiaEjercicioAC()
+ End If
+
+ ' ''Fecha limite para ingreso de facturas
+ ''Dim DtEmpresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa)
+ ''If DtEmpresa.Rows.Count > 0 Then
+ '' Dim FechaLimite = DateSerial(DtEmpresa.Rows(0)("EjercicioActual").ToString.ToEntero, DtEmpresa.Rows(0)("PeriodoActual").ToString.ToEntero, DtEmpresa.Rows(0)("DiasPermitidos").ToString.ToEntero)
+ '' If Month(TxtFecha.Text.ToDate) < (Month(FechaLimite) - 1) Or (Month(TxtFecha.Text.ToDate) = (Month(FechaLimite) - 1) And Day(Date.Now) > Day(FechaLimite)) Then
+ '' Alert("La factura actual ya no aplica para ingresarse al sístema.", TipoMensaje.MsgAdvertencia)
+ '' BtnGuardar.Enabled = False
+ '' Else
+ '' Alert("En tiempo")
+ '' End If
+ ''Else
+ '' Alert("No se pudieron cargar los datos de la empresa", TipoMensaje.MsgAdvertencia)
+ ''End If
+ 'Carga Compra
+
+ If UsuarioActual.Empresa.Funcionalidad(123).ToEntero > 0 And Not UsuarioActual.TienePermisoProceso(156) Then
+ If Not ValidaCierrePeriodo() Then
+ Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
+ BtnGuardar.Visible = False
+ TxtOC.Enabled = False
+ ImgBtnBuscarOC.Enabled = False
+ CierrePeriodo = True
+ DivRestriccionAdvertencia.Visible = True
+ LtRestriccionAdvertencia.Text = "El periodo de la compra actual ya se encuentra cerrado."
+ End If
+ End If
+
+ Dim HayDifIEPS As Boolean = False
+ For Each Gvr As GridViewRow In GvPS.Rows
+ If Gvr.DataKey("CvePS").ToEntero > 0 AndAlso Gvr.DataKey("IEPSPSPorcentaje").ToDouble > 0 Then
+ If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Gvr.DataKey("CvePS").ToEntero).Rows.Count > 0 Then
+ Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Gvr.DataKey("CvePS").ToEntero).Rows(0)
+ If DrPS IsNot Nothing Then
+ If DrPS("IEPSPorcentaje").ToString.ToDouble <> Gvr.DataKey("IEPSPSPorcentaje").ToDouble Then
+ HayDifIEPS = True
+ End If
+ End If
+ End If
+ End If
+ Next
+
+ If HayDifIEPS Then Alert("El porcentaje de IEPS del producto no coincide con el especificado.", TipoMensaje.MsgAdvertencia)
+
+ If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
+
+ End If
ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
@@ -1741,10 +1744,14 @@ Partial Class Compras_Compras
XMLDoc.Load(Archivo)
Catch ex As Exception
+ Try
+ Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
+ XMLDoc.Load(oReader)
+ oReader.Dispose()
+ Catch ex2 As Exception
+ GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
+ End Try
- Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
- XMLDoc.Load(oReader)
- oReader.Dispose()
End Try
@@ -2083,19 +2090,22 @@ Partial Class Compras_Compras
ObjeFacturas.Dispose()
- Dim ObjSAT As New ClsSAT
- Dim RFCRequest As String = Request("RFC").ToString
- If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFCRequest) Then
- If ObjSAT.DtResultados.Rows.Count > 0 Then
- Dim Estatus As String = ObjSAT.DtResultados.Rows(0)("Situacion").ToString
- BtnGuardar.Enabled = False
- UpParametros.Update()
+ If RFC <> "" Then
+ Dim ObjSAT As New ClsSAT
- Alert($"El RFC del proveedor se encuentra en estado {Estatus} en el Listado EFOS (69B) del SAT", TipoMensaje.MsgAdvertencia)
- System.Threading.Thread.Sleep(5)
+ If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFC) Then
+ If ObjSAT.DtResultados.Rows.Count > 0 Then
+ Dim Estatus As String = ObjSAT.DtResultados.Rows(0)("Situacion").ToString
+ BtnGuardar.Enabled = False
+ UpParametros.Update()
+
+ Alert($"El RFC del proveedor se encuentra en estado {Estatus} en el Listado EFOS (69B) del SAT", TipoMensaje.MsgAdvertencia)
+ System.Threading.Thread.Sleep(5)
+ End If
End If
+ ObjSAT.Dispose()
End If
- ObjSAT.Dispose()
+
Return RFC
@@ -2942,9 +2952,10 @@ Partial Class Compras_Compras
'TIENE AMORTIZACIÓN
If GvAnticiposSel.Rows.Count > 0 Then
- BtnEliminarCompra.Visible = False
+
If Not DdlTipoComprobante.SelectedValue.Contiene("NC") Then
BtnCancelarCompra.Visible = False
+ BtnEliminarCompra.Visible = False
End If
End If
@@ -5074,8 +5085,8 @@ Partial Class Compras_Compras
For Each dr As DataRow In DtInv.Rows
If dr("cvealmacen").ToString.ToEntero = tcvealmacen Then
-
- importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar)
+ 'hay que restarle descuento
+ importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar) - (If(DdlMoneda.SelectedValue.ToEntero = 1, dr("descuento").ToString.ToDouble, dr("descuento").ToString.ToDouble * TipoCambioGuardar) / dr("cantidad").ToString.ToDouble)
If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, dr("pu").ToString.ToDouble), CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then
ErrorMovInv = True
@@ -5158,6 +5169,7 @@ Partial Class Compras_Compras
Dim PUInv As Double
Dim CveUnidad As Integer
Dim CostoIndirecto As Double
+ Dim tDescuento As Decimal = 0
ListaMovimientosAlmacen.Add(CveMovimientoInventario)
@@ -5168,6 +5180,7 @@ Partial Class Compras_Compras
CveUnidad = Dr("CveUM").ToString.ToEntero
CantidadInv = Dr("Cantidad").ToString.ToDouble
PUInv = Dr("PU").ToString.ToDouble
+ tDescuento = Dr("Descuento").ToString.ToDecimal / CantidadInv.ToDecimal
CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDouble
If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
@@ -5202,7 +5215,7 @@ Partial Class Compras_Compras
End If
'si no es por serie lote
- ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar)
+ ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar) - If(DdlMoneda.SelectedValue.ToEntero = 1, tDescuento, tDescuento * TipoCambioGuardar)
ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto)
If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, CantidadInv, CveUnidad, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, Dr("PU").ToString.ToDouble), CostoIndirecto:=CostoIndirecto, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
@@ -6843,21 +6856,21 @@ Partial Class Compras_Compras
'AMORTIZACIÓN EN EL REGISTRO
For Each Gvr As GridViewRow In GvFacturaNC.Rows
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
- Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+ 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
IdCtaContable = CtaProveedorExtranjera
CveCuenta = CveCuentaProveedorExtranjera
- If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
+ If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
Dim CveConceptoContableComplementaria As Integer = 206
If Gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor
IdCtaContable = CtaProveedorComplementaria
CveCuenta = CveCuentaProveedorComplementaria
- If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
ErrorPrepoliza = True
Exit For
End If
@@ -6870,10 +6883,10 @@ Partial Class Compras_Compras
importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
IdCtaContable = CtaProveedorExtranjera
CveCuenta = CveCuentaProveedorExtranjera
- If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+ If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
IdCtaContable = CtaProveedorComplementaria
CveCuenta = CveCuentaProveedorComplementaria
- If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Exit For
End If
@@ -6902,7 +6915,7 @@ Partial Class Compras_Compras
importeMovimiento = importeMovimiento.Abs.RoundSQL()
importeMN = importeMovimiento
If importeMovimiento <> 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Exit For
End If
@@ -6910,7 +6923,7 @@ Partial Class Compras_Compras
End If
- ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
+ 'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
End If
Next
diff --git a/Sistemas/SessionesActivas.aspx.vb b/Sistemas/SessionesActivas.aspx.vb
index 65592790f..d75a25113 100644
--- a/Sistemas/SessionesActivas.aspx.vb
+++ b/Sistemas/SessionesActivas.aspx.vb
@@ -83,7 +83,6 @@ Partial Class SessionesActivas
row("RemoteIpAddres") = user.IpAddres
row("LastPostback") = user.LastPostback
row("Modulo") = user.Modulo
- row("Modulo") = user.SessionID
dtF.Rows.Add(row.ItemArray())
End If
Next
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0900f4597..db4d0f6e2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10902,7 +10902,7 @@ Partial Class Ventas
End Select
- If importeMovimiento <> 0 And Not ErrorPrepoliza Then
+ If (importeMovimiento <> 0 OrElse (importeMovimiento = 0 AndAlso ObjFactura.Total = 0 AndAlso ConceptoContable = 1)) And Not ErrorPrepoliza Then
If IdCtaContable <= 0 Then
CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
@@ -10930,7 +10930,7 @@ Partial Class Ventas
End If
- 'TRASPASA PAGADO
+ 'TRASPASA PAGADO (ObjFacturaNC.Pagado > 0) AndAlso
If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso ObjFactura.NuevaFactura = 1 Then
If Not ObjConta.TraspasarSaldosPrePolizasRefacturacion(ObjFacturaNC.CveVenta, ObjFactura.CveVenta, ObjFactura.CvePrePoliza, CvePlantilaPoliza, UsuarioActual.CveEmpresa) Then
ErrorList.Add("Ocurrió un error al agregar la bitacora de Póliza Virtual.")
@@ -22252,7 +22252,13 @@ Partial Class Ventas
Exit Sub
End If
- LBAplicaDevolucion.Visible = True
+ 'SOLO APLICA DEVOLUCION SI TIENE MOVIMIENTOS DE ALMACEN
+ If VentaSaldoAlmacen < 0 Then
+ LBAplicaDevolucion.Visible = True
+ ElseIf VentaSaldoAlmacen >= 0 Then
+ LBAplicaDevolucion.Visible = False
+ End If
+
Dim SeEsconde As Boolean = False
If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
diff --git a/vwd.webinfo b/vwd.webinfo
index 40d1fe36c..1d2829323 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -44,6 +44,8 @@
+
+