Librería

Clase

Metodo

AhoraConta

ContaProcesos

GeneraApunte


Implementación:


 Public Function GeneraApunte(
     aAsiento As Long,
     aFecha As Date,
     aCuenta As String,
     aValor As Double,
     aConcepto As String,
     Optional aIdCentrocoste As String = "")              As Long 


Descripción:


Inserta un apunte contable con los parámetros indicados. Si aAsiento es 0 entonces lo calcula automáticamente. Devuelve el índice del apunte creado, para el asiento.


Código VB6:

lSql = "Select sum(Alb.Total) Tot from vAlbaran_Cli_Lineas  A " + _
        "Inner join Pedidos_Cli_Cabecera P On A.IdPedido=P.IdPedido " + _
        "Where (A.IdEstadoLinea=5) Group by P.IdCentroCoste"
Set lCursor = gCn.OpenResultset(lSql)
If Not lCursor.EOF Then
  ' Apuntes al Haber por C.C.
  lInsertar = True
  Do While Not lCursor.EOF
    lTotalEuros = DRound(VGetNumber(lCursor!Tot.Value), 2)
    gCn.AhoraProceso "GeneraApunte", False, lAsiento, lFecha, pCuentaCli_H, lTotalEuros, "Contab.Alb.Actualiz.: " & Format(lFecha, cFmt_Date))
    lTotal = lTotal + lTotalEuros
    lCursor.MoveNext
  Loop
  lCursor.Cerrar
  End If
Set lCursor = Nothing
' Apuntes al Debe agrupado
If lInsertar Then
  gCn.AhoraProceso "GeneraApunte", False, lAsiento, lFecha, pCuentaCli_D, (-1) * lTotal, "Contab.Alb.Actualiz.:" & Format(lFecha, cFmt_Date)
End If 


Código C#:

object[] lParam_AP_GeneraApunte = new Object[] {lAsiento, lFecha, pCuenta, (decimal)((-1) * lSumaDest), "Contab. Alb. de Traspaso: " + Format(lFecha, cFmt_Date), "", IdDiario.Text, NumDocDiario.Text, ContadorDiario.Text, pIdProceso};
lIdApunte = (int) gCn.AhoraProceso("GeneraApunte", out _, lParam_AP_GeneraApunte);
lAsiento = CInt(lParam_AP_GeneraApunte[0]);