apertura de registro de conexión

This commit is contained in:
Rene Molina
2019-08-30 16:31:51 -07:00
parent 2f2b9d81d7
commit ebb6f15df4
5 changed files with 81 additions and 5 deletions

View File

@@ -209,7 +209,15 @@
<ajax:ValidatorCalloutExtender ID="VCClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright" id="DivClasificacionDetalle" runat="server" visible="false">
<asp:DropDownList ID="DropDownList1" CssClass="form-control input-sm select2me " Width="70%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlTipoPSDes.ClientID.ToString()%>">Tipo:</label>
<asp:LinkButton ID="LinkButton1" runat="server" OnClick="BtnAddClasificacionDetalle_Click" CssClass="btn btn-default btn-circle btn-xs " data-toggle="tooltip" title="Registrar un Tipo"><i class='fa fa-plus' style="color:black" ></i></asp:LinkButton>
</div>
<div class="form-group form-md-line-input input-iconright" id="DvTamanio" runat="server" visible="false">
<asp:DropDownList ID="DdlTamanio" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Tamaño" DataValueField="CveTamaño" Width="350px">
<asp:ListItem Value="-1">Seleccione</asp:ListItem>

View File

@@ -15750,12 +15750,13 @@ Partial Class Ventas
Next
End If
Dim ErrorLista As New StringBuilder
'Orden Produccion'
If Not OcurrioError Then
If UsuarioActual.CveEmpresa.Contiene(126) Then
If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then
If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then
ErrorList.Add("Ocurrió un error al actualizar la orden de producción")
ErrorLista.Append("Ocurrió un error al actualizar la orden de producción")
End If
End If
End If
@@ -15765,7 +15766,7 @@ Partial Class Ventas
If ObjConta.ValorPolizaDescuadre > 0 Then
If ObjConta.ValorPolizaDescuadre = 2 Then
OcurrioError = True
ErrorList.Add(ObjConta.MensajePolizaDescuadre)
ErrorLista.Append(ObjConta.MensajePolizaDescuadre)
End If
End If
End If
@@ -15778,7 +15779,7 @@ Partial Class Ventas
If OcurrioError Then
ObjVentas.RollBack()
Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo.", TipoMensaje.MsgError)
Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo." & ErrorLista.ToString, TipoMensaje.MsgError)
Else
ObjVentas.Commit()
If ObjAC IsNot Nothing Then ObjAC.Commit()