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

2020-01-08 16:41:44 -07:00
parent 4365df10e4 9e3a731111
commit b57d7e48f9
9 changed files with 67 additions and 38 deletions
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -315,6 +315,8 @@ Partial Class Bancos_FluctuacionCambiaria
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Conta.IniciaTransacSQL()
+        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjContPaq.IniciaTransacSQL()
        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
@@ -372,8 +374,19 @@ Partial Class Bancos_FluctuacionCambiaria
            End If
        Next

+        Dim SeContabilizo As Boolean = False
+
+        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+        If AutoConta Then
+            If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                SeContabilizo = True
+            Else
+                Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+            End If
+        End If
+
+        If Not ErrorRegistrar And SeContabilizo Then

-        If Not ErrorRegistrar Then
            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)
            CargaDatosCuentas()
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -827,7 +827,7 @@ Partial Class Bancos_ProveedoresAbonar


                'cheque
-                If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
+                If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero

                CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))

--- a/Empresas/146/Formatos/Factura.rdlc
+++ b/Empresas/146/Formatos/Factura.rdlc
@@ -963,7 +963,7 @@
          <Paragraph>
            <TextRuns>
              <TextRun>
-                <Value>Régimen: Sociedad Anónima de  Capital Variable; Condiciones de pago: </Value>
+                <Value>Régimen: Personas Físicas con Actividades Empresariales y Profesionales; Condiciones de pago: </Value>
                <Style>
                  <FontFamily>calibri</FontFamily>
                  <FontSize>7pt</FontSize>
@@ -991,14 +991,7 @@
                </Style>
              </TextRun>
              <TextRun>
-                <Value>; Num. Cta Pago:</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value)</Value>
+                <Value>; </Value>
                <Style>
                  <FontFamily>calibri</FontFamily>
                  <FontSize>7pt</FontSize>
@@ -1104,7 +1097,7 @@
                    </Style>
                  </TextRun>
                  <TextRun>
-                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Localización Precisa GPS de México SA de CV, a su vencimiento  el  </Value>
+                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VICTOR MANUEL RAMIREZ CASTILLO, a su vencimiento  el  </Value>
                    <Style>
                      <FontStyle>Normal</FontStyle>
                      <FontFamily>calibri</FontFamily>
@@ -1128,7 +1121,7 @@
                    </Style>
                  </TextRun>
                  <TextRun>
-                    <Value>, en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
+                    <Value>, en Tijuana, Baja California o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
                    <Style>
                      <FontStyle>Normal</FontStyle>
                      <FontFamily>calibri</FontFamily>
@@ -1176,7 +1169,7 @@
                    </Style>
                  </TextRun>
                  <TextRun>
-                    <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a Localización Precisa GPS de México SA de CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a  </Value>
+                    <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a  </Value>
                    <Style>
                      <FontStyle>Normal</FontStyle>
                      <FontFamily>calibri</FontFamily>
@@ -4036,7 +4029,6 @@
        <Source>Embedded</Source>
        <Value>VISTAPREVIA22</Value>
        <Sizing>FitProportional</Sizing>
-        <Top>0cm</Top>
        <Left>19.87567cm</Left>
        <Height>18.27471cm</Height>
        <Width>0.33541cm</Width>
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -683,6 +683,7 @@ Partial Class General_SaldosIniciales
                    DTPS = ObjPS.DtResultados
                End If

+                Dim NuevaClasificacion As Boolean = False

                For Each Row As DataRow In dt.Rows
                    Dim Codigo As String = Row("Codigo").ToString
@@ -718,8 +719,9 @@ Partial Class General_SaldosIniciales
                        If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
                                                      GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario,
                                                      UsuarioActual.CveEmpresa) Then
-                            If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados
+                            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                            CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
+                            NuevaClasificacion = True
                        End If
                    End If

@@ -831,7 +833,7 @@ Partial Class General_SaldosIniciales
                    'If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For

                    If CvePS > 0 Then
-                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
+                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, -1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
                                              CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
                                              CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveTamaño:=CveTamaño) Then
                            'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
