- mejora

OC/OC.aspx

@@ -255,7 +255,7 @@
                                 <%--linea 5--%>
                                 <div class="row" style="padding-bottom: 0.6em;">
                                     <b>
-                                        <asp:Label runat="server" ID="LblFechaEstimada" Text="Fecha Estimada:" class="col-md-2" /></b>
+                                        <asp:Label runat="server" ID="LblFechaEstimada" Text="F. Estimada:" class="col-md-2" /></b>
                                     <div class="col-md-4" id="DivFechaEstimada" runat="server">
                                         <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80% !important; padding: 0px;">
                                             <asp:TextBox ID="TxtFechaEstimadaEntrega" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -284,25 +284,19 @@
                                     </div>
                                 </div>
                                 <%--linea 6--%>
-                                <asp:UpdatePanel ID="UPProv" runat="server" UpdateMode="Conditional">
+                                <asp:UpdatePanel ID="UPProv" runat="server" UpdateMode="Conditional" RenderMode="Inline" style="class=Row">
                                     <ContentTemplate>
                                         <div id="PnlProveedor" runat="server" style="padding-bottom: 0.6em;">
 
                                             <div class="row">
                                                 <label class="col-md-2">Proveedor:</label>
                                                 <div class="col-md-9">
-                                                    <%--<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor">
-                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                                    </asp:DropDownList>--%>
                                                     <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />                                                                                                        
-                                                    <%--<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
-                                                    <ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                                    <asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
                                                 </div>
                                                 <div class="col-md-1" style="padding-left: 0px;">
+                                                    <asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv"  data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Proveedor" />
                                                     <asp:Label ID="LblLeyendaProveedorIVA" runat="server" Width="100%" Text="" Font-Italic="True"></asp:Label>
                                                 </div>
-
                                             </div>
                                         </div>
 
@@ -326,10 +320,7 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
 
-                        
-
                                 <div class="row">
-
                                     <label class="col-md-2"><b>IVA A Facturar:</b> </label>
                                     <div class="col-md-2">
                                         <asp:UpdatePanel ID="UpDdlIVA" runat="server" UpdateMode="Conditional">
@@ -438,16 +429,11 @@
                                     </tr>
                                     <tr id="TrUsuarioAsignado" runat="server" visible="False">
                                         <td colspan="2">
-                                            <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label></td>
+                                            <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
-                                    </tr>
-                                    <tr>
-                                        <td></td>
-                                        <td>
                                              <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
                                         </td>
                                     </tr>                                    
-
+                                    <tr id="trCfdi" style="display:none;" >
-                                    <tr>
                                         <td>
                                             <div class="caption font-green">
                                                 <i class="icon-pin font-green"></i>

OC/OC.aspx.vb

@@ -2218,10 +2218,19 @@ Partial Class OC_OC
                 End If
             End If
 
+            If DdlProveedores.SelectedValue.ToEntero > 0 Then
                 'Si es Proveedor Extranjero el IVA es 0%
-            If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
+                Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
+
+                If drProv IsNot Nothing Then
+                    If drProv("RFC").ToString = "XEXX010101000" Then
                         IvaPS = 0
                     End If
+                    If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
+                        RetISR = 0.0125
+                    End If
+                End If
+            End If
 
             AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDecimal, TotalPS,
                       CboUnidadMedida.SelectedValue.ToEntero, IvaPS, IEPSPS, IEPSPSIVA, DdlClasificacion.SelectedValue.ToEntero, CboUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, DdlProyecto.SelectedValue.ToEntero, Proyecto,
@@ -4026,7 +4035,19 @@ Partial Class OC_OC
             ' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
         End If
 
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+            'Si es Proveedor Extranjero el IVA es 0%
+            Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
 
+            If drProv IsNot Nothing Then
+                If drProv("RFC").ToString = "XEXX010101000" Then
+                    IvaPS = 0
+                End If
+                If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
+                    RetISR = 0.0125
+                End If
+            End If
+        End If
 
         CveSubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero
         SubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedItem.Text
@@ -4038,8 +4059,6 @@ Partial Class OC_OC
             Cuadro = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedItem.Text
         End If
 
-
-
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             CveProyecto = -1
             Proyecto = "Seleccione"
@@ -4082,9 +4101,6 @@ Partial Class OC_OC
             End If
         End If
 
-
-
-
         'Agarra el nuevo AF si se modifico o deja el pasado
         CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
         Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value)
@@ -6959,7 +6975,7 @@ Partial Class OC_OC
 #End Region
 
 #Region "  ACTUALIZA OC  "
-    Protected Sub ImgCambiaProv_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaProv.Click
+    Private Sub ImgCambiaProv_Click(sender As Object, e As EventArgs) Handles ImgCambiaProv.Click
         Dim OC As New ClsOC
         If OC.UpdateProveedorOrdenCompra(DdlProveedores.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
             CargaHistorial()