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 |
Esse P.E Gera lancamentos de ajusteEventos
occore na rotina que Gera lancamentos de ajuste
Programa FonteCTBA175.PRWSintaxe
CT175GRV - 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 |
aRetorno
- (array_of_record)
- Coleção com os lançamentos de ajuste
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