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

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()

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))
 

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>
+                <Value>; </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>
                 <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>

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()

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
 

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"

Ventas/CatVendedores.aspx.vb

@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores
 
 #Region "CARGA GLOBAL"
     Private Sub CargaGlobal()
-        Dim ObjVendedores As New ClsVtaVendedores
+        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
-        If ObjVendedores.GetVendedores(-1) Then
+        'Dim ObjVendedores As New ClsVtaVendedores
-            GlobalDTVendedores(-1) = ObjVendedores.DtResultados
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
-        End If
+        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
-        ObjVendedores.Dispose()
+        'End If
+        'ObjVendedores.Dispose()
     End Sub
 #End Region
 

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()

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
+                If dr IsNot Nothing Then
-                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
+                    TipoPromo = dr("TipoPromocion").ToString.ToEntero
-                PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+                    TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
-                CantMinima = dr("CantidadMinima").ToString.ToEntero
+                    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