Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

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

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
+                If RFC.Trim <> String.Empty Then
-                HplProveedor.Visible = True
+                    DdlProveedor.Visible = False
-                GvInv.Visible = True
+                    HplProveedor.Visible = True
-                CargaProveedor(-1, RFC)
+                    GvInv.Visible = True
+                    CargaProveedor(-1, RFC)
 
-                If Not DdlTipoComprobante.SelectedValue = "NC" Then
+                    If Not DdlTipoComprobante.SelectedValue = "NC" Then
-                    If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
+                        If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
-                        If TmpDT.MAX("CvePS").ToEntero > 0 Then
+                            If TmpDT.MAX("CvePS").ToEntero > 0 Then
-                            BtnGuardar.Enabled = False
+                                BtnGuardar.Enabled = False
-                            RegistraScript("$('#ImgBtnBuscarOC').click()")
+                                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
                             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
+        If RFC <> "" Then
-        Dim RFCRequest As String = Request("RFC").ToString
+            Dim ObjSAT As New ClsSAT
-        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()
 
-                Alert($"El RFC del proveedor se encuentra en estado <b>{Estatus}</b> en el Listado EFOS (69B) del SAT", TipoMensaje.MsgAdvertencia)
+            If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFC) Then
-                System.Threading.Thread.Sleep(5)
+                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 <b>{Estatus}</b> 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
-
+                                                                    'hay que restarle descuento
-                                                                    importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar)
+                                                                    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
 

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