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]);