-mejoras en timbrado 4.0

Ventas/ProductosServicios.aspx

@@ -501,10 +501,19 @@
                                             <i>$</i>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <div class="row">
+                                            <div class="row" id="DivObjetoImpuesto" runat="server" visible="false">
+                                                  <div class="col-md-12">
+                                                      <div class="form-group form-md-line-input input-iconright">
+                                                        <label for="<%= DdlObjetoImpuesto.ClientID.ToString()%>">Obj.Imp:</label>
+                                                        <asp:DropDownList ID="DdlObjetoImpuesto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataValueField="CveObjetoImpuesto" DataTextField="CodigoObjetoImpuestoTexto" >                                                        
+                                                        </asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="row"> 
                                                 <div id="DvTipo" runat="server" class="col-md-6">
                                                     <label for="<%= DdlTipoFactor.ClientID.ToString()%>">Tipo Factor:</label>
-                                                    <asp:DropDownList ID="DdlTipoFactor" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true">
+                                                    <asp:DropDownList ID="DdlTipoFactor" Width="100%" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true">
                                                         <asp:ListItem Selected="True" Text="Tasa" Value="1"></asp:ListItem>
                                                         <asp:ListItem Text="Cuota" Value="2"></asp:ListItem>
                                                         <asp:ListItem Text="Exento" Value="3"></asp:ListItem>

Ventas/ProductosServicios.aspx.vb

@@ -276,6 +276,9 @@ Partial Class ProductosyServicios
                 'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
 
             End If
+
+
+
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                 TxtPS.CssClass = "form-control Mayuscula"
             End If
@@ -338,6 +341,12 @@ Partial Class ProductosyServicios
 
         CargaCombosSeccionAlmacen()
 
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'emisión 4.0
+            DivObjetoImpuesto.Visible = True
+            DdlObjetoImpuesto.DataSource = GlobalDTSATObjetosImpuestos
+            DdlObjetoImpuesto.DataBind()
+        End If
+
         CreaDtSeccionAlmacen()
 
         If UsuarioActual.Empresa.UsaContabilidad Then
@@ -902,6 +911,7 @@ Partial Class ProductosyServicios
                 DdlMedida.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveMedida").ToString)
                 DdlRin.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveRinTamaño").ToString)
 
+                DdlObjetoImpuesto.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveObjetoImpuesto").ToString)
                 'If ObjProductosServicios.CvePSAdicional > 0 Then
                 '    DdlPSAdicional.SelectedValue = ObjProductosServicios.CvePSAdicional.ToString
                 '    DdlPSAdicional.SelectedText = ObjProductosServicios.PSCodigoAdicional
@@ -1366,7 +1376,8 @@ Partial Class ProductosyServicios
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) > 0 Then
+                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
+                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1416,7 +1427,8 @@ Partial Class ProductosyServicios
                                                   ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) Then
+                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
+                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True

Ventas/Ventas.aspx.vb

@@ -17735,7 +17735,7 @@ Partial Class Ventas
             Row("CveTipoPS") = DrPS("CveTipoPS")
             Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
             Row("CveTamaño") = DrPS("CveTamaño")
-            Row("ObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
+            Row("CodigoObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
 
             If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion")
             If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion")
@@ -18285,7 +18285,7 @@ Partial Class Ventas
 
         TmpDT.Columns.Add("TieneProntoPago", GetType(String))
         TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
-        TmpDT.Columns.Add("ObjetoImpuesto", GetType(String))
+        TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String))
 
         TmpDT.Columns("EsOutSourcing").DefaultValue = False
         TmpDT.Columns("EsCargo").DefaultValue = False
@@ -27002,10 +27002,10 @@ Partial Class Ventas
                     'verificar autorizaciones
                     Dim ObjVentas As New ClsVentas
                     If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
-                        Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
+                        Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion,Importe DESC")
                         If RowAutorizacion IsNot Nothing Then
                             Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
-                            If ImporteAutorizacion > TxtNCImporte.Text.ToDecimal Then
+                            If ImporteAutorizacion >= TxtNCImporte.Text.ToDecimal Then
                                 Verificacion = True
                             End If
                         End If