Punto de entrada: CT175GRV - Genera asientos de ajuste
Alcances: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Versiones: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Portugués (Brasil) , Portugués (Portugal) , Español , Inglés |
Descripción:
Este P.E. Genera asientos de ajuste
Eventos
Ocurre en la rutina que Genera asientos de ajuste
Programa fuente
CTBA175.PRW
Sintaxis
CT175GRV - Genera asientos de ajuste ( [ aClone(aCab) ], [ aClone(aTotItem) ] ) --> aRetorno
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
aClone(aCab) | Array of Record | Copia de la matriz encab | |||||||||||||||
aClone(aTotItem) | array_of_record | Copia de la matriz con totales de los ítems |
Devolución
aRetorno(array_of_record)
Colección con los asientos de ajuste
Ejemplos
If lCt175GrCT2 aRetorno := ExecBlock('CT175GRV',.F.,.F.,{aClone(aCab),aClone(aTotItem)}) aCab := aClone(aRetorno[1]) aTotItem := aClone(aRetorno[2]) aRetorno := {} Endif IncProc(STR0036) //"Generando asiento " MSExecAuto({|x,y,Z| Ctba102(x,y,Z)},aCab,aTotItem,3) aTotItem := {} If lMsErroAuto DisarmTransaction() MostraErro() Return .F. Endif nBase := nX