@@ -878,6 +880,9 @@ Partial Class General_SaldosIniciales
                    UpDatos.Update()
                Else
                    ObjPS.RollBack()
+                    If NuevaClasificacion Then
+                        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
+                    End If
                End If
                ObjPS.Dispose()
                ObjGral.Dispose()
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2561,16 +2561,25 @@ Partial Class Inventarios_RecepcionUsados
            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
+
+                If PorcentajeProducto > 0 Then
+
+                    Dim MontoDescuento As Decimal = PrecioSugerido * PorcentajeProducto
+                    PrecioSugerido -= MontoDescuento
+
+                    If PorcentajeProducto2 > 0 Then
+
+                        MontoDescuento = PrecioSugerido * PorcentajeProducto2
+                        PrecioSugerido -= MontoDescuento
+
+                        If PorcentajeProducto3 > 0 Then
+                            MontoDescuento = PrecioSugerido * PorcentajeProducto3
+                            PrecioSugerido -= MontoDescuento
+                        End If
+                    End If
+                End If

            End If

--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -348,7 +348,9 @@ Partial Class CatClasificaciones

        TxtClasificacion.Text = ""
        TxtPrecioBaseCosto.Text = ""
-        DdlCategoria.SelectedIndex = 0
+        If DdlCategoria.Items.Count > 0 Then
+            DdlCategoria.SelectedIndex = 0
+        End If
        DdlSATPS.SelectedValue = ""
        DdlSATPS.SelectedText = ""
        LtlTituloModal.Text = "Agregar Clasificación"
--- a/Ventas/CatVendedores.aspx.vb
+++ b/Ventas/CatVendedores.aspx.vb
@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores

 #Region "CARGA GLOBAL"
    Private Sub CargaGlobal()
-        Dim ObjVendedores As New ClsVtaVendedores
-        If ObjVendedores.GetVendedores(-1) Then
-            GlobalDTVendedores(-1) = ObjVendedores.DtResultados
-        End If
-        ObjVendedores.Dispose()
+        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjVendedores As New ClsVtaVendedores
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
+        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
+        'End If
+        'ObjVendedores.Dispose()
    End Sub
 #End Region

--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -459,7 +459,7 @@ Partial Class Ventas_ClientesAbonar
        TxtImporte.Text = ""
        TxtObservaciones.Text = ""
        If SumDescuentoProntoPago > 0.0 Then
-            GvCxC.Columns("DescuentoProntoPago").Visible = True
+            GvCxC.Columns(15).Visible = True
        End If

        Mov.Dispose()
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10256,7 +10256,9 @@ Partial Class Ventas
                                        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                        'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
                                        If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
-                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
+                                            Dim CampoCuenta As String = "IdCuentaGasto"
+                                            If UsuarioActual.CveEmpresa.Contiene(80, 72, 146) Then CampoCuenta = "IdCuentaDescuento"
+                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor(CampoCuenta, String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                        Else
                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                        End If
@@ -13824,10 +13826,12 @@ Partial Class Ventas

            If DtPromociones.Rows.Count > 0 And DtPromociones IsNot Nothing Then
                Dim dr As DataRow = DtPromociones.FiltroPrimero($"CvePS = {CvePS}")
-                TipoPromo = dr("TipoPromocion").ToString.ToEntero
-                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
-                PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
-                CantMinima = dr("CantidadMinima").ToString.ToEntero
+                If dr IsNot Nothing Then
+                    TipoPromo = dr("TipoPromocion").ToString.ToEntero
+                    TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
+                    PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+                    CantMinima = dr("CantidadMinima").ToString.ToEntero
+                End If
            End If

            If TipoPromo = 1 Then 'Promocion por Importe $
@@ -14252,7 +14256,8 @@ Partial Class Ventas


        'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza AndAlso Not UsuarioActual.TienePermisoProceso(284) Then
+
            For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
                Dim DrPoliza As DataRow = TmpDT.NewRow()
@@ -14334,6 +14339,8 @@ Partial Class Ventas
                    TmpDT.Rows.Add(DrPoliza)
                End If
            Next
+
+
        End If

        Retorno = True