| Pagetitle |
|---|
| CT175GRV - Gera lancamentos de ajuste |
|---|
| CT175GRV - Gera lancamentos de ajuste |
|---|
|
Ponto-de-Entrada: CT175GRV - Gera lancamentos de ajuste
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 | | Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 | | Compatível Países: | Todos | | Sistemas Operacionais: | Todos | | Compatível às Bases de Dados: | Todos | | Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:Esse P.E Gera lancamentos de ajuste Eventosoccore na rotina que Gera lancamentos de ajuste Programa FonteCTBA175.PRW SintaxeCT175GRV - Gera lancamentos de ajuste ( [ aClone(aCab) ], [ aClone(aTotItem) ] ) --> aRetorno Parâmetros:
| Nome |
|
| Tipo |
|
| Descrição |
|
| Default |
|
| Obrigatório |
|
| Referência |
|
| aClone(aCab) |
|
| Array of Record |
|
| Coopia da matriz cab |
|
|
|
|
|
|
|
|
|
|
| aClone(aTotItem) |
|
| array_of_record |
|
| Copia da matriz com totais dos itens |
|
|
|
|
|
|
|
|
|
|
Retorno aRetorno(array_of_record)- Coleção com os lançamentos de ajuste
Exemplos If lCt175GrCT2 aRetorno := ExecBlock('CT175GRV',.F.,.F.,{aClone(aCab),aClone(aTotItem)}) aCab := aClone(aRetorno[1]) aTotItem := aClone(aRetorno[2]) aRetorno := {} Endif IncProc(STR0036) //"Gerando lancamento " MSExecAuto({|x,y,Z| Ctba102(x,y,Z)},aCab,aTotItem,3) aTotItem := {} If lMsErroAuto DisarmTransaction() MostraErro() Return .F. Endif nBase := nX
|