Puntos GDiaz.

--Orden compra en ventas. campo texto no requiere archivo.
--Campo aseguradora en clientes

App_Code/ClsClientes.vb

@@ -147,6 +147,7 @@ Public Class ClsClientes
     Public Property CargoUsados As Boolean
     Public Property BonificacionUsado As Boolean
     Public Property CveSATEstado As Integer
+    Public Property Aseguradora As Boolean
 
 
     Public ReadOnly Property DtResultados() As DataTable
@@ -426,6 +427,7 @@ Public Class ClsClientes
                 _CreditoRegistroFirmas = Data(0)("CreditoRegistroFirmas").ToString
                 _GastosEnvio = Data(0)("GastosEnvio").ToString.ToDecimal
                 _EsFilial = CBool(Data(0)("EsFilial"))
+                _Aseguradora = CBool(Data(0)("Aseguradora"))
             End If
             Retorno = True
         Catch ex As Exception

Ventas/Clientes.aspx

@@ -693,6 +693,12 @@
                                                 <asp:CheckBox ID="ChkRequiereOC" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
                                             </div>
                                         </div>
+                                        <div class="row" id="DivAseguradora" runat="server" visible="false">
+                                            <div class="form-group col-md-6">
+                                                <label>Aseguradora: </label>
+                                                <asp:CheckBox ID="ChkAseguradora" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                            </div>
+                                        </div>
                                         <div class="row">
                                             <div class=" col-md-6">
                                                 <div class="form-group form-md-line-input input-iconright">
@@ -1200,7 +1206,8 @@
                                                     <div class="col-md-6">
                                                         <div class="form-group form-md-line-input">
                                                             <asp:TextBox ID="TxtGastosEnvio" CssClass="form-control" runat="server"></asp:TextBox>
-                                                               <label for="<%= TxtGastosEnvio.ClientID.ToString()%>">$ Envío:</label></div>
+                                                            <label for="<%= TxtGastosEnvio.ClientID.ToString()%>">$ Envío:</label>
+                                                        </div>
                                                     </div>
                                                 </div>
                                                 <div class="row">
@@ -2337,8 +2344,8 @@
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Autorización" ItemStyle-HorizontalAlign="Center" Visible="false">
                                                         <ItemTemplate>
-                                                            <asp:LinkButton ID="LnkAutorizar" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" tooltip="Autorizar Anticipo" runat="server" OnClick="LnkAutorizarAnticipo_Click" />
+                                                            <asp:LinkButton ID="LnkAutorizar" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ToolTip="Autorizar Anticipo" runat="server" OnClick="LnkAutorizarAnticipo_Click" />
-                                                            <asp:LinkButton ID="LnkCancelar" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'></i>" tooltip="Bloquear Anticipo" runat="server" OnClick="LnkCancelarAnticipo_Click" />
+                                                            <asp:LinkButton ID="LnkCancelar" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'></i>" ToolTip="Bloquear Anticipo" runat="server" OnClick="LnkCancelarAnticipo_Click" />
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                 </Columns>
@@ -5313,7 +5320,6 @@
                                 </div>
                                 <div class="row" style="padding-left: 16px">
                                     <div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="Div4" visible="false">
-                                         
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
@@ -6978,14 +6984,9 @@
                                         <asp:ListItem Text="Cerrado" Value="0"></asp:ListItem>
                                     </asp:DropDownList>
                                     <label for="<%= DdlLAEstatus.ClientID.ToString()%>">Estatus:</label>
-                                    </div
                                 </div>
                             </div>
-
+                        </div>
-
-
-
-
                     </div>
                     <div class="modal-footer">
                         <asp:UpdatePanel runat="server">

Ventas/Clientes.aspx.vb

@@ -742,7 +742,6 @@ Partial Class Clientes
             End If
 
 
-
             divRegimen.Visible = True
 
             If UsuarioActual.CveEmpresa.Contiene(1) Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -933,6 +932,11 @@ Partial Class Clientes
             ChkPermiso4.Enabled = False
             ChkPermiso5.Enabled = False
             ChkPermiso6.Enabled = False
+
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                DivAseguradora.Visible = True
+            End If
+
         End If
 
 
@@ -1545,6 +1549,7 @@ Partial Class Clientes
                 ChkRequiereOC.Checked = ObjClientes.RequiereOC
                 ChkEsDistribuidor.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("EsDistribuidor").ToString())
                 CobranzaTelefono = ObjClientes.CobranzaTelefono
+                ChkAseguradora.Checked = ObjClientes.Aseguradora
 
                 If ObjClientes.DtResultados(0)("Genero").ToString().Length > 0 Then
                     DdlGeneroCliente.SelectedValueExist(If(Boolean.Parse(ObjClientes.DtResultados(0)("Genero").ToString()), 1, 0))
@@ -2605,7 +2610,7 @@ Partial Class Clientes
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                         TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                         CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente,
-                                        CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal) Then
+                                        CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked) Then
 
                         CveClienteNuevo = ObjClientes.CveCliente
 
@@ -2690,7 +2695,7 @@ Partial Class Clientes
                                             CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                             NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
                                             Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked,
-                                            EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal) Then
+                                            EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked) Then
 
                         If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then
                             ErrorProceso = True

Ventas/Ventas.aspx.vb

@@ -10179,7 +10179,8 @@ Partial Class Ventas
         End If
 
         If RequiereOC AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Ing") AndAlso Not CveDevolucion > 0 Then
-            If Not CargaDocumentoOC Then
+
+            If Not CargaDocumentoOC AndAlso UsuarioActual.Empresa.Funcionalidad(382) <> "1" Then
                 Alert("Tiene que cargar un archivo de orden de compra", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If