Histórico da Página
...
| Pagetitle | ||
|---|---|---|
|
...
|
...
|
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
...
occore na rotina que Gera lancamentos de ajuste
...
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
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas