Punto de entrada: CT175GRV - Genera asientos de ajuste
Alcances |
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
...
: | 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