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

Bancos/DepositosCaja.aspx.vb

@@ -26,13 +26,13 @@ Partial Class Bancos_DepositosCaja
     End Sub
 
     Private Sub CargaCuentas()
-        DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCuentaDeposito.DataBind()
 
-        DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
 
-        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveEmpresa, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
@@ -86,8 +86,8 @@ Partial Class Bancos_DepositosCaja
         Dim IdCuentaBancariaDestino As Integer = 0
         Dim CveCuentaBancariaOrigen As Integer = 0
         Dim CveCuentaBancariaDestino As Integer = 0
-        Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveCuenta = {DdlCajaChica.SelectedValue}")
+        Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
-        Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}")
+        Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
 
         If drOrigen IsNot Nothing Then
             CveMoneda = drOrigen("CveMoneda").ToString.ToEntero

Bancos/Devoluciones.aspx.cs

@@ -339,6 +339,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
         int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1;
         int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1;
         bool TipoMovoDevolucion = false;
+        double TC = 1;
         StringBuilder Msg = new StringBuilder();
 
         switch (OpcionDevolucion.SelectedValue)
@@ -369,6 +370,11 @@ public partial class Bancos_Devoluciones : ClsPaginas
                 break;
         }
 
+        if (CveMoneda != 1)
+        {
+            TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate());
+        }
+
         // DATOS PREPOLIZA
         if ( DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero();
         CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE  Devoluciones", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransanccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccion.SelectedValue, "-1", UsuarioActual.CveEmpresa));
@@ -379,7 +385,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
             string Ref = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text;
 
             CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransanccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), PagueseA, TxtImporte.Text.Trim().ToDouble(), CveMoneda,
-                                     1, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+                                     TC, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
             if (CveIE > 0)
             {
                 //GUARDA PREPOLIZAS DETALLE DEVOLUCION

Bancos/IE.aspx.vb

@@ -3671,27 +3671,7 @@ Partial Class Bancos_IE
                                 End If
 
                         End Select
-
+
-                        'El movimiento 1 es el de Venta
-
-                        'Conta ContPAQ
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-                            If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
-                                If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                    IDPoliza = ObjMov.ContaIdPoliza
-                                    'Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
-                                Else
-                                    Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                                End If
-                            Else
-                                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 UsuarioActual.Empresa.UsaAC Then
                             Dim ConceptoRenglon, Referencia As String
@@ -3783,6 +3763,29 @@ Partial Class Bancos_IE
             Else
                 MsgError = "No se pudo validar la prepoliza de cuadre."
             End If
+        End If
+
+
+        'El movimiento 1 es el de Venta
+
+        'Conta ContPAQ
+        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+            If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
+                If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                    IDPoliza = ObjMov.ContaIdPoliza
+                    'Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
+                Else
+                    Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                    MsgError = "Error al contabilizar."
+                End If
+            Else
+                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 MsgError = "" Then

Contabilidad/ContabilizacionVentas.aspx.cs

@@ -336,7 +336,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
             int cvecuenta = e.Row.DataKey("CveCuenta").ToString().ToEntero();
             int CveConcepto = e.Row.DBCampo("CveConceptoContable").ToEntero();
 
-            if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26))
+            if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26,272,275, 305,306,307,308,309,310,311,312 ))
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"));
             }
@@ -344,7 +344,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"));
             }
-            if (CveConcepto.Contiene(1, 2, 4, 13, 61, 38, 39,  150, 203, 207, 251))
+            if (CveConcepto.Contiene(1, 2, 4, 12, 13, 61, 38, 39, 91, 150, 203, 207, 251, 291, 292, 293, 294))
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"));
             }

Contabilidad/RegPrePoliza.aspx.vb

@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
             End If
 
@@ -190,14 +190,17 @@ Partial Class ContabilidadC_RegPrePoliza
 
             Dim dt As DataTable = Nothing
             '   If UsuarioActual.Empresa.UsaContabilidad Then
-            Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
 
-            If Conta.GetCuentas(-1, "-1", 1) Then
+                If Conta.GetCuentas(-1, "-1", 1) Then
-                dt = Conta.DtResultados
+                    dt = Conta.DtResultados
-                DtCuentasContables = Conta.DtResultados
+                    DtCuentasContables = Conta.DtResultados
-                Session("DtCuentas") = Conta.DtResultados
+                    Session("DtCuentas") = Conta.DtResultados
+                End If
+                Conta.Dispose()
             End If
-            Conta.Dispose()
+
 
             If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                 DivTipoGasto.Visible = True
@@ -949,24 +952,9 @@ Partial Class ContabilidadC_RegPrePoliza
                                 Exit For
                             End If
                         End If
-                    Next
+                    Next
-
+
-                    'El movimiento 2 es el de Pago
+
-                    If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                        If idCuentaContabilizacion > 0 Then
-                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-
-                                'MENSAJE PRINCIPAL
-                                MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
-                                MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
-                                'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
-                            Else
-                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
-                            End If
-                        Else
-                            Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
-                        End If
-                    End If
                     If CvePeriodo > 0 Then
                         If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             MsgError = "No se pudo actualizar el periodo de la nómina"
@@ -978,6 +966,23 @@ Partial Class ContabilidadC_RegPrePoliza
                             GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                             MsgError = ObjMov.MensajePolizaDescuadre & "-"
                         End If
+                    End If
+
+                    'El movimiento 2 es el de Pago
+                    If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
+                        If idCuentaContabilizacion > 0 Then
+                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+
+                                'MENSAJE PRINCIPAL
+                                MensajeAlert.AppendFormat("<br/><br/>Folio de Póliza: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+                                MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
+                                'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
+                            Else
+                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
+                            End If
+                        Else
+                            Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
+                        End If
                     End If
 
                 Else
@@ -1003,14 +1008,16 @@ Partial Class ContabilidadC_RegPrePoliza
                     'TxtFecha.Text = ""
                     'TxtObservaciones.Text = ""
                 Else
+                    MsgError.GuardaLogAD()
                     ObjIE.RollBack()
                     If Conta IsNot Nothing Then Conta.RollBack()
                 End If
             Catch ex As Exception
+                ex.GuardaLog(ex.Message)
                 ObjIE.RollBack()
                 If Conta IsNot Nothing Then Conta.RollBack()
-                Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
+                Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
-                ex.GuardaLog(ex.Message)
+
             End Try
 
 

Inventarios/EntradasSalidas.aspx.vb

@@ -2083,7 +2083,7 @@ Partial Class Inventarios_EntradasSalidas
 
         ''condicion de limpieza si es el usuario 1490, se dejan sino 
         If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
-            If UsuarioActual.CveUsuario <> 1490 Then
+            If Not UsuarioActual.CveUsuario.Contiene(1490, 2185) Then 'luz del mar(1490), y celia(2185)
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1"))
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2"))
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3"))

Sistemas/CatSesiones.aspx

@@ -56,7 +56,8 @@
         <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
         <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
         <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
-        <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem> 
+        <asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem> 
 
     </asp:DropDownList>&nbsp;&nbsp; 
       

Sistemas/CatSesiones.aspx.vb

@@ -92,13 +92,25 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
             CargaDTClasificacionPorcentaje()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
-            CargaDTInvPSSeccionesAlmacen()
+            CargaDTInvPSSeccionesAlmacen()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
+            CargaGlobalDTTipoTransacciones()
         End If
 
 
 
 
-    End Sub
+    End Sub
+    Private Sub CargaGlobalDTTipoTransacciones()
+        Using ObjBancos As New ClsBancos
+            If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
+            If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
+            If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
+            If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
+        End Using
+    End Sub
+
+
     Private Sub CargaConceptosContables()
         Dim ObjContabilidad As New ClsContabilidad
         If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing

Ventas/ProductosServicios.aspx.vb

@@ -1162,6 +1162,16 @@ Partial Class ProductosyServicios
             Return
         End If
 
+        If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoPS.SelectedValue = "2" Then
+            If TxtVentaMinima.Text.ToDecimal <= 0 Then
+                Alert("La cantidad de venta mínima debe de ser especificada (mayor a cero)", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+
+        End If
+
+
+
         Dim ObjProductosServicios As New ClsProductosServicios()
         Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
 
@@ -1176,6 +1186,7 @@ Partial Class ProductosyServicios
             CveProveedor = DdlProveedor.txtValue.Value.ToEntero
         End If
 
+
         Dim CveMarca As Integer = 0
         If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
 

Ventas/Ventas.aspx.vb

@@ -22995,6 +22995,7 @@ Partial Class Ventas
         AplicaNC = False
         LBNotaCredito.Visible = True
         'LkNotaCredito.Visible = False
+        DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
 
         TxtNCPorcentaje.Attributes.Add("onkeyup", "CalculaImporteNC();")
         TxtNCImporte.Attributes.Add("onkeyup", "CalculaPorcentajeNC();")