AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-18 23:16:56 -07:00
parent b920bd444c 2b73107c94
commit 3c2c10598e
7 changed files with 82 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/ProductosServicios.aspx
View File

@@ -2106,20 +2106,20 @@
<asp:DropDownList ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">
</asp:DropDownList>
<label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidadEquivalencia" runat="server" Width="60" CausesValidation="true" MaxLength="10"></asp:TextBox>
<label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="modal-footer">
<asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click"> Guardar</asp:LinkButton>
<asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click" ValidationGroup="GrpAgregarEquivalencia" > Guardar</asp:LinkButton>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>

4
Ventas/Ventas.aspx
View File

@@ -631,10 +631,10 @@
<asp:TextBox ID="TxtFolioRemision" runat="server" Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
</td>
<td runat="server" id="Td10" >
<b>Tipo de Venta:</b>
</td>
<td runat="server">
<asp:Label runat="server" ID="LblTipoVenta"></asp:Label>
</td>
</tr>
</table>

25
Ventas/Ventas.aspx.vb
View File

@@ -6173,6 +6173,10 @@ Partial Class Ventas
TxtPaciente.Enabled = False
TxtEpisodio.Enabled = False
TrVentasMedicas4.Visible = True
TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
LblTipoVenta.Text = DbRowVenta("TipoVenta").ToString
If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then
TrVentasMedicas2.Visible = True
@@ -6181,12 +6185,9 @@ Partial Class Ventas
TxtFechaOS.Text = DbRowVenta("FechaParaSurtir").ToString().ToDateTime().ToString("yyyy-MM-dd HH:mm").Replace(" ", "T")
End If
End If
If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then
TrVentasMedicas4.Visible = True
TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
End If
End If
End If
End Using
@@ -8612,6 +8613,9 @@ Partial Class Ventas
'If UsuarioActual.CveEmpresa = 119 Then
' e.Row.FCTextBox("TxtDescuento").Enabled = False
'End If
Else
'MODO NORMAL
@@ -8760,11 +8764,13 @@ Partial Class Ventas
End If
If EsVentaMedica Then
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
If DdlTipoComprobante.SelectedValue = "Cot" Then
If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
End If
End If
If CveCicloComercial > 0 Then
@@ -17676,7 +17682,7 @@ Partial Class Ventas
If EsVentaMedica Then
TxtPrecio.Enabled = False
If UsuarioActual.CveUsuario = 3986 Then
If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
TxtPrecio.Enabled = True
End If
@@ -22799,8 +22805,9 @@ Partial Class Ventas
End If
End If
TxtAtencionA.Enabled = True
UpCliente.Update()
UPPVentas.Update()
UpPS.Update()
UpCliente.Update()
@@ -37785,6 +37792,10 @@ Partial Class Ventas
AsignaAlmacenWS()
'CargaPS(-1, DdlPS)
End If
If RBLTipoVenta.SelectedValue.Contiene("1") Then
TxtPrecio.Enabled = True
UpPS.Update()
End If
RegistraScript("$('#DvModalTipoVenta').modal('hide');")
UpCliente.Update()