Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

Ponto-de-Entrada: MTA455ML - Retorna total da quantidade selecionada
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada disparado antes da apresentação da tela de MarkBrowse dos lotes, apoós clicar nos botões: 'Nova Liberação' e 'Lote e Endereços'. Este ponto de entrada deve retornar o total da quantidade selecionada.
Programa Fonte 
.PRW
Sintaxe

MTA455ML - Retorna total da quantidade selecionada ( ) --> Nil

Retorno
    Nil(numerico)
  • Total da Quantidade Selecionada no MakBrowse.
Exemplos 
User Function MTA455ML()      Local aArea  := GetArea()Local cMarca := ''Local nQtdSel  := 0cMarca := ThisMark()  dbSelectArea(ParamIxb[1])  // Alias TRB do MarkBrowsedbGoTop()While !Eof()  RecLock(ParamIxb[1],.f.)    (ParamIxb[1])->TRB_OK := cMarca  // Seleciona Item no MakBrowse  MsUnLock()  nQtdSel += (ParamIxb[1])->TRB_QTDLIB // Soma variavel que comtem o total da quantidade selecionada  dbSkip()EndDoRestArea(aArea)Return(nQtdSel)  // Retorna total da quantidade selecionada.