This commit is contained in:
2024-05-18 23:16:56 -07:00
7 changed files with 82 additions and 54 deletions

View File

@@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia
End If
Else
If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
TxtFolioGarantia.Text = ""
DdlEstatusEditar.SelectedValueExist("1")
@@ -197,8 +197,10 @@ Partial Class Acumuladores_CatFoliosGarantia
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
DdlArea.SelectedValueExist(GvRow.DataKey("Area"))
BtnAgregarFolioGarantiaModal.Text = "Actualizar"
UpModalFolioGarantia.Update()

View File

@@ -543,7 +543,7 @@ Public Class ClsAcumuladores
Return Retorno
End Function
Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
@@ -558,6 +558,7 @@ Public Class ClsAcumuladores
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
.Add("@Limite", SqlDbType.Int).Value = Limite
.Add("@Area", SqlDbType.Int).Value = Area
End With

View File

@@ -780,7 +780,6 @@
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1588,7 +1587,7 @@
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.33542cm</Height>
<Height>0.2825cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -1972,7 +1971,7 @@
<DataSetName>DsInventarios</DataSetName>
<Top>0.14111cm</Top>
<Left>0.10068cm</Left>
<Height>3.1562cm</Height>
<Height>3.10328cm</Height>
<Width>25.45761cm</Width>
<Style>
<Border>
@@ -2048,6 +2047,18 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Line Name="Line4">
<Top>4.79214cm</Top>
<Left>0.10068cm</Left>
<Height>0cm</Height>
<Width>25.72414cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
</ReportItems>
<Height>1.88667in</Height>
<Style />
@@ -2055,7 +2066,7 @@
<Width>10.19535in</Width>
<Page>
<PageHeader>
<Height>4.44499cm</Height>
<Height>4.55082cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -2544,7 +2555,7 @@ Municipio y/o Delegación: </Value>
<rd:DefaultName>Textbox7</rd:DefaultName>
<Top>2.32101cm</Top>
<Left>0.13678cm</Left>
<Height>2.12398cm</Height>
<Height>2.05342cm</Height>
<Width>20.93288cm</Width>
<ZIndex>9</ZIndex>
<Style>
@@ -2565,7 +2576,7 @@ Municipio y/o Delegación: </Value>
</Style>
</PageHeader>
<PageFooter>
<Height>3.8269cm</Height>
<Height>2.5569cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -2588,7 +2599,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Top>1.37766cm</Top>
<Top>0.74266cm</Top>
<Left>5.68986cm</Left>
<Height>0.50243cm</Height>
<Width>5.79375cm</Width>
@@ -2624,7 +2635,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Top>1.37766cm</Top>
<Top>0.74266cm</Top>
<Left>14.40467cm</Left>
<Height>0.50243cm</Height>
<Width>5.78664cm</Width>
@@ -2675,9 +2686,9 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Top>1.66375cm</Top>
<Top>1.02875cm</Top>
<Left>5.69781cm</Left>
<Height>1.2cm</Height>
<Height>0.82958cm</Height>
<Width>5.78664cm</Width>
<ZIndex>2</ZIndex>
<Visibility>
@@ -2726,9 +2737,9 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Top>1.6632cm</Top>
<Top>1.0282cm</Top>
<Left>14.41177cm</Left>
<Height>1.2cm</Height>
<Height>0.82958cm</Height>
<Width>5.78664cm</Width>
<ZIndex>3</ZIndex>
<Visibility>
@@ -2763,7 +2774,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>0.07331cm</Top>
<Top>0.04156cm</Top>
<Left>5.69781cm</Left>
<Height>0.6cm</Height>
<Width>5.78664cm</Width>
@@ -2800,7 +2811,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>0.07331cm</Top>
<Top>0.04156cm</Top>
<Left>14.41177cm</Left>
<Height>0.6cm</Height>
<Width>5.78664cm</Width>
@@ -2835,7 +2846,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Top>0.45106cm</Top>
<Top>0.41931cm</Top>
<Left>10.04017cm</Left>
<Height>0.63528cm</Height>
<Width>5.78664cm</Width>
@@ -2886,9 +2897,9 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Top>1.6632cm</Top>
<Top>1.0282cm</Top>
<Left>10.04727cm</Left>
<Height>1.2cm</Height>
<Height>0.82958cm</Height>
<Width>5.78664cm</Width>
<ZIndex>7</ZIndex>
<Visibility>
@@ -2923,7 +2934,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>0.07331cm</Top>
<Top>0.04156cm</Top>
<Left>10.04727cm</Left>
<Height>0.6cm</Height>
<Width>5.78664cm</Width>
@@ -2971,7 +2982,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName>
<Top>3.40709cm</Top>
<Top>2.13709cm</Top>
<Left>0.10068cm</Left>
<Height>0.41981cm</Height>
<Width>5.78083cm</Width>
@@ -3009,7 +3020,7 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Top>3.40709cm</Top>
<Top>2.13709cm</Top>
<Left>11.33129cm</Left>
<Height>0.41981cm</Height>
<Width>5.13762cm</Width>
@@ -3035,23 +3046,12 @@ Municipio y/o Delegación: </Value>
</Border>
</Style>
</Line>
<Line Name="Line4">
<Left>0.13678cm</Left>
<Height>0cm</Height>
<Width>25.72414cm</Width>
<ZIndex>12</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Line Name="Line6">
<Top>3.26597cm</Top>
<Top>1.99597cm</Top>
<Left>0.10068cm</Left>
<Height>0cm</Height>
<Width>25.76024cm</Width>
<ZIndex>13</ZIndex>
<ZIndex>12</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
@@ -3077,11 +3077,11 @@ Municipio y/o Delegación: </Value>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Top>3.40709cm</Top>
<Top>2.13709cm</Top>
<Left>23.00537cm</Left>
<Height>0.41981cm</Height>
<Width>2.55292cm</Width>
<ZIndex>14</ZIndex>
<ZIndex>13</ZIndex>
<Style>
<Border>
<Style>None</Style>

View File

@@ -695,7 +695,7 @@ Partial Class Inventarios_EntregaAlmacen
TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
TxtObservaciones.Rows = 4
End If
@@ -2258,8 +2258,22 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
TieneErrorExistencia = True
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} <br/>", Dr("CodigoPS"), Dr("Existencia"))
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
Dim SerieLoteCaducidad As String = ","
If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then
SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}"
End If
If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then
SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}"
End If
If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
End If
TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} {2}<br/>", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
Next
End If
Else

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>

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>

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()