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

cambios de extensiones .SUM de double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-12 21:21:50 -07:00
parent 7ab88313cb
commit 053512112c
57 changed files with 747 additions and 811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Bancos/ProveedoresCreditos.aspx.vb
View File

@@ -507,9 +507,9 @@ Partial Class Bancos_ProveedoresCreditos
GvV.DataSource = ObjBancos.DtResultados
End If
TxtImporte.Text = ObjBancos.DtResultados.SUM("Total").ToString().ToDouble.Texto2Letras(CveMoneda)
TxtImporte.Text = ObjBancos.DtResultados.SUM("Total").ToString().ToDecimal.Texto2Letras(CveMoneda)
TxtImporteLetra.Text = "---" & ObjBancos.DtResultados.SUM("Total").ToString().ToDouble.Texto2Letras(CveMoneda) & "---"
TxtImporteLetra.Text = "---" & TxtImporte.Text & "---"
ObjBancos.Dispose()
GvV.DataBind()
@@ -773,7 +773,7 @@ Partial Class Bancos_ProveedoresCreditos
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then
Dim Row = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
Dim Row As DataRow = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then
Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia)
Dep.Dispose()
@@ -853,7 +853,7 @@ Partial Class Bancos_ProveedoresCreditos
If Not gvr.FCCheckBox("ChkPagar").Checked Then
Continue For
End If
Dim importeMovimiento = gvr.DataKey("Total").ToDecimal
Dim importeMovimiento As Decimal = gvr.DataKey("Total").ToDecimal
Dim CveCreditoDetalle As Integer = gvr.DataKey("CveCreditoDetalle").ToEntero
Dim CveCredito As Integer = gvr.DataKey("CveCredito").ToEntero
Dim DtDetallesCredito As DataTable
@@ -979,21 +979,21 @@ Partial Class Bancos_ProveedoresCreditos
End If
Dim CreditoMensualidad = DtDetallesCredito.FiltroPrimeroValor("Mensualidad", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoIvaCapital = DtDetallesCredito.FiltroPrimeroValor("IVACapital", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoIvaIntereses = DtDetallesCredito.FiltroPrimeroValor("IVAIntereses", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoMensualidad As Decimal = DtDetallesCredito.FiltroPrimeroValor("Mensualidad", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoIvaCapital As Decimal = DtDetallesCredito.FiltroPrimeroValor("IVACapital", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoIvaIntereses As Decimal = DtDetallesCredito.FiltroPrimeroValor("IVAIntereses", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoIntereses = DtDetallesCredito.FiltroPrimeroValor("Intereses", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
Dim CreditoIntereses As Decimal = DtDetallesCredito.FiltroPrimeroValor("Intereses", $"CveCreditoDetalle = {CveCreditoDetalle}").ToString.ToDecimal
If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) AndAlso ObjMov.DtResultados.Rows.Count > 0 Then
Dim DtPlantilla = ObjMov.DtResultados
Dim DtPlantilla As DataTable = ObjMov.DtResultados
Dim ConceptoContable = 0
Dim TipoMovimiento = False
Dim Concepto = ""
Dim Referencia = $"Crédito: {TxtFolio.Text}"
Dim FechaMovimiento = NowADS().ToDate
Dim ConceptoContable As Integer = 0
Dim TipoMovimiento As Boolean = False
Dim Concepto As String = ""
Dim Referencia As String = $"Crédito: {TxtFolio.Text}"
Dim FechaMovimiento As Date = NowADS().ToDate
For Each Row As DataRow In DtPlantilla.Rows
@@ -1232,7 +1232,7 @@ Partial Class Bancos_ProveedoresCreditos
Dim Retorno As String = ""
If contextKey.ToDouble >= 0 Then
Retorno = String.Format("---{0}---", contextKey.ToDouble.Texto2Letras(tCveMoneda))
Retorno = String.Format("---{0}---", contextKey.ToDecimal.Texto2Letras(tCveMoneda))
End If
Return Retorno