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

Cambio validacion de fechas documento para las empresas UsaAC

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-04-15 17:44:06 -07:00
parent 6aabc80eee
commit b96598e3f0
2 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -732,14 +732,15 @@ Partial Class Bancos_ProveedoresAbonar
Dim AnioDocumento As Integer = FechaDocumento.Year Dim AnioDocumento As Integer = FechaDocumento.Year
Dim MesDocumento As Integer = FechaDocumento.Month Dim MesDocumento As Integer = FechaDocumento.Month
If AnioFactura > AnioDocumento Then If UsuarioActual.Empresa.UsaAC = False Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>") If AnioFactura > AnioDocumento Then
ValFechaDocumento = True FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then ValFechaDocumento = True
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>") ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
ValFechaDocumento = True FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
End If
End If End If
End If End If
Next Next
@@ -782,7 +783,7 @@ Partial Class Bancos_ProveedoresAbonar
Exit Sub Exit Sub
End If End If
Dim ImporteSeleccionado As Decimal = 0 Dim ImporteSeleccionado As Decimal = 0
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
Dim Validada As Boolean = False Dim Validada As Boolean = False
Dim MsgValidadas As New StringBuilder Dim MsgValidadas As New StringBuilder

16
Ventas/ClientesAbonar.aspx.vb
View File

@@ -671,14 +671,16 @@ Partial Class Ventas_ClientesAbonar
Dim AnioDocumento As Integer = FechaDocumento.Year Dim AnioDocumento As Integer = FechaDocumento.Year
Dim MesDocumento As Integer = FechaDocumento.Month Dim MesDocumento As Integer = FechaDocumento.Month
If AnioFactura > AnioDocumento Then If UsuarioActual.Empresa.UsaAC = False Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>") If AnioFactura > AnioDocumento Then
ValFechaDocumento = True FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then ValFechaDocumento = True
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>") ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
ValFechaDocumento = True FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
End If ValFechaDocumento = True
End If
End If
End If End If
Next Next