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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-10-06 12:05:28 -07:00
parent ddda3e22da e1ba94c251
commit 85dd6c1917
4 changed files with 21 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Bancos/RepComplementoPago.aspx.vb
View File

@@ -218,6 +218,7 @@ Partial Class Bancos_RepComplementoPago
e.Row.ForeColor = Drawing.Color.Red
e.Row.FCCheckBox("Chk").Enabled = False
e.Row.FCCheckBox("Chk").ToolTip = Mensaje
e.Row.Attributes.Add("title", Mensaje)
End If
Else
@@ -341,57 +342,58 @@ Partial Class Bancos_RepComplementoPago
' no tiene restricciones
Case "2"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(11, 18) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de 11 o 18 caracteres."
End If
If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado."
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado. El tamaño debe de ser de 10, 11, 15, 16, 18 o 50 caracteres."
End If
Case "3"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(10, 16, 18) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(10, 16, 18) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de caracteres."
End If
If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 18)) Then
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado."
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado. El tamaño debe de ser de 10 o 18 caracteres."
End If
Case "4"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(16) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de 16 caracteres."
End If
If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado."
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado. El tamaño debe de ser de 10, 11, 15, 16, 18 o 50 caracteres."
End If
Case "5"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(10, 11, 15, 16, 18, 50) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de 10, 11, 15, 16, 18 o 50 caracteres."
End If
If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado."
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado. El tamaño debe de ser de 10, 11, 15, 16, 18 o 50 caracteres."
End If
Case "6"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(10) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de 10 caracteres."
End If
CuentaBeneficiario = ""
Case "28"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(16) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de 16 caracteres."
End If
If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado."
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado. El tamaño debe de ser de 10, 11, 15, 16, 18 o 50 caracteres."
End If
Case "29"
If CuentaPago <> "" AndAlso Not CuentaPago.Length.Contiene(15, 16) Then
Mensaje = "La cuenta ordenante no cumple con el formato esperado."
Mensaje = "La cuenta ordenante no cumple con el formato esperado. El tamaño debe de ser de 15 o 16 caracteres."
End If
If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado."
Mensaje = $"{Mensaje} La Cuenta Beneficiario no cumple con el formato esperado. El tamaño debe de ser de 10, 11, 15, 16, 18 o 50 caracteres."
End If
Case Else
Mensaje = "Forma de Pago no valida, no tiene una forma de pago SAT"

BIN
Empresas/119/Formatos/RepIVAAcreditable.rpt
View File

Binary file not shown.

2
RH/Personal.aspx
View File

@@ -398,7 +398,7 @@
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="50"></asp:TextBox>
<asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="18"></asp:TextBox>
<label for="<%= TxtCredencialElector.ClientID.ToString()%>">Credencial Elector: </label>
<i></i>
</div>

5
Ventas/Ventas.aspx.vb
View File

@@ -15425,7 +15425,10 @@ Partial Class Ventas
HdnIVACalculado.Value = "0"
'SI ES REFACTURACION NO LIMPIAR EL FOLIO FISCAL
If NuevaFactura <> 1 Then
HdnFolioFiscalNC.Value = "0"
'SI ES UNA NOTA DE CREDITO NO TIMBRADA NO DEBE LIMPIAR
If Not (DdlTipoComprobante.SelectedValue.ToString() = "Egs" AndAlso CveVenta > 0 AndAlso LblSeTimbro.Text = "No") Then
HdnFolioFiscalNC.Value = "0"
End If
End If
LblAntAplicados.Text = ""
LblAntAplicados.Visible = False