diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 0cad09345..7b2ba750a 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -962,11 +962,17 @@ Namespace Extensiones (Mid(entero, 8, 1) = "0" And Mid(entero, 7, 1) = "0" And Mid(entero, 6, 1) = "0" And Mid(entero, 5, 1) = "0" And Mid(entero, 4, 1) = "0" And Len(entero) < 8) Or (Mid(entero, 3, 1) <> "0" And Len(entero) = 7) Or (Mid(entero, 3, 1) <> "0" And Len(entero) = 8) Or - (Mid(entero, 8, 1) = "0" And Mid(entero, 8, 1) = "0" And Mid(entero, 7, 1) = "0" And Mid(entero, 6, 1) = "0" And Mid(entero, 5, 1) = "0" And Mid(entero, 4, 1) = "0" And Len(entero) = 9) Then - - palabras.Append("mil ") - 'Else - ' palabras.Append("mil ") + (Mid(entero, 8, 1) = "0" And Mid(entero, 8, 1) = "0" And Mid(entero, 7, 1) = "0" And Mid(entero, 6, 1) = "0" And Mid(entero, 5, 1) = "0" And Mid(entero, 4, 1) = "0" And Len(entero) = 9) Then + + If entero.ToString.Length >= 7 And Not Mid(entero, 1, 7) = "0000000" Then + + Else + palabras.Append("mil ") + End If + + + 'Else + ' palabras.Append("mil ") End If End If diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7da7e124b..c403a4c1e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4619,18 +4619,18 @@ Partial Class Bancos_IE End If Else - If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + 'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - CargaComplementosPago() - RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") - ErrorCancelarComplemento = False - Alert("El complemento se cancelo correctamente.") - End If + ' If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + ' CargaComplementosPago() + ' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") + ' ErrorCancelarComplemento = False + ' Alert("El complemento se cancelo correctamente.") + ' End If - Else - Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia) - End If + 'Else + ' Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia) + 'End If End If End If @@ -6691,15 +6691,15 @@ Partial Class Bancos_IE Else - If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + 'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then + ' If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - Alert("El complemento se cancelo correctamente.") - End If - Else - Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError) - End If + ' Alert("El complemento se cancelo correctamente.") + ' End If + 'Else + ' Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError) + 'End If End If diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 0a49c92e3..c7cedb378 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -656,7 +656,7 @@ Partial Class Bancos_PagoElectronicoGrupos Dim NombreDelArchivo As String = GvRow.DataKey("Archivo") Dim ObjBancos As New ClsBancos - If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, "-1", PorGrupos:=True) Then + If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, DdlTipoGeneracionEnviados.SelectedValue, PorGrupos:=True) Then DtRegenerar = ObjBancos.DtResultados Else DtRegenerar = Nothing diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 929b5dec0..a6a37b07d 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -829,6 +829,12 @@ + + + + + @@ -1284,5 +1290,16 @@ } } + + function TamanioSerie(source, arguments) { + + if (arguments.Value.trim().length >= 6) { + arguments.IsValid = true; + } else { + arguments.IsValid = false; } + + } + +