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

-- cambio en clase a clsbancos

Browse Source
This commit is contained in:
rrene
2023-07-07 09:58:22 -07:00
parent 8026bc1549
commit 58c126ad98
1 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Bancos/Creditos.aspx.vb
View File

@@ -1,6 +1,7 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports System.Activities.Expressions
Imports System.Data Imports System.Data
Imports System.Windows.Forms.VisualStyles.VisualStyleElement Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Extensiones Imports Extensiones
@@ -361,7 +362,7 @@ Partial Class Bancos_Creditos
End Sub End Sub
Private Sub CargaCreditoComplejo() Private Sub CargaCreditoComplejo()
Dim ObjCreditos As New ClsBancos Dim ObjCreditos As New ClsBancos
Dim ObjPrepoliza As New ClsContabilidad 'Dim ObjPrepoliza As New ClsContabilidad
If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjCreditos.DtResultados.Rows.Count > 0 Then If ObjCreditos.DtResultados.Rows.Count > 0 Then
@@ -424,9 +425,9 @@ Partial Class Bancos_Creditos
HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}" HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}"
LbSaldo.Text = $"Saldo <b>Acreedor</b> " LbSaldo.Text = $"Saldo <b>Acreedor</b> "
If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then If ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjCreditos.DtResultados.Rows.Count > 0 Then
LbSaldoAcreedor.Text = ObjPrepoliza.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero LbSaldoAcreedor.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero
LbSaldoDocxPagar.Text = ObjPrepoliza.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero LbSaldoDocxPagar.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero
End If End If
Else Else
@@ -471,12 +472,12 @@ Partial Class Bancos_Creditos
End If End If
'CARGA ANTICIPOS 'CARGA ANTICIPOS
If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=dr("CveIE").ToString.ToEntero) Then If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjPrepoliza.DtResultados.Rows.Count > 0 Then If ObjCreditos.DtResultados.Rows.Count > 0 Then
TxtVehiculoAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero TxtVehiculoAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
TxtComisionAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero TxtComisionAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
TxtSeguroAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero TxtSeguroAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero
Dim dtt As DataTable = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 58") Dim dtt As DataTable = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 58")
If dtt.Rows.Count > 0 Then If dtt.Rows.Count > 0 Then
TxtFondoGarantia.Text = dtt.Rows(0)("Importe").ToString.FormatoNumero TxtFondoGarantia.Text = dtt.Rows(0)("Importe").ToString.FormatoNumero
End If End If
@@ -516,7 +517,6 @@ Partial Class Bancos_Creditos
End If End If
ObjCreditos.Dispose() ObjCreditos.Dispose()
ObjPrepoliza.Dispose()
End Sub End Sub
#End Region #End Region
@@ -1577,21 +1577,21 @@ Partial Class Bancos_Creditos
Dim importeMovimiento = 0.0D Dim importeMovimiento = 0.0D
Dim ConceptoContable = 0 Dim ConceptoContable = 0
Dim TipoMovimiento = False Dim TipoMovimiento = False
Dim IdCtaContable = 0 Dim IdCtaContable = 0
Dim Concepto = "" Dim Concepto = ""
Dim Referencia = $"Crédito: {TxtReferencia.Text}" Dim Referencia = $"Crédito: {TxtReferencia.Text}"
Dim FechaMovimiento = Now.ToDate Dim FechaMovimiento = Now.ToDate
Dim MsgError As String = "" Dim MsgError As String = ""
CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal
Dim CveProveedor = -1 Dim CveProveedor = -1
Dim CveCreditoPrePoliza = -1 Dim CveCreditoPrePoliza = -1
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.todecimal 'importe financiado importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal 'importe financiado
Concepto = $"Crédito: {TxtReferencia.Text}" Concepto = $"Crédito: {TxtReferencia.Text}"
Dim Pago As New CompraPago Dim Pago As New CompraPago
Pago.Fecha = Now Pago.Fecha = Now