Entry-Points: CT175GRV - Creates adjustment entries
Scope: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versions: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible Countries: | All |
Operating Systems: | All |
Compatible with the Databases: | All |
Languages: | Portuguese (Brazil) , Portuguese (Portugal) , Spanish , English |
Description:
This P.E. creates adjustment entriese
Event
It happens in the routine that creates adjustment entries.
Source Program
CTBA175.PRW
Syntax
CT175GRV - Creates adjustment Entries ( [ aClone(aCab) ], [ aClone(aTotItem) ] ) --> aRetorno
Parameters:
Name | Type | Description | Default | Mandatory | Reference | ||||||||||||
aClone(aCab) | Array of Record | Copy of the cab matrix | |||||||||||||||
aClone(aTotItem) | array_of_record | Copy of the matrix with item totals |
Return
aRetorno(array_of_record)
Collection with adjustment entries
Examples
If lCt175GrCT2 aRetorno := ExecBlock('CT175GRV',.F.,.F.,{aClone(aCab),aClone(aTotItem)}) aCab := aClone(aRetorno[1]) aTotItem := aClone(aRetorno[2]) aRetorno := {} Endif IncProc(STR0036) //"Creating entries " MSExecAuto({|x,y,Z| Ctba102(x,y,Z)},aCab,aTotItem,3) aTotItem := {} If lMsErroAuto DisarmTransaction() MostraErro() Return .F. Endif nBase := nX