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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:44 -07:00
parent 407256f079
commit 7ee978059d
9 changed files with 57 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/CreditosPagoMultiple.aspx.vb
View File

@@ -186,9 +186,8 @@ Partial Class Bancos_CreditosPagoMultiple
Dim Total As Decimal = 0 Dim Total As Decimal = 0
For Each gvr As GridViewRow In GvV.Rows For Each gvr As GridViewRow In GvV.Rows
If gvr.FCCheckBox("Chk").Checked Then If gvr.FCCheckBox("Chk").Checked Then
Total += gvr.DataKey("Total").ToDouble Total += gvr.DataKey("Total").ToDecimal
End If End If
Next Next
If Total <= 0 Then If Total <= 0 Then
@@ -244,8 +243,7 @@ Partial Class Bancos_CreditosPagoMultiple
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
'inserto el moviminto de banco '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 For Each gvr As GridViewRow In GvV.Rows
If gvr.FCCheckBox("Chk").Checked Then 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 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 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, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, 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" MsgError = "Detalle"
End If End If
'intereses pagados '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" MsgError = "Detalle"
End If End If

8
Bancos/DepositoTerminal.aspx.vb
View File

@@ -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"))) 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 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.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).ToString.ToDecimal e.Row.FCRangeValidator("RVComision").MinimumValue = (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString
e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157)
e.Row.FCRangeValidator("RVComision").Enabled = True e.Row.FCRangeValidator("RVComision").Enabled = True
Else 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.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") e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Importe")
End If End If

122
Bancos/IE.aspx.vb
View File

@@ -858,7 +858,7 @@ Partial Class Bancos_IE
LblCuenta.Text = ObjIE.BancoNumCuentaMoneda LblCuenta.Text = ObjIE.BancoNumCuentaMoneda
ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero 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 HpLPrePoliza.Visible = True
TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString
TxtFolio.Text = ObjIE.Folio TxtFolio.Text = ObjIE.Folio
@@ -3645,126 +3645,6 @@ Partial Class Bancos_IE
ObjConta.Dispose() ObjConta.Dispose()
End Sub 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 Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click
If CveIECancelado > 0 Then 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) Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia)

22
Bancos/OtrosIE.aspx.vb
View File

@@ -348,10 +348,10 @@ Partial Class Bancos_OtrosIE
For Each gvr As GridViewRow In GvMov.Rows For Each gvr As GridViewRow In GvMov.Rows
If gvr.DataKey("TipoMovto").ToDouble > 0 Then If gvr.DataKey("TipoMovto").ToDouble > 0 Then
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
TipoMovto = True TipoMovto = True
Else Else
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
TipoMovto = False TipoMovto = False
End If End If
If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
@@ -362,7 +362,7 @@ Partial Class Bancos_OtrosIE
End If End If
If MsgError = "" Then 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 CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
Else Else
@@ -382,17 +382,15 @@ Partial Class Bancos_OtrosIE
CveConcepto = 12 CveConcepto = 12
ElseIf HdnCveBeneficiario.Value.ToEntero > 0 Then ElseIf HdnCveBeneficiario.Value.ToEntero > 0 Then
CveConcepto = 13 CveConcepto = 13
End If 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 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, "", 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 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 End If
Else Else
MsgError = "No se pudo insertar el detalle de la póliza2" MsgError = "No se pudo insertar el detalle de la póliza2"
End If End If
End If End If
@@ -629,12 +627,12 @@ Partial Class Bancos_OtrosIE
Private Sub RecargaGlobalCuentasBancarias(CveProveedor As Integer, Optional ByVal CveCuenta As Integer = -1) Private Sub RecargaGlobalCuentasBancarias(CveProveedor As Integer, Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales 'Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then 'If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados ' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) = ObjCuentasBancos.DtResultados
End If 'End If
ObjCuentasBancos.Dispose() 'ObjCuentasBancos.Dispose()
End If End If
End Sub End Sub
End Class End Class

25
Bancos/PolizaCheque.aspx.vb
View File

@@ -245,7 +245,7 @@ Partial Class Bancos_PolizaCheque
Private Sub CargaFolio() Private Sub CargaFolio()
If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion() If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion()
If DdlTipoTransaccion.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then 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 Dim ObjFolios As New ClsGralFolios
If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'")) 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) IdCuenta = If(drr IsNot Nothing, drr("Id").ToString.ToEntero, -1)
CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "") CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "") NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
Concepto = drt("NombreCompleto") Concepto = drt("NombreCompleto").ToString
dr("Cargo") = drt("Total").ToString.ToDecimal.FormatoNumero(2) dr("Cargo") = drt("Total").ToString.ToDecimal.FormatoNumero(2)
TotalProceso += drt("Total").ToString.ToDecimal.FormatoNumero(2) TotalProceso += drt("Total").ToString.ToDecimal
Else TipoMovto = 1 Else TipoMovto = 1
CveConcepto = 30 CveConcepto = 30
Concepto = "Pago Nómina" Concepto = "Pago Nómina"
@@ -506,8 +506,8 @@ Partial Class Bancos_PolizaCheque
'Encabezado 'Encabezado
Dim Identificador As String = "1" Dim Identificador As String = "1"
Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count, 7, "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") Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0"c)
Dim RegistrosInc As String = "0000000" Dim RegistrosInc As String = "0000000"
Dim ImporteRegistrosInc As String = "000000000000000" Dim ImporteRegistrosInc As String = "000000000000000"
Dim ContratoPagel As String = "000000000000" Dim ContratoPagel As String = "000000000000"
@@ -523,7 +523,7 @@ Partial Class Bancos_PolizaCheque
'Detalle 'Detalle
For Each dr As DataRow In DtMovimientos.FiltraParametros("CvePersonal > 0").Rows 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 Next
'CreaArchivo() 'CreaArchivo()
@@ -543,7 +543,7 @@ Partial Class Bancos_PolizaCheque
Dim BancoDestino As String = GeneraCampo(ObjPersonal.DtResultados(0)("CveSATBanco").ToString, 3) Dim BancoDestino As String = GeneraCampo(ObjPersonal.DtResultados(0)("CveSATBanco").ToString, 3)
Dim PlazaDestino As String = "000" Dim PlazaDestino As String = "000"
Dim NumeroCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("CuentaBancaria").ToString, 16) 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 EstadoPago As String = "0000000"
Dim DescripcionPago As String = GeneraCampo(Concepto, 80) Dim DescripcionPago As String = GeneraCampo(Concepto, 80)
Dim TitularCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombre").ToString, 40) Dim TitularCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombre").ToString, 40)
@@ -777,7 +777,7 @@ Partial Class Bancos_PolizaCheque
CveMoneda = dr("CveMoneda").ToString.ToEntero CveMoneda = dr("CveMoneda").ToString.ToEntero
End If 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 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) 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) 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 If CvePrePoliza > 0 Then
Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>" 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 Dim TipoMovto As Boolean = False
'inserto las compras que voy a pagar 'inserto las compras que voy a pagar
For Each gvr As GridViewRow In GvMov.Rows For Each gvr As GridViewRow In GvMov.Rows
If gvr.DataKey("TipoMovto").ToDouble > 0 Then If gvr.DataKey("TipoMovto").ToDouble > 0 Then
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
TipoMovto = True TipoMovto = True
Else Else
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
TipoMovto = False TipoMovto = False
End If End If
@@ -819,9 +819,6 @@ Partial Class Bancos_PolizaCheque
Importe = Importe * TC Importe = Importe * TC
End If 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 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" MsgError = "no se pudo insertar el detalle de la póliza2"
End If End If

2
Bancos/RepCxCCliente.aspx.vb
View File

@@ -102,7 +102,7 @@ Partial Class Bancos_RepCxCCliente
End If End If
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 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") '"/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")) 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"))

10
Bancos/RepProgramarRecursos.aspx.vb
View File

@@ -329,11 +329,11 @@ Partial Class Bancos_RepProgramarRecursos
If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1" If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1"
If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text Else FechaIV = MinFecha If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text.ToDate Else FechaIV = MinFecha
If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text Else FechaFV = MaxFecha If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text.ToDate Else FechaFV = MaxFecha
If DdlCodigoProgramacion.SelectedValue <> "-1" Then CodigoProg = DdlCodigoProgramacion.SelectedValue Else CodigoProg = "-1" 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 DtDatos = Mov.DtResultados
@@ -860,7 +860,7 @@ Partial Class Bancos_RepProgramarRecursos
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) 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("usuarioProgramo", UsuarioProgramo))
params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue)) params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue))
@@ -923,7 +923,7 @@ Partial Class Bancos_RepProgramarRecursos
End Sub End Sub
Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged 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 Dim ObjMovimientos As New ClsMovimientos
If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then
DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados

4
Bancos/RepProveedoresPagos.aspx.vb
View File

@@ -308,7 +308,7 @@ Partial Class Bancos_RepProveedoresPagos
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) 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("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}", ""))) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato) ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato)
@@ -320,7 +320,7 @@ Partial Class Bancos_RepProveedoresPagos
End Sub End Sub
Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged 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 Dim ObjMovimientos As New ClsMovimientos
If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then
DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados

34
Bancos/Transferencias.aspx.vb
View File

@@ -217,9 +217,9 @@ Partial Class Bancos_Transferencias
Dim MsgError As String = "" Dim MsgError As String = ""
Dim ImporteDestino As Double = TxtImporte.Text.Trim.ToDouble Dim ImporteDestino As Decimal = TxtImporte.Text.Trim.ToDecimal
Dim ImporteMXOrigen As Double = TxtImporte.Text.Trim.ToDouble Dim ImporteMXOrigen As Decimal = TxtImporte.Text.Trim.ToDecimal
Dim ImporteMXDestino As Double = TxtImporte.Text.Trim.ToDouble Dim ImporteMXDestino As Decimal = TxtImporte.Text.Trim.ToDecimal
Dim ObjIE As New ClsBancos() Dim ObjIE As New ClsBancos()
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
@@ -257,17 +257,17 @@ Partial Class Bancos_Transferencias
If CveMonedaOrigen = 1 AndAlso CveMonedaDestino <> 1 Then If CveMonedaOrigen = 1 AndAlso CveMonedaDestino <> 1 Then
'pesos a otra moneda se divide 'pesos a otra moneda se divide
ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble / TxtTipoCambio.Text.ToDouble, 2) ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal / TxtTipoCambio.Text.ToDecimal, 2)
ImporteMXDestino = TxtImporte.Text.Trim.ToDouble ImporteMXDestino = TxtImporte.Text.Trim.ToDecimal
ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino = 1 Then ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino = 1 Then
'de otra moneda a pesos se multiplica 'de otra moneda a pesos se multiplica
ImporteDestino = 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.ToDouble * TxtTipoCambio.Text.ToDouble, 2) ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino <> 1 Then ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino <> 1 Then
ImporteMXDestino = 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.ToDouble * TxtTipoCambio.Text.ToDouble, 2) ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2)
End If End If
If CveMonedaOrigen = 2 AndAlso CveMonedaDestino = 2 Then If CveMonedaOrigen = 2 AndAlso CveMonedaDestino = 2 Then
@@ -333,18 +333,18 @@ Partial Class Bancos_Transferencias
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle, 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, $"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 CveIEDevolucion:=CveIEDevolucion) Then
If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'Agregamos complementaria 'Agregamos complementaria
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle, 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, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE,
ImporteME:=TxtImporte.Text.ToDouble, ImporteME:=TxtImporte.Text.ToDecimal,
TipoCambio:=TC) Then TipoCambio:=TC) Then
MsgError = "Ocurri<EFBFBD> un error al registrar el asiento del ingreso." MsgError = "Ocurri<EFBFBD> un error al registrar el asiento del ingreso."
End If End If
@@ -356,7 +356,7 @@ Partial Class Bancos_Transferencias
For Each row As GridViewRow In GvTC.Rows 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}", $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
CveIE:=CveIEDestino) Then CveIE:=CveIEDestino) Then
MsgError = "Ocurrio un error al ingresar la prepoliza" MsgError = "Ocurrio un error al ingresar la prepoliza"
@@ -405,7 +405,7 @@ Partial Class Bancos_Transferencias
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then 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 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) AlertaGlobal.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver P<>liza</a>", ObjMov.ContaIdPoliza)
End If End If
@@ -576,7 +576,7 @@ Partial Class Bancos_Transferencias
Private Sub MandaCorreo() Private Sub MandaCorreo()
'Dim ArrayAttachment As New List(Of String) 'Dim ArrayAttachment As New List(Of String)
Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) 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) ' ArrayAttachment.Add(ViewState("Adjunto").ToString)
ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ViewState("Adjunto").ToString}) ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ViewState("Adjunto").ToString})
End If End If