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
Eventos
occore na rotina que Gera lancamentos de ajuste
Programa Fonte
CTBA175.PRW
Sintaxe
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 |
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas