diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 9cb694e84..12be6ccc0 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -212,9 +212,11 @@ Partial Class Acarreos_CatChoferes Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveChofer") UpDatos.Update() - If ObjAcar.RemoveChofer(HdnID.Value) Then + If ObjAcar.RemoveChofer(HdnID.Value, UsuarioActual.CveEmpresa) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("No se puede eliminar el chofer. verifique que no tenga movimientos registrados.", TipoMensaje.MsgError) End If ObjAcar.Dispose() UpDatos.Update() @@ -312,7 +314,7 @@ Partial Class Acarreos_CatChoferes If CPTxt > 0 And CveColonia > 0 Then Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero If CPTxt <> CP Then - Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia) + Alert("El código postal seleccionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia) End If End If End Sub diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index 40453e466..b1d38972e 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -207,26 +207,27 @@ Public Class ClsAcarreos Return Retorno End Function - Public Function RemoveChofer(CveChofer As Integer) As Boolean + Public Function RemoveChofer(CveChofer As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesRemove") With SqlAdapter.SelectCommand.Parameters - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@vRetorno", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = SqlAdapter.SelectCommand.Parameters("@vRetorno").Value.ToString = "1" Catch ex As Exception OnError("Ocurrió un error al eliminar el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "Transportistas" Public Function AddTransportista(Transportista As String, CveUsuario As Integer, CveEmpresa As Integer, CveProveedor As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 5c05914f1..3d3f33619 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3353,8 +3353,8 @@ Public Class ClsBancos Return Retorno End Function - Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False + Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer + Dim Retorno As Integer = 0 DataAdapter("PA_Banc_FluctuacionesBitacoraAdd") @@ -3364,11 +3364,13 @@ Public Class ClsBancos .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@vCveFluctuacionBitacora", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = SqlAdapter.SelectCommand.Parameters("@vCveFluctuacionBitacora").Value.ToString.ToEntero + Catch ex As Exception OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try @@ -3395,6 +3397,52 @@ Public Class ClsBancos Return Retorno End Function + + Public Function UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = True + + DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza + .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion + .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function FluctuacionesBitacoraPrePolizaRemove(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = True + + DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza + .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion + .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error al eliminar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + #End Region #Region "B A N C O S - T A R J E T A S C R E D I T O S" diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 9ab579855..9f4d8f0e8 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6576,14 +6576,17 @@ Public Class ClsContabilidad End Function #Region "F L U C T U A C I O N - C A M B I A R I A" - Public Function UpdateVentaTCValuacion(CveVenta As Integer, TCValuacion As Decimal) As Boolean + Public Function UpdateTCValuacion(CveVenta As Integer, CveCompra As Integer, CveIE As Integer, TCValuacion As Decimal, CveEmpresa As Integer) As Boolean Dim Retorno = False - DataAdapter("PA_Conta_VentasTCValuacionUpdate") + DataAdapter("PA_Conta_TipoCambioValuacionUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@TCValuacion", SqlDbType.Decimal).Value = TCValuacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -6615,6 +6618,7 @@ Public Class ClsContabilidad Return Retorno End Function + #End Region #Region "IDisposable Support" diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 04d56a648..36a2814a5 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1,6 +1,7 @@ Option Strict On Option Explicit On +Imports System Imports System.Data Imports System.Data.SqlClient Imports Extensiones @@ -4111,6 +4112,32 @@ Public Class ClsGenerales #End Region + + Public Function GetMediosTransporte(CveOrigen As Integer, Estatus As Boolean, CveEmpresa As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, Tipo As Integer, GPO As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Agro_OrigenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@GPO", SqlDbType.Int).Value = GPO + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError($"Ocurrió un error al obtener los medios de transporte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + End Class diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index f08a19c90..03ccd11b5 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1505,7 +1505,7 @@ Public Class ClsMovimientos Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha, Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha, - Optional CveCondicionesPago As Integer = -1) As Boolean + Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepRecuperacion") With SqlAdapter.SelectCommand.Parameters @@ -1530,6 +1530,7 @@ Public Class ClsMovimientos .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString @@ -1590,7 +1591,8 @@ Public Class ClsMovimientos Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing, - Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean + Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha, + Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1620,6 +1622,8 @@ Public Class ClsMovimientos .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor + .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 95cad2ac0..d11401ed9 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -20,7 +20,7 @@ Public Class Timbrado Public Property CancelacionState As Integer Public Property CancelacionMensaje As String Public Property CancelacionFecha As Date - + Public Const LigaVerificacionSAT = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" Public Class AcuseCancelacionSAT Public Property CodigoEstatus As String @@ -1956,8 +1956,9 @@ Public Class Timbrado If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\") Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim b As Byte() = cfdi.ConvertirQrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - File.WriteAllBytes(RutaCBB, b) + Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB) + CBB = Nothing Retorno = "" Else @@ -2342,7 +2343,7 @@ Public Class Timbrado cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp In concep.MercanciasCantidadTransporta cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) Next @@ -2665,8 +2666,9 @@ Public Class Timbrado Try Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - File.WriteAllBytes(RutaCBB, b) + Dim bCBB As Byte() = cfdi.QrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=ELleDg==") + File.WriteAllBytes(RutaCBB, bCBB) + bCBB = Nothing Catch ex As Exception OnError("Ocurrió un error al generar el QR", ex) End Try @@ -3268,8 +3270,9 @@ Public Class Timbrado Try Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - File.WriteAllBytes(RutaCBB, b) + Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB) + CBB = Nothing Catch ex As Exception OnError("Ocurrió un error al generar el QR", ex) End Try @@ -3684,7 +3687,7 @@ Public Class Timbrado cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp In concep.MercanciasCantidadTransporta cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) Next diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index accb3c4ed..959d3de1b 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -416,13 +416,19 @@ comisionNegativa = txtcomision * -1; } if (comisionNegativa > saldo) { - $('#C_TxtComision').val(0); - comision = 0; - descuento = 0; - txtcomision = 0; - alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado"); - saldo = 0; - $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2)); + + //var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?"); + //if (opcion != true) { + // debugger; + // $('#C_TxtComision').val(0); + // comision = 0; + // descuento = 0; + // txtcomision = 0; + // //alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado"); + // saldo = 0; + // $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2)); + //} + } else { //debugger; @@ -509,14 +515,18 @@ if (comision2 < 0) { comisionNegativa = comision2 * -1; } - if (comisionNegativa > ValorTotalSeleccionado) { - $('#C_TxtComision').val(0) - alert("No es posible poner una comision superior a lo seleccionado") - } else { + //if (comisionNegativa > ValorTotalSeleccionado) { + // var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?"); + // if (opcion != true) { + // debugger; + // $('#C_TxtComision').val(0) + // // alert("No es posible poner una comision superior a lo seleccionado") + // } + //} else { saldo = ValorTotalSeleccionado + comision2 + descuento - IVA - ComisionIntermediario; $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); comision = ToDouble($('#C_TxtComision').val()) - } + //} } diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index da29b34eb..dc9c99b5c 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -236,17 +236,21 @@ Partial Class Bancos_DepositosCaja End If End If + Dim CveTransaccionBanco As Integer = 13 + + If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger + CveTransaccionBanco = 6 + End If 'Entrada a bancos - FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 13) + FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco) If Not FolioIE > 0 Then OcurrioError = True End If - CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 13, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario) - - documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE) - + CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario) + documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE) + If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then If ChkFaltante.Checked Then @@ -256,9 +260,7 @@ Partial Class Bancos_DepositosCaja If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then OcurrioError = True End If - End If - - + End If End If If ChkDescuento.Checked Then @@ -268,68 +270,64 @@ Partial Class Bancos_DepositosCaja If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then OcurrioError = True End If - End If - - - + End If + Else OcurrioError = True End If - - For Each Gvr As GridViewRow In GvFacturas.Rows - - If Gvr.FCCheckBox("ChkFactura").Checked Then - 'Datos de las Nuevas PrePolizas - 'Entrada a Bancos - - Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal - Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString - - 'Datos de las Prepolizas A Cancelar - Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero - Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero - Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero - - FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) - If Not FolioIE > 0 Then - OcurrioError = True - Exit For - End If - CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then - OcurrioError = True - Exit For - End If - - 'Asignamos la cuenta Deposito - If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then - OcurrioError = True - Exit For + If Not OcurrioError Then + For Each Gvr As GridViewRow In GvFacturas.Rows + + If Gvr.FCCheckBox("ChkFactura").Checked Then + 'Datos de las Nuevas PrePolizas + 'Entrada a Bancos + + Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal + Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString + + 'Datos de las Prepolizas A Cancelar + Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero + Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero + Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero + + FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) + If Not FolioIE > 0 Then + OcurrioError = True + Exit For + End If + CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then + OcurrioError = True + Exit For + End If + + 'Asignamos la cuenta Deposito + If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then + OcurrioError = True + Exit For + End If + End If + Next - End If - - Next + Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") - Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") + documentos += String.Format("
Imprimir {1}

", StrEncript, "Depósito Bancario") + End If - documentos += String.Format("
Imprimir {1}

", StrEncript, "Depósito Bancario") - If OcurrioError Then ObjContabilidad.RollBack() Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError) Else - ObjContabilidad.Commit() - CargaDatos() - + ObjContabilidad.Commit() documentos += String.Format("Prepóliza

", NuevaCvePrePoliza) - Alert(documentos.ToString) - + Alert(documentos.ToString) + CargaDatos() End If TxtComision.Text = "" diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index 19dc04717..cb222b49c 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -151,6 +151,7 @@
+
@@ -159,7 +160,7 @@ - + @@ -222,8 +223,7 @@
- - +
-
+
-
+
-
+ +
- - - - +
- - + + + - + <%----%> - + @@ -308,6 +307,7 @@

+
@@ -322,7 +322,7 @@
-
+ @@ -339,7 +339,7 @@ -
+
@@ -362,12 +362,13 @@ - - + + + @@ -393,7 +394,7 @@ -
+
-
+
-
+
-
- - - +
@@ -524,7 +522,7 @@ @@ -553,7 +551,7 @@
-
+