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

Contabilidad/RepIVA.aspx.cs

@@ -377,7 +377,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             else
             {
                 DataTable dtt = new DataTable();
-                dtt = Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0  AND ( ActosFN > 0 OR ActosFS > 0 OR Actos16 > 0 OR ActosImp16 > 0 OR ActosImpNotan16 > 0 OR DATasa0 > 0 OR DANoObjetoTN > 0 OR DANoObjetoNoTN > 0 OR NoAcredFN > 0 OR NoAcredNoFN > 0)");
+                dtt = Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0  AND ( ActosFN > 0 OR ActosFS > 0 OR Actos16 > 0 OR ActosImp16 > 0 OR ActosImpNotan16 > 0 OR DATasa0 > 0 OR DANoObjetoTN > 0 OR DANoObjetoNoTN > 0 OR NoAcredFN > 0 OR NoAcredNoFN > 0 OR NoAcredNo16 > 0 )");
                 //acumula los prov, globales en un solo registro
                 dtt = AcumularYReemplazar(dtt);
                
@@ -799,7 +799,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             TmpDIOT.Columns.Add("DAManifiesto", typeof(string));
 
             DataTable dtt = new DataTable();
-            dtt = Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0  AND ( ActosFN > 0 OR ActosFS > 0 OR Actos16 > 0 OR ActosImp16 > 0 OR ActosImpNotan16 > 0 OR DATasa0 > 0 OR DANoObjetoTN > 0 OR DANoObjetoNoTN > 0 OR NoAcredFN > 0 OR NoAcredNoFN > 0)");
+            dtt = Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0  AND ( ActosFN > 0 OR ActosFS > 0 OR Actos16 > 0 OR ActosImp16 > 0 OR ActosImpNotan16 > 0 OR DATasa0 > 0 OR DANoObjetoTN > 0 OR DANoObjetoNoTN > 0 OR NoAcredFN > 0 OR NoAcredNoFN > 0 OR NoAcredNo16 > 0)");
             //acumula los prov, globales en un solo registro
             dtt = AcumularYReemplazar(dtt);
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -539,7 +539,9 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub CargaAlmacenOrigen()
         DdlAlmacenOrigen.Enabled = True
         DdlAlmacenOrigen.Items.Clear()
-        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)")
+        Dim Str As String = " CveTipoAlmacen NOT IN (3,4,9,10,11,24) "
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then Str = Str.Replace("4,", "") ' permtir los tipo 4, consignación
+        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(Str)
         DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
         DdlAlmacenOrigen.SelectedValue = "-1"
         DdlAlmacenOrigen.DataBind()

Ventas/Ventas.aspx.vb

@@ -17519,15 +17519,12 @@ Partial Class Ventas
             End If
 
             If e.Row.DBCampo("Tipo").ToString() = "NC" And e.Row.DataKey("CveVenta").ToEntero() > 0 OrElse (e.Row.DBCampo("Tipo").Contiene("Ant", "IxC") And e.Row.DataKey("CveMoneda").ToEntero() = 1 AndAlso DdlMoneda.SelectedValue.ToEntero() = 2) Then
-                'If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = 2 Then
+
-                '    tipoCambio = e.Row.DBCampo("TipoCambioHoy").ToString().ToDecimal
-                'Else
-                '    tipoCambio = GlobalTipoCambio(e.Row.DataKey("Fecha").ToString().ToDate).ToDecimal
-                'End If
                 If TxtFechaAnticipoCliente.Text = "" Then TxtFechaAnticipoCliente.Text = Now.ToShortDateString
                 tipoCambio = GlobalTipoCambio(TxtFechaAnticipoCliente.Text.ToDate).ToDecimal 'e.Row.DBCampo("TipoCambioHoy").ToString().ToDecimal
 
                 e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Text = tipoCambio.FormatoNumero(4)
+                If e.Row.DBCampo("Tipo").Contiene("IxC") Then e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Enabled = True
 
                 If DdlMoneda.SelectedValue.ToEntero() = 1 And e.Row.DBCampo("CveMoneda").ToEntero() = 1 Then
                     saldo = e.Row.DataKey("Saldo").ToDecimal
@@ -17537,9 +17534,9 @@ Partial Class Ventas
                     saldo = (e.Row.DataKey("Saldo").ToString().ToDecimal * tipoCambio).TruncateDecimal
                 Else
                     saldo = e.Row.DataKey("Saldo").ToDecimal
-                End If
+                    End If
-            Else
+                Else
-                saldo = e.Row.DataKey("Saldo").ToString().ToDecimal
+                    saldo = e.Row.DataKey("Saldo").ToString().ToDecimal
 
                 If CveVenta <= 0 Then
                     If DdlTipoAmortizacionAnticipo.SelectedValue.Contiene("2") Then 'cuando es por NC, debe de tomar el total de su saldo respectivo
@@ -19766,8 +19763,8 @@ Partial Class Ventas
                     DdlIVA.SelectedValue = "1"
                     PorcentajeIVA = ViewState("IVA").ToString().ToDecimal
                 Case 0.08
-                    DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal() + 1).RoundSQL(2).ToString()}", "1.08")
                     PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString().ToDecimal).RoundSQL(2)
+                    DdlIVA.SelectedValueExist((PorcentajeIVA + 1).ToString.Replace("1.00", "1")) ' detalle al usar cero, se está poniendo 1.00, debemos limpiar los ceros
                     DdlIVA.Visible = If(Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0, True, False)
                 Case 0.16
                     DdlIVA.SelectedValue = "1.16"