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

8
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia
End If End If
Else Else
If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, 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 = "" TxtFolioGarantia.Text = ""
DdlEstatusEditar.SelectedValueExist("1") DdlEstatusEditar.SelectedValueExist("1")
@@ -197,8 +197,10 @@ Partial Class Acumuladores_CatFoliosGarantia
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectos.DataBind() DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) 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" BtnAgregarFolioGarantiaModal.Text = "Actualizar"
UpModalFolioGarantia.Update() UpModalFolioGarantia.Update()

3
App_Code/ClsAcumuladores.vb
View File

@@ -543,7 +543,7 @@ Public Class ClsAcumuladores
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -558,6 +558,7 @@ Public Class ClsAcumuladores
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
.Add("@Limite", SqlDbType.Int).Value = Limite .Add("@Limite", SqlDbType.Int).Value = Limite
.Add("@Area", SqlDbType.Int).Value = Area
End With End With

70
Empresas/186/Formatos/TrasladoAngeles.rdlc
View File

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

20
Inventarios/EntregaAlmacen.aspx.vb
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) 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 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 TxtObservaciones.Rows = 4
End If 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.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 If ObjInventario.DtResultados.Rows.Count > 0 Then
TieneErrorExistencia = True TieneErrorExistencia = True
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} <br/>", Dr("CodigoPS"), Dr("Existencia"))
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 Next
End If End If
Else Else

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 ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label> <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> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidadEquivalencia" runat="server" Width="60" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtCantidadEquivalencia" runat="server" Width="60" CausesValidation="true" MaxLength="10"></asp:TextBox>
<label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label> <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> <i></i>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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> <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </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> <asp:TextBox ID="TxtFolioRemision" runat="server" Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
</td> </td>
<td runat="server" id="Td10" > <td runat="server" id="Td10" >
<b>Tipo de Venta:</b>
</td> </td>
<td runat="server"> <td runat="server">
<asp:Label runat="server" ID="LblTipoVenta"></asp:Label>
</td> </td>
</tr> </tr>
</table> </table>

25
Ventas/Ventas.aspx.vb
View File

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