-- option strict on
This commit is contained in:
@@ -186,9 +186,8 @@ Partial Class Bancos_CreditosPagoMultiple
|
||||
Dim Total As Decimal = 0
|
||||
For Each gvr As GridViewRow In GvV.Rows
|
||||
If gvr.FCCheckBox("Chk").Checked Then
|
||||
Total += gvr.DataKey("Total").ToDouble
|
||||
Total += gvr.DataKey("Total").ToDecimal
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If Total <= 0 Then
|
||||
@@ -244,8 +243,7 @@ Partial Class Bancos_CreditosPagoMultiple
|
||||
If CvePrePoliza > 0 Then
|
||||
|
||||
'inserto el moviminto de banco
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor) Then
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, CveConceptoContable, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor) Then
|
||||
|
||||
For Each gvr As GridViewRow In GvV.Rows
|
||||
If gvr.FCCheckBox("Chk").Checked Then
|
||||
@@ -261,13 +259,13 @@ Partial Class Bancos_CreditosPagoMultiple
|
||||
|
||||
|
||||
Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
|
||||
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, gvr.DataKey("Total").ToDecimal - IVA - CIF, CveConceptoCompra, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
|
||||
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 19, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
|
||||
'intereses pagados
|
||||
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
|
||||
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, CIF, 46, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
|
||||
|
||||
@@ -322,13 +322,13 @@ Partial Class Bancos_DepositoTerminal
|
||||
e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1);", e.Row.FCCheckBox("ChkFactura").ClientID, e.Row.DBCampo("Importe")))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(157).ToDecimal <> 0 Then
|
||||
e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, -UsuarioActual.Empresa.Funcionalidad(157), UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal))
|
||||
e.Row.FCRangeValidator("RVComision").MinimumValue = -UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal
|
||||
e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal
|
||||
e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString, UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal))
|
||||
e.Row.FCRangeValidator("RVComision").MinimumValue = (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString
|
||||
e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157)
|
||||
e.Row.FCRangeValidator("RVComision").Enabled = True
|
||||
Else
|
||||
e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},2);", e.Row.FCCheckBox("ChkFactura").ClientID, e.Row.DBCampo("Importe")))
|
||||
e.Row.FCRangeValidator("RVComision").MinimumValue = 0.00
|
||||
e.Row.FCRangeValidator("RVComision").MinimumValue = "0.00"
|
||||
e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Importe")
|
||||
End If
|
||||
|
||||
|
||||
@@ -858,7 +858,7 @@ Partial Class Bancos_IE
|
||||
|
||||
LblCuenta.Text = ObjIE.BancoNumCuentaMoneda
|
||||
ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
|
||||
HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza"))
|
||||
HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza"))
|
||||
HpLPrePoliza.Visible = True
|
||||
TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString
|
||||
TxtFolio.Text = ObjIE.Folio
|
||||
@@ -3645,126 +3645,6 @@ Partial Class Bancos_IE
|
||||
ObjConta.Dispose()
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs)
|
||||
' RegistraScript("$('#DivChqDevueltoIE').modal('hide');")
|
||||
|
||||
' ChequeDevuelto()
|
||||
|
||||
|
||||
'End Sub
|
||||
|
||||
'Private Sub ChequeDevuelto()
|
||||
' If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then
|
||||
' Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' If ChkConciliado.Checked Then
|
||||
' Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' Dim Banc As New ClsBancos
|
||||
' Banc.IniciaTransacSQL()
|
||||
' Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL)
|
||||
|
||||
' Dim ObjAC As ClsContPAQi = Nothing
|
||||
' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then
|
||||
' ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' ObjAC.IniciaTransacSQL()
|
||||
' End If
|
||||
|
||||
|
||||
' Dim ErrorCancelar = False
|
||||
' Dim IdPolizaNueva = -1
|
||||
' Dim FolioPolizaNueva = -1
|
||||
|
||||
' If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then
|
||||
|
||||
' If ObjAC Is Nothing Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' Dim dt As DataTable
|
||||
' If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
|
||||
' dt = ObjAC.DtResultados
|
||||
|
||||
' ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
|
||||
|
||||
' IdPolizaNueva = ObjAC.AddPoliza(1, String.Format("Cheque Devuelto: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDevuelto.Text.ToDate)
|
||||
|
||||
' If IdPolizaNueva > 0 Then
|
||||
' FolioPolizaNueva = ObjAC.Folio
|
||||
|
||||
' 'CREA POLIZA NEGATIVA
|
||||
' For Each dr As DataRow In dt.Rows
|
||||
' If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDevuelto.Text.ToDate, "") Then
|
||||
' ErrorCancelar = True : Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' 'AJUSTA POLIZA
|
||||
' If Not ErrorCancelar Then
|
||||
' If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'genera nuevo IE contrario
|
||||
' If Not ErrorCancelar Then
|
||||
' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' Else
|
||||
|
||||
' 'siempre se hace una cancelación
|
||||
' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
|
||||
' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
|
||||
' IDPoliza = ObjConta.ContaIdPoliza
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' End If
|
||||
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' If ObjAC IsNot Nothing Then ObjAC.Commit()
|
||||
' Banc.Commit()
|
||||
' Dim Msg As New StringBuilder
|
||||
' Msg.Append("El movimiento bancario quedó devuelto exitosamente.")
|
||||
|
||||
' If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
|
||||
' Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
|
||||
' Else
|
||||
' If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||
' Banc.RollBack()
|
||||
' Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
||||
' Banc.Dispose()
|
||||
|
||||
'End Sub
|
||||
|
||||
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
|
||||
If CveIECancelado > 0 Then
|
||||
Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia)
|
||||
|
||||
@@ -348,10 +348,10 @@ Partial Class Bancos_OtrosIE
|
||||
|
||||
For Each gvr As GridViewRow In GvMov.Rows
|
||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
|
||||
TipoMovto = True
|
||||
Else
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
|
||||
TipoMovto = False
|
||||
End If
|
||||
If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
|
||||
@@ -362,7 +362,7 @@ Partial Class Bancos_OtrosIE
|
||||
End If
|
||||
|
||||
If MsgError = "" Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCTextBox("TxtConcepto").Text, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, 0, -1, CveIE,
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtObservaciones.Text, CveIE:=CveIE,
|
||||
CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
|
||||
|
||||
Else
|
||||
@@ -382,17 +382,15 @@ Partial Class Bancos_OtrosIE
|
||||
CveConcepto = 12
|
||||
ElseIf HdnCveBeneficiario.Value.ToEntero > 0 Then
|
||||
CveConcepto = 13
|
||||
|
||||
End If
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 30, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConcepto, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, 30, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, CveConcepto, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
|
||||
|
||||
End If
|
||||
Else
|
||||
MsgError = "No se pudo insertar el detalle de la póliza2"
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -629,12 +627,12 @@ Partial Class Bancos_OtrosIE
|
||||
|
||||
Private Sub RecargaGlobalCuentasBancarias(CveProveedor As Integer, Optional ByVal CveCuenta As Integer = -1)
|
||||
If CveProveedor > 0 Then
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
'Dim ObjCuentasBancos As New ClsGenerales
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos() Then
|
||||
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
|
||||
End If
|
||||
ObjCuentasBancos.Dispose()
|
||||
'If ObjCuentasBancos.GetCuentasDepositos() Then
|
||||
' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) = ObjCuentasBancos.DtResultados
|
||||
'End If
|
||||
'ObjCuentasBancos.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -245,7 +245,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Private Sub CargaFolio()
|
||||
If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion()
|
||||
If DdlTipoTransaccion.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "") = "Ing" Then
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "").ToString = "Ing" Then
|
||||
Dim ObjFolios As New ClsGralFolios
|
||||
If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then
|
||||
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'"))
|
||||
@@ -437,9 +437,9 @@ Partial Class Bancos_PolizaCheque
|
||||
IdCuenta = If(drr IsNot Nothing, drr("Id").ToString.ToEntero, -1)
|
||||
CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
|
||||
NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
|
||||
Concepto = drt("NombreCompleto")
|
||||
Concepto = drt("NombreCompleto").ToString
|
||||
dr("Cargo") = drt("Total").ToString.ToDecimal.FormatoNumero(2)
|
||||
TotalProceso += drt("Total").ToString.ToDecimal.FormatoNumero(2)
|
||||
TotalProceso += drt("Total").ToString.ToDecimal
|
||||
Else TipoMovto = 1
|
||||
CveConcepto = 30
|
||||
Concepto = "Pago Nómina"
|
||||
@@ -506,8 +506,8 @@ Partial Class Bancos_PolizaCheque
|
||||
|
||||
'Encabezado
|
||||
Dim Identificador As String = "1"
|
||||
Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count, 7, "0")
|
||||
Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0")
|
||||
Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count.ToString, 7, "0"c)
|
||||
Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0"c)
|
||||
Dim RegistrosInc As String = "0000000"
|
||||
Dim ImporteRegistrosInc As String = "000000000000000"
|
||||
Dim ContratoPagel As String = "000000000000"
|
||||
@@ -523,7 +523,7 @@ Partial Class Bancos_PolizaCheque
|
||||
|
||||
'Detalle
|
||||
For Each dr As DataRow In DtMovimientos.FiltraParametros("CvePersonal > 0").Rows
|
||||
TextoCompleto += GeneraLineaLayout(dr("CvePersonal"), dr("Cargo"), dr("Concepto"), ObjPersonal) + vbNewLine
|
||||
TextoCompleto += GeneraLineaLayout(dr("CvePersonal").ToString.ToEntero, dr("Cargo").ToString, dr("Concepto").ToString, ObjPersonal) + vbNewLine
|
||||
Next
|
||||
|
||||
'CreaArchivo()
|
||||
@@ -543,7 +543,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Dim BancoDestino As String = GeneraCampo(ObjPersonal.DtResultados(0)("CveSATBanco").ToString, 3)
|
||||
Dim PlazaDestino As String = "000"
|
||||
Dim NumeroCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("CuentaBancaria").ToString, 16)
|
||||
Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0")
|
||||
Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0"c)
|
||||
Dim EstadoPago As String = "0000000"
|
||||
Dim DescripcionPago As String = GeneraCampo(Concepto, 80)
|
||||
Dim TitularCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombre").ToString, 40)
|
||||
@@ -777,7 +777,7 @@ Partial Class Bancos_PolizaCheque
|
||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1)
|
||||
Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal, 1D)
|
||||
Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza)
|
||||
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PaguesA, ImporteDocumento, CveMoneda, If(CveMoneda > 1, TC, 0.0), TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
@@ -787,16 +787,16 @@ Partial Class Bancos_PolizaCheque
|
||||
If CvePrePoliza > 0 Then
|
||||
Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
|
||||
|
||||
Dim Importe As Double = 0
|
||||
Dim Importe As Decimal = 0
|
||||
Dim TipoMovto As Boolean = False
|
||||
'inserto las compras que voy a pagar
|
||||
For Each gvr As GridViewRow In GvMov.Rows
|
||||
|
||||
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
|
||||
Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
|
||||
TipoMovto = True
|
||||
Else
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
|
||||
Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
|
||||
TipoMovto = False
|
||||
End If
|
||||
|
||||
@@ -818,10 +818,7 @@ Partial Class Bancos_PolizaCheque
|
||||
ElseIf CveMoneda > 1 Then
|
||||
Importe = Importe * TC
|
||||
End If
|
||||
|
||||
'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
|
||||
' MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
'End If
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, Referencia, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
|
||||
MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
End If
|
||||
|
||||
@@ -102,7 +102,7 @@ Partial Class Bancos_RepCxCCliente
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim CveSubProyecto As Integer = IIf(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1)
|
||||
Dim CveSubProyecto As Integer = If(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1)
|
||||
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
|
||||
'"/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}&CveUsuario={6}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"), e.Row.DBCampo("CveUsuario")
|
||||
e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Ventas/ClientesAbonar.aspx?CveCliente={0}&FechaI={1}&FechaF={2}&CveMoneda={3}&CveUsuario={4}&CveSubProyecto={5}&CveClienteSucursal={6}", e.Row.DBCampo("CveCliente"), e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveMoneda"), UsuarioActual.CveUsuario, CveSubProyecto, e.Row.DBCampo("CveClienteSucursal"))
|
||||
|
||||
@@ -329,11 +329,11 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
|
||||
If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1"
|
||||
If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
|
||||
If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text Else FechaIV = MinFecha
|
||||
If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text Else FechaFV = MaxFecha
|
||||
If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text.ToDate Else FechaIV = MinFecha
|
||||
If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text.ToDate Else FechaFV = MaxFecha
|
||||
If DdlCodigoProgramacion.SelectedValue <> "-1" Then CodigoProg = DdlCodigoProgramacion.SelectedValue Else CodigoProg = "-1"
|
||||
|
||||
If Mov.GetProgramarPago(DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, FechaI, FechaF, CveUsuarioProgramo, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, TxtTC.Text.ToDouble, DdlAgrupador.SelectedValue.ToEntero, Anio, Mes, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaIV:=FechaIV, FechaFV:=FechaFV, CodigoProgramacion:=CodigoProg, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, 0, DdlTipoProveedor.SelectedValue.ToEntero), ConComprobacion:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero) Then
|
||||
If Mov.GetProgramarPago(DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, FechaI, FechaF, CveUsuarioProgramo, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, TxtTC.Text.ToDouble, DdlAgrupador.SelectedValue.ToEntero, Anio, Mes, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaIV:=FechaIV, FechaFV:=FechaFV, CodigoProgramacion:=CodigoProg, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, 0, DdlTipoProveedor.SelectedValue.ToEntero), ConComprobacion:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero) Then
|
||||
|
||||
DtDatos = Mov.DtResultados
|
||||
|
||||
@@ -860,7 +860,7 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0)))
|
||||
params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0")))
|
||||
params.Add(New ReportParameter("usuarioProgramo", UsuarioProgramo))
|
||||
params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue))
|
||||
|
||||
@@ -923,7 +923,7 @@ Partial Class Bancos_RepProgramarRecursos
|
||||
|
||||
End Sub
|
||||
Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged
|
||||
If DdlUsuarioProgramo.SelectedValue > 0 Then
|
||||
If DdlUsuarioProgramo.SelectedValue.ToEntero > 0 Then
|
||||
Dim ObjMovimientos As New ClsMovimientos
|
||||
If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then
|
||||
DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados
|
||||
|
||||
@@ -308,7 +308,7 @@ Partial Class Bancos_RepProveedoresPagos
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
||||
params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}"))
|
||||
params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0)))
|
||||
params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0")))
|
||||
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato)
|
||||
@@ -320,7 +320,7 @@ Partial Class Bancos_RepProveedoresPagos
|
||||
End Sub
|
||||
|
||||
Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged
|
||||
If DdlUsuarioProgramo.SelectedValue > 0 Then
|
||||
If DdlUsuarioProgramo.SelectedValue.ToEntero > 0 Then
|
||||
Dim ObjMovimientos As New ClsMovimientos
|
||||
If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then
|
||||
DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados
|
||||
|
||||
@@ -217,9 +217,9 @@ Partial Class Bancos_Transferencias
|
||||
|
||||
Dim MsgError As String = ""
|
||||
|
||||
Dim ImporteDestino As Double = TxtImporte.Text.Trim.ToDouble
|
||||
Dim ImporteMXOrigen As Double = TxtImporte.Text.Trim.ToDouble
|
||||
Dim ImporteMXDestino As Double = TxtImporte.Text.Trim.ToDouble
|
||||
Dim ImporteDestino As Decimal = TxtImporte.Text.Trim.ToDecimal
|
||||
Dim ImporteMXOrigen As Decimal = TxtImporte.Text.Trim.ToDecimal
|
||||
Dim ImporteMXDestino As Decimal = TxtImporte.Text.Trim.ToDecimal
|
||||
|
||||
Dim ObjIE As New ClsBancos()
|
||||
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
|
||||
@@ -257,17 +257,17 @@ Partial Class Bancos_Transferencias
|
||||
|
||||
If CveMonedaOrigen = 1 AndAlso CveMonedaDestino <> 1 Then
|
||||
'pesos a otra moneda se divide
|
||||
ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble / TxtTipoCambio.Text.ToDouble, 2)
|
||||
ImporteMXDestino = TxtImporte.Text.Trim.ToDouble
|
||||
ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal / TxtTipoCambio.Text.ToDecimal, 2)
|
||||
ImporteMXDestino = TxtImporte.Text.Trim.ToDecimal
|
||||
ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino = 1 Then
|
||||
'de otra moneda a pesos se multiplica
|
||||
ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2)
|
||||
ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2)
|
||||
ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2)
|
||||
ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
|
||||
ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
|
||||
ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
|
||||
|
||||
ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino <> 1 Then
|
||||
ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2)
|
||||
ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2)
|
||||
ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
|
||||
ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
|
||||
End If
|
||||
|
||||
If CveMonedaOrigen = 2 AndAlso CveMonedaDestino = 2 Then
|
||||
@@ -333,18 +333,18 @@ Partial Class Bancos_Transferencias
|
||||
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle,
|
||||
TxtImporte.Text.ToDouble, If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen), 30,
|
||||
TxtImporte.Text.ToDecimal, If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDecimal, ImporteMXOrigen), 30,
|
||||
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE,
|
||||
ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0),
|
||||
ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDecimal * TC, 0),
|
||||
CveIEDevolucion:=CveIEDevolucion) Then
|
||||
|
||||
If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
'Agregamos complementaria
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle,
|
||||
0, (TxtImporte.Text.ToDouble * TC - TxtImporte.Text.ToDouble).RoundSQL, 204,
|
||||
0, (TxtImporte.Text.ToDecimal * TC - TxtImporte.Text.ToDecimal).RoundSQL, 204,
|
||||
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE,
|
||||
ImporteME:=TxtImporte.Text.ToDouble,
|
||||
ImporteME:=TxtImporte.Text.ToDecimal,
|
||||
TipoCambio:=TC) Then
|
||||
MsgError = "Ocurri<EFBFBD> un error al registrar el asiento del ingreso."
|
||||
End If
|
||||
@@ -356,7 +356,7 @@ Partial Class Bancos_Transferencias
|
||||
|
||||
For Each row As GridViewRow In GvTC.Rows
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, row.FCTextBox("TxtAbono").Text.ToDouble, 41,
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 41,
|
||||
$"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
|
||||
CveIE:=CveIEDestino) Then
|
||||
MsgError = "Ocurrio un error al ingresar la prepoliza"
|
||||
@@ -405,7 +405,7 @@ Partial Class Bancos_Transferencias
|
||||
'Conta ContPAQ
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
|
||||
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text.ToDate) Then
|
||||
If ObjMov.ContaIdPoliza > 0 Then
|
||||
AlertaGlobal.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver P<>liza</a>", ObjMov.ContaIdPoliza)
|
||||
End If
|
||||
@@ -576,7 +576,7 @@ Partial Class Bancos_Transferencias
|
||||
Private Sub MandaCorreo()
|
||||
'Dim ArrayAttachment As New List(Of String)
|
||||
Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
|
||||
If ViewState("Adjunto") IsNot Nothing AndAlso ViewState("Adjunto") <> "" Then
|
||||
If ViewState("Adjunto") IsNot Nothing AndAlso ViewState("Adjunto").ToString <> "" Then
|
||||
' ArrayAttachment.Add(ViewState("Adjunto").ToString)
|
||||
ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ViewState("Adjunto").ToString})
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user