This commit is contained in:
Antonio Gonzalez
2020-02-28 18:41:32 -07:00
16 changed files with 2853 additions and 117 deletions

View File

@@ -1385,7 +1385,7 @@ Partial Class Ventas_ClientesAbonar
ImporteMovimiento = 0
End Select
If ImporteMovimiento <> 0 Then
If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
'Conta ContPAQ
If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)

View File

@@ -11709,6 +11709,7 @@ Partial Class Ventas
End If
End If
saldo = saldo.RoundSQL()
Dim maxsaldo As Decimal
If total > saldo Then
@@ -14701,6 +14702,8 @@ Partial Class Ventas
TmpDT.Columns.Add("EsOutSourcing", GetType(Boolean))
TmpDT.Columns.Add("EsCargo", GetType(Boolean))
TmpDT.Columns("EsOutSourcing").DefaultValue = False
End Sub
Private Sub CreaDTmpC()
DTmpC = New DataTable