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:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Contabilidad/DiarioPagos.aspx.vb
View File

@@ -287,7 +287,7 @@ Partial Class Contabilidad_DiarioPagos
'sino tiene cuenta
'si la compra es mayor o igual al anticipo, se simplifica el movimiento a anticipos
If e.Row.DBCampo("CvePlantillaPoliza").ToEntero.Contiene(10, 52, 1) AndAlso e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe") AndAlso (e.Row.DBCampo("CveMoneda") = "1" OrElse (e.Row.DBCampo("CveMoneda") = "2" AndAlso e.Row.DBCampo("IdCtaContExtranjera").ToEntero > 0)) Then
If e.Row.DBCampo("CvePlantillaPoliza").ToEntero.Contiene(10, 52, 1) AndAlso e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe").ToDecimal AndAlso (e.Row.DBCampo("CveMoneda") = "1" OrElse (e.Row.DBCampo("CveMoneda") = "2" AndAlso e.Row.DBCampo("IdCtaContExtranjera").ToEntero > 0)) Then
Simplificar = True
e.Row.FCCheckBox("Chk").Visible = True
End If
@@ -321,11 +321,10 @@ Partial Class Contabilidad_DiarioPagos
'End If
'cuando es anticipo
If e.Row.DBCampo("CveMoneda").ToEntero = 1 AndAlso e.Row.DBCampo("IdCtaContAnticipos").ToEntero = 0 AndAlso e.Row.DBCampo("CvePlantillaPoliza").Contiene(10, 52) And Simplificar = False Then
If e.Row.DBCampo("CveMoneda").ToEntero = 1 AndAlso e.Row.DBCampo("IdCtaContAnticipos").ToEntero = 0 AndAlso e.Row.DBCampo("CvePlantillaPoliza").Contiene("10", "52") And Simplificar = False Then
'falta vicularse la cuenta
e.Row.FCTextBox("TxtDescripcion").ForeColor = Drawing.Color.OrangeRed
e.Row.FCTextBox("TxtDescripcion").ToolTip = "Falta vincular la cuenta contable de anticipos"
End If
If e.Row.DBCampo("IdCuentaIVAAcreditable").ToEntero = 0 Then
@@ -334,7 +333,6 @@ Partial Class Contabilidad_DiarioPagos
e.Row.FCLabel("LblIVA").ToolTip = "Falta vincular la cuenta contable"
End If
If e.Row.DBCampo("IdCtaContBancos").ToEntero = 0 Then
'falta vicularse el proveedor
e.Row.FCHyperLink("HplCuenta").ForeColor = Drawing.Color.OrangeRed
@@ -490,20 +488,16 @@ Partial Class Contabilidad_DiarioPagos
GvTmp = GvC
End Select
For Each gvr As GridViewRow In GvTmp.Rows
If gvr.FCCheckBox("Chk").Checked Then
Contador += 1
If gvr.DataKey("CveMoneda") <> "1" Then
TipoCambioPago = TxtTC.Text.ToDouble : ContadorME += 1
TipoCambioPago = TxtTC.Text.ToDecimal : ContadorME += 1
Else : TipoCambioPago = 1
End If
End If
Next
If ContadorME > 0 AndAlso TxtTC.Text.ToDouble <= 0 AndAlso RBLOpcion.SelectedValue = "1" Then
Alert("Ingrese un tipo de cambio.")
Exit Sub
@@ -1040,7 +1034,7 @@ Partial Class Contabilidad_DiarioPagos
''hago el movimiento de fluctuacion cambiaria
If CveMoneda = 2 Then
Dim FluctuacionCambiaria, FluctuacionCambiariaIVA As Double
Dim FluctuacionCambiaria, FluctuacionCambiariaIVA As Decimal
''registro a la cuenta complementaria del proveedor
'If gvr.DataKey("IdCtaContComplementaria").ToEntero > 0 Then
@@ -1091,16 +1085,13 @@ Partial Class Contabilidad_DiarioPagos
If TotalBancos > 0 Or gvr.DataKey("CveEstatusIE").ToString = "2" Then ' cuando tiene importe en bancos o esta cancelado
ConceptoMov = gvr.FCTextBox("TxtDescripcion").Text
Dim ImporteMovimientoBancos As Double = gvr.DataKey("Importe").ToDouble * TipoCambioPago
Dim ImporteMovimientoBancos As Decimal = gvr.DataKey("Importe").ToDecimal * TipoCambioPago
If CveMoneda = 2 AndAlso IdCtaContBancosComplementaria > 0 Then
ImporteMovimientoBancos = gvr.DataKey("Importe").ToDouble
ImporteMovimientoBancos = gvr.DataKey("Importe").ToDecimal
ConceptoMov = String.Format("{0} TC:{1} ${2}", ConceptoMov, TipoCambioPago, TotalBancos.FormatoNumero)
End If
Dim TmpTotalBancos As Double = Math.Round(ImporteMovimientoBancos, 2)
Dim TmpTotalBancos As Decimal = Math.Round(ImporteMovimientoBancos, 2)
Dim TotalBancosME As Double = TotalBancos
If CveMoneda = 2 AndAlso IdCtaContBancosComplementaria <= 0 Then
ConceptoMov = String.Format("{0} TC:{1} ${2}", ConceptoMov, TipoCambioPago, TotalBancosME.FormatoNumero)
@@ -1117,7 +1108,7 @@ Partial Class Contabilidad_DiarioPagos
'hago el movimiento de fluctuacion cambiaria BANCARIA Complementaria
If CveMoneda = 2 AndAlso IdCtaContBancosComplementaria > 0 Then
TmpTotalBancos = Math.Round(gvr.DataKey("Importe").ToDouble * TipoCambioPago - ImporteMovimientoBancos, 2)
TmpTotalBancos = Math.Round(gvr.DataKey("Importe").ToDecimal * TipoCambioPago - ImporteMovimientoBancos, 2)
'se ocupa verificar que no tenga una diferencia de un centavo por las conversiones de dolares a peso
Dim dtF As DataTable = Nothing
@@ -1125,7 +1116,7 @@ Partial Class Contabilidad_DiarioPagos
'hago ajuste
dtF = Conta.DtResultados
Dim tCargos, tAbonos As Decimal
tCargos = dtF.SUM("Cargo") : tAbonos = dtF.SUM("Abono")
tCargos = dtF.SUMD("Cargo") : tAbonos = dtF.SUMD("Abono")
If Math.Abs(tCargos - (tAbonos + TmpTotalBancos)) < 1 Then
TmpTotalBancos += (tCargos - (tAbonos + TmpTotalBancos))
End If
@@ -1494,7 +1485,7 @@ Partial Class Contabilidad_DiarioPagos
Conta.AddCausacionesIVA(IDPoliza, 0, 0, 0, 0, 0, 0, True)
Conta.AjustaPoliza(IDPoliza)
PrePolizas.UpdatePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
'PrePolizas.UpdatePrePoliza(Fecha, NumPoliza, IDPoliza, gvr.DataKey("CvePrePoliza").ToEntero, gvr.DataKey("CveEmpresa").ToEntero)
Conta.Commit()
PrePolizas.Commit()
@@ -1627,7 +1618,7 @@ Partial Class Contabilidad_DiarioPagos
Else
'sino tiene cuenta
'si la compra es mayor o igual al anticipo, se simplifica el movimiento a anticipos
If e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe") AndAlso e.Row.DBCampo("IdCtaContComplementaria").ToEntero > 0 Then
If e.Row.DBCampo("IdCtaContBancos").ToEntero > 0 AndAlso tDtCompras IsNot Nothing AndAlso tDtCompras.Rows.Count > 0 AndAlso tDtCompras.SUM("Total") >= e.Row.DBCampo("Importe").ToDecimal AndAlso e.Row.DBCampo("IdCtaContComplementaria").ToEntero > 0 Then
Simplificar = True
e.Row.FCCheckBox("Chk").Visible = True
End If