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

ClsContpaQ Correcion, Efacturas , mod extenciones error en miles numeros a letra

Browse Source
This commit is contained in:
rakcsle
2022-06-06 19:27:32 -07:00
parent 9b2956e58a
commit ff7816ae39
5 changed files with 30 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContPAQi.vb
View File

@@ -2176,7 +2176,7 @@ Public Class ClsContPAQi
Folio = If(Data IsNot Nothing AndAlso Data.Rows.Count > 0, Data.Rows(0)("Folio").ToString.ToEntero, 0)
Catch Ex1 As SqlException
If Ex1.Message.Contains("2601;") Then
Alert(String.Format("Póliza ya existente con la siguiente información. Fecha: {0}; Tipo de póliza: {1}; Número de Póliza: {2}", FechaPoliza.ToShortDateString, TipoPol, Folio), TipoMensaje.MsgAdvertencia)
Alert(String.Format("Póliza ya existente con la siguiente información. Fecha: {0}; Tipo de póliza: {1}; Número de Póliza: {2}", FechaPoliza.ToShortDateString, TipoPol, pFolio), TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al Guardar la Poliza.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If

1
App_Code/modExtensiones.vb
View File

@@ -953,6 +953,7 @@ Namespace Extensiones
If y = 4 Then
If (Mid(entero, 4, 1) <> "0") Or
(Mid(entero, 2, 1) <> "0") Or
(Mid(entero, 4, 1) = "0" And (Len(entero) >= 4 And Len(entero) <= 6)) Or
(Mid(entero, 5, 1) <> "0" And Len(entero) = 5) Or
(Mid(entero, 6, 1) <> "0" And Len(entero) = 6) Or

15
Compras/eFacturas.aspx.vb
View File

@@ -2822,11 +2822,7 @@ Partial Class Compras_eFacturas
Dim CveFacturaComplemento As Integer = gvRow.DataKey("CveFactura").ToString.ToEntero
Dim CveComplementoPagoCompra As Integer = gvRow.DataKey("CveComplementoPagoCompra").ToString.ToEntero
If CveComplementoPagoCompra > 0 Then
DVMensajecomplementoVinculado.Visible = True
Else
DVMensajecomplementoVinculado.Visible = False
End If
Dim SerieFolioIE As String = ""
Dim UUIDPago As String = ""
@@ -3279,6 +3275,15 @@ Partial Class Compras_eFacturas
End If
If CveComplementoPagoCompra > 0 Then
DVMensajecomplementoVinculado.Visible = True
BtnVincularPago.Visible = False
Else
DVMensajecomplementoVinculado.Visible = False
End If
UpVincularPago.Update()

18
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -340,9 +340,9 @@
<asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
<div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
<asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static" ValidationGroup="GrpSerie"></asp:TextBox>
<asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static" ></asp:TextBox>
<label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote" Display="None" ClientValidationFunction="TamanioSerie"
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote" Display="None" ClientValidationFunction="TamanioSerie" ValidationGroup="GrpSerieModal"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." />
<ajax:ValidatorCalloutExtender ID="VACOE1231" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px" ></ajax:ValidatorCalloutExtender>
@@ -370,7 +370,7 @@
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" CausesValidation="true" ValidationGroup="GrpSerie" Text="Guardar" />
<asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" CausesValidation="true" ValidationGroup="GrpSerieModal" Text="Guardar" OnClientClick="return validapagina();" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
@@ -434,6 +434,18 @@
}
function validapagina() {
Page_ClientValidate();
if (Page_IsValid) {
return true;
} else {
return false;
}
}
</script>
</asp:Content>

3
RH/Reclutamiento.aspx.vb
View File

@@ -798,6 +798,9 @@ Partial Class RH_Reclutamiento
AsignaGruposValidacion()
End Try
If Not Page.IsPostBack Then