Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsPaginas.vb

@@ -1921,7 +1921,7 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
-                If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados
+                If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados.Copy()
                 ObjClientes.Dispose()
             End If
             If CveEmpresa <> -1 Then

App_Code/Modelos.vb

@@ -3383,8 +3383,8 @@ Namespace Modelos
                                             'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                             If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then
 
-                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
+                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                                    TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString
+                                                    TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString
                                                 End If
 
                                             End If

Bancos/IE.aspx.vb

@@ -1020,6 +1020,12 @@ Partial Class Bancos_IE
                     DdlPersonal.Enabled = False
                 End If
 
+                'SI TIENE EL DATO DEBE MOSTRALO
+                If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then
+                    LblPagarA.Visible = True
+                    LblPagarA.Text = ObjIE.PagueseA
+                End If
+
                 IDPoliza = ObjIE.IDPoliza
                 IDCtaContable = ObjIE.IdCtaContable
 

Empresas/13/Formatos/Factura.rdlc

@@ -3479,50 +3479,8 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox6">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>VERSION </Value>
-                <Style>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!CFDIVersion.Value</Value>
-                <Style>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>14.03578cm</Top>
-        <Left>16.60468cm</Left>
-        <Height>0.65292cm</Height>
-        <Width>3.68516cm</Width>
-        <ZIndex>50</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
     </ReportItems>
-    <Height>14.6887cm</Height>
+    <Height>14.00096cm</Height>
     <Style />
   </Body>
   <Width>20.42213cm</Width>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1647,9 +1647,9 @@ Partial Class Inventarios_TraspasoAlmacen
                         'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
                         If CvePS > 0 Then
                             CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToEntero
-                            Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
+                            Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
 
-                            If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
+                            'If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
 
                             Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToDecimal
                             If CveMovimientoDetalleSalida <= 0 Then
@@ -1657,7 +1657,16 @@ Partial Class Inventarios_TraspasoAlmacen
                                 TextoError = "Ocurrió un error al guardar los movimientos de salida"
                                 Exit For
                             End If
-                            If Cantidad <> 0 Then
+
+                            Dim cantidadDisponibleValidacion As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
+
+                            If cantidadDisponibleValidacion < 0 Then
+                                ErrorMovInv = True
+                                TextoError = $"La cantidad a cancelar del producto '{GvRow.DataKey("Codigo")}-{GvRow.DataKey("PS")}' excede la del traspaso"
+                                Exit For
+                            End If
+
+                            If Cantidad > 0 Then
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
                                     ErrorMovInv = True
                                     TextoError = "Ocurrió un error al guardar los movimientos de entrada"

Ventas/Ventas.aspx

@@ -555,9 +555,9 @@
                                 </td>
                             </tr>
                             <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
-                            <td><b>Descripción de factura:</b></td>
+                                <td><b>Descripción de factura:</b></td>
-                            <td>
+                                <td colspan="3">
-                                <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
                             </tr>
                         </table>
                     </div>
@@ -8454,7 +8454,7 @@
                         TxtImporte.value = FormatoNumero(Saldo, 2);
                     }
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         TxtImporte.value = "";
                         Chk.checked = false;
                     } else {
@@ -8498,7 +8498,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8565,7 +8565,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8632,7 +8632,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8862,7 +8862,7 @@
                         TxtImporte.value = FormatoNumero(Saldo, 2);
                     }
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         TxtImporte.value = "";
                         Chk.checked = false;
                     } else {

Ventas/Ventas.aspx.vb

@@ -14758,8 +14758,8 @@ Partial Class Ventas
                                         'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                         If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
 
-                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
+                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString()
+                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
                                             End If
 
                                         End If
@@ -17640,7 +17640,14 @@ Partial Class Ventas
                 CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                 If CvePrecioListaPS <= 0 Then
                     CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                End If
 
+                If Me.CvePrecioListaCliente > 0 Then
+                    Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
+                    'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
+                    If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
+                        CvePrecioListaPS = Me.CvePrecioListaCliente
+                    End If
                 End If
 
             End If
@@ -36150,6 +36157,14 @@ Partial Class Ventas
                         If CvePrecioListaPS <= 0 Then
                             CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         End If
+
+                        If Me.CvePrecioListaCliente > 0 Then
+                            Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
+                            'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
+                            If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
+                                CvePrecioListaPS = Me.CvePrecioListaCliente
+                            End If
+                        End If
                     End If
 
                     If CvePrecioListaPS > 0 Then