Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Bancos/FluctuacionCambiaria.aspx.vb

@@ -465,6 +465,8 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
+        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjContPaq.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Filiales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
@@ -524,13 +526,29 @@ Partial Class Bancos_FluctuacionCambiaria
         Next
 
         If Not ErrorRegistrar Then
+
+            'Inicio auto conta
+            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+            If AutoConta Then
+
+                If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                Else
+                    Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                End If
+            End If
+
+            If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
+            'Fin autoconta 
             Conta.Commit()
+
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
+            ObjContPaq.RollBack()
         End If
         Conta.Dispose()
         Banco.Dispose()
+        ObjContPaq.Dispose()
     End Sub
 
 #End Region

Bancos/PopIEVentas.aspx.vb

@@ -1556,6 +1556,7 @@ Partial Class Bancos_PopIEVentas
                                         Select Case ConceptoContable
                                             Case 2 'Pago Cliente
                                                 If RBLContado.SelectedValue.Contiene("3", "4", "5") Then
+                                                    'If CveMonedaVenta > 1 Then ConceptoContable = 292
                                                     For Each rw As GridViewRow In GvIngresos.Rows
                                                         If rw.FCCheckBox("Chk").Checked Then
                                                             If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then

Compras/Compras.aspx.vb

@@ -19094,7 +19094,7 @@ Partial Class Compras_Compras
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.AddPSSimplificado(PS) > 0 Then
             Alert("El P/S fue agregado correctamente.")
-            RecargaGlobalEquivalencias()
+            GeneraGlobalDT(Nothing)
         End If
         ObjPS.Dispose()
 
@@ -19106,18 +19106,11 @@ Partial Class Compras_Compras
 
         UpAgregarPS.Update()
 
-        RegistraScript("$('#DivAgregarPS').modal('hide');")
-        RecargaPSGlobal()
-    End Sub
-    Private Sub RecargaPSGlobal()
-        'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
-        'Dim ObjPS As New ClsProductosServicios
+        RegistraScript("$('#DivAgregarPS').modal('hide');")
 
-        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
-
-        'ObjPS.Dispose()
     End Sub
 
+
 #End Region
 
 #Region "TIPO DE COMPRA"

General/SaldosIniciales.aspx.vb

@@ -296,17 +296,17 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
-                If RblFormato.SelectedValue = "4" Then
-                    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
-                        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
-                    End If
+                'If RblFormato.SelectedValue = "4" Then
+                '    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
+                '        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
+                '        Exit Sub
+                '    End If
 
-                    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
-                        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
-                    End If
-                End If
+                '    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
+                '        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
+                '        Exit Sub
+                '    End If
+                'End If
 
 
             ElseIf RblFormato.SelectedValue = "5" Then
@@ -1356,8 +1356,8 @@ Partial Class General_SaldosIniciales
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero
                     Dim Fecha As Date = Row("Fecha").ToString.ToDate
                     Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
-                    Dim ImpuestoLocal As Double = Row("ImpuestoLocal").ToString.ToDouble
-                    Dim Amortizacion As Double = Row("Amort.Ant").ToString.ToDouble
+                    Dim ImpuestoLocal As Double = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDouble, 0.0)
+                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString.ToDouble, 0.0)
                     Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
                     Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
                     Dim Total As Decimal = Row("Total").ToString.ToDecimal
@@ -1372,7 +1372,8 @@ Partial Class General_SaldosIniciales
                     Dim CveVendedor As Integer = 0
                     Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
-                    Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
+                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
+                    Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
 
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
@@ -1437,6 +1438,12 @@ Partial Class General_SaldosIniciales
                                 ConceptoContablePago = 91
                             End If
 
+                            If FolioFiscal <> "" Then
+                                If Not ObjVentas.UpdateVentaFolioFiscal(FolioFiscal, CveVenta, UsuarioActual.CveEmpresa) Then
+                                    ErrorVentas = True
+                                    Exit For
+                                End If
+                            End If
 
                             'PrePólizaDetalle
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero) Then ErrorVentas = True : Exit For

Inventarios/CatAlmacenes.aspx.vb

@@ -297,6 +297,7 @@ Partial Class Inventarios_CatAlmacenes
     Private Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlModalidad.SelectedIndexChanged
         If DdlModalidad.SelectedValue = 1 Then
             divddlcc.Visible = True
+            CargaCuentasContables()
         Else
             divddlcc.Visible = False
         End If

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2155,7 +2155,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             ErrorMovInv = True
                         End If
 
-                        If Not ErrorMovInv Then
+                        If Not ErrorMovInv AndAlso Dt IsNot Nothing Then
                             For Each Dr As DataRow In Dt.Rows
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     ErrorMovInv = True

Inventarios/RecepcionUsados.aspx.vb

@@ -309,6 +309,14 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("TmpDTAjustes") = value
         End Set
     End Property
+    Private Property DtPorcentajeMarcas As DataTable
+        Get
+            Return If(IsNothing(ViewState("DtPorcentajeMarcas")), Nothing, CType(ViewState("DtPorcentajeMarcas"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DtPorcentajeMarcas") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -2442,13 +2450,18 @@ Partial Class Inventarios_RecepcionUsados
     Public Sub OnRblUsadosAjuste_Change(sender As Object, e As EventArgs)
         DdlAlmacen.Items.Clear()
         If RblUsadosAjuste.SelectedValue = "1" Then
-            CargaAjuste()
-            DivAjuste.Visible = True
-            'Llenar el dropdownlist de almacén
-            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
-            LnkAgregarUsado.Visible = False
-            UppAcciones.Update()
-
+            If DdlClientes.SelectedValue <> "-1" Then
+                CargaAjuste()
+                DivAjuste.Visible = True
+                'Llenar el dropdownlist de almacén
+                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
+                CargarDescuento()
+                LnkAgregarUsado.Visible = False
+                UppAcciones.Update()
+            Else
+                Alert("hace falta seleccionar un cliente")
+                RblUsadosAjuste.SelectedValue = "0"
+            End If
         Else
             DivAjuste.Visible = False
             'Llenar el dropdownlist de almacén
@@ -2535,7 +2548,32 @@ Partial Class Inventarios_RecepcionUsados
 
             If drPS IsNot Nothing Then
                 PrecioSugerido = drPS("Precio").ToString.ToDecimal
+                Dim PS As String = drPS("PS").ToString
+                Dim Arr = PS.Split("-"c)
+                If Arr.Count > 0 Then
+                    If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
+                        DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value)
+                    End If
+
+                End If
+
             End If
+            Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString))
+            If MarcaPorcentaje IsNot Nothing Then
+                Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100
+                Dim MontoDescuento As Decimal = PrecioSugerido * PorcentajeProducto
+                PrecioSugerido -= MontoDescuento
+
+                Dim PorcentajeProducto2 As Decimal = MarcaPorcentaje("PorcentajeProducto2").ToString.ToDecimal / 100
+                MontoDescuento = PrecioSugerido * PorcentajeProducto2
+                PrecioSugerido -= MontoDescuento
+
+                Dim PorcentajeProducto3 As Decimal = MarcaPorcentaje("PorcentajeProducto3").ToString.ToDecimal / 100
+                MontoDescuento = PrecioSugerido * PorcentajeProducto3
+                PrecioSugerido -= MontoDescuento
+
+            End If
+
             txtPrecio.Text = PrecioSugerido.FormatoNumero(2)
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
         End If
@@ -2704,6 +2742,14 @@ Partial Class Inventarios_RecepcionUsados
         End If
         ObjPS.Dispose()
     End Sub
+
+    Protected Sub CargarDescuento()
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetPorcentajeMarcas(DdlClientes.SelectedValue.ToEntero) Then
+            DtPorcentajeMarcas = ObjPS.DtResultados.Copy()
+        End If
+        ObjPS.Dispose()
+    End Sub
 #End Region
 
 End Class

Ventas/ClientesAbonar.aspx.vb

@@ -900,6 +900,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         Select Case ConceptoContable
                                             Case 2 'Pago Cliente
+                                                'If gvr.DataKey("CveMoneda").ToEntero > 1 Then ConceptoContable = 292
                                                 If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                     ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                                     importeMX = ImporteMovimiento

Ventas/PV.aspx

@@ -616,8 +616,7 @@
                                                 </th>
                                                 <th id="thEncIEPS1" runat="server" visible="false">IEPS
                                                 </th>
-                                                <th>Total&nbsp<%--;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>--%>
-                                                    <th style="width: 100px;" colspan="3">Comandos</th>
+                                                <th>Total&nbsp<%--;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>--%><th style="width: 100px;" colspan="3">Comandos</th>
                                                     <th></th>
                                                     <th runat="server" visible="false" id="nomostrar2"></th>
                                             </tr>

Ventas/Ventas.aspx.vb

@@ -9509,6 +9509,7 @@ Partial Class Ventas
                     Select Case ConceptoContable
                         Case 1 'Cliente
                             If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then
+                                If ObjFactura.CveMoneda > 1 Then ConceptoContable = 291
                                 importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
                                 importeMX = importeMovimiento * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -9539,6 +9540,7 @@ Partial Class Ventas
                                 CveCuentaCliente = CveCuenta
                             End If
 
+
                         Case 3 'Cliente
 
                             If ObjFactura.TipoDocto = "Ant" Then
@@ -11682,6 +11684,7 @@ Partial Class Ventas
 
                                 Select Case ConceptoContable
                                     Case 2 'Cliente
+                                        'If CveMonedaVenta > 1 Then ConceptoContable = 292
                                         If Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66) Then
                                             If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                 importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
@@ -15343,9 +15346,11 @@ Partial Class Ventas
                                         If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then
                                             Dim CveMovimientoSalidaPorTraspaso As Integer = -1
                                             Dim CveConceptoSalidaAlmacen As Integer = 3
+                                            Dim CveAlmacenParaSalida As Integer = CveAlmacenEntrada
                                             'SALIDA DEFINITIVA DEL SISTEMA
                                             If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then
                                                 CveConceptoSalidaAlmacen = 40
+                                                CveAlmacenParaSalida = CveAlmacenSalida
                                                 ''Le damos salida normal
                                                 'If ConSalida Then
                                                 '    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveVenta, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
@@ -15390,7 +15395,7 @@ Partial Class Ventas
                                                 End If
 
                                                 If Not OcurrioError Then
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
+                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenParaSalida, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
 
                                                     If Not GeneroMovimientoAlmacen Then
                                                         OcurrioError = True

asmx/WSApp.asmx

@@ -67,52 +67,41 @@ Public Class WSApp
             Application("GlobalDTVtaFormaPago") = value
         End Set
     End Property
-    'Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
-    '    Get
+    Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
+                Dim P As New ClsSubProyectos
+                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
+                P.Dispose()
 
-    '        If DirectCast(Application("GlobalDTSubProyectos"), DataTable) Is Nothing Or (DirectCast(Application("GlobalDTSubProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(Application("GlobalDTSubProyectos"), DataTable).Rows.Count = 0) Then
-    '            Dim P As New ClsSubProyectos
-    '            If P.GetSubProyectos Then
-    '                Application("GlobalDTSubProyectos") = P.DtResultados
-    '            End If
-    '            P.Dispose()
+                Dim msg As String = "aqui no se carga subproyectos"
+                msg.GuardaLog()
 
-    '            Dim msg As String = "aqui no se carga subproyectos"
-    '            'If Request IsNot Nothing Then
-    '            '    msg = msg & Request.ServerVariables("URL")
-    '            'End If
-    '            msg.GuardaLog()
+            End If
 
-    '        End If
+            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+                Dim StrSQL As New StringBuilder
+                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
+                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
+                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
 
-    '        If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
-    '            Dim StrSQL As New StringBuilder
-    '            If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
-    '            If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-    '            If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
-    '            If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+                GlobalDTSubProyectos = Dv.ToTable
+                Dv.Dispose()
 
-    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTSubProyectos"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
-    '            GlobalDTSubProyectos = Dv.ToTable
-    '            Dv.Dispose()
+            Else
+                GlobalDTSubProyectos = DirectCast(Application(AppNombre), DataTable)
+            End If
 
-    '        Else
-    '            GlobalDTSubProyectos = DirectCast(Application("GlobalDTSubProyectos"), DataTable)
-    '        End If
-
-    '    End Get
-    '    Set(ByVal value As DataTable)
-    '        If value Is Nothing OrElse value.Rows.Count = 0 Then
-    '            Dim msg As String = "aqui no se carga subproyectos"
-    '            'If Request IsNot Nothing Then
-    '            '    msg = msg & Request.ServerVariables("URL")
-    '            'End If
-    '            msg.GuardaLog()
-
-    '        End If
-    '        Application("GlobalDTSubProyectos") = value
-    '    End Set
-    'End Property
+        End Get
+        Set(ByVal value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
     Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
         Get
             If EsPersonaFisica <> -1 Then