01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

Terceirização(SIGATEC)

Função:TECA765.PRW
País:Brasil
Ticket:Não há
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-15312


02. SITUAÇÃO/REQUISITO

Necessidade de ajustes no Monitor de Marcações de Pontos para melhor usabilidade da rotina.

03. SOLUÇÃO

Efetuado a revisão do parâmetro (pergunte) "Filial ?" e alterado os campos Tipo Marcação (T40_TIPOMA) e Hora Prevista (T40_HPREVI) para virtuais.

04. DEMAIS INFORMAÇÕES

Implementado os pontos de entrada TC765Bro personalização do Browse e TC765Str para retornar array (Campo, Tipo, Tamanho, Decimais) dos campos a serem usados no Browse.



Exemplo Ponto de Entrada TC765Bro.

1
2
3
4
5
6
7

#INCLUDE "PROTHEUS.CH"
 

Static cMark := GetMark()


User Function TC765BRO()
Local oBrowse := PARAMIXB[1]

oBrowse:AddButton("Processar",{||U_AT765BTN(oBrowse)})
oBrowse:AddMarkColumns( {||IIf(!Empty( T40_OK ),"LBOK","LBNO")},;

{|| u_AT765SetMk(oBrowse)},;

{||u_AT765AllMk(oBrowse),oBrowse:Refresh()} )

Return oBrowse


// Sugestão de rotinas específicas.

User Function AT765BTN(oBrowse)
    Local cAlias := oBrowse:oData:calias

    // ...

Return Nil

User Function AT765SetMk(oBrowse)
Local cAlias := oBrowse:oData:calias
RecLock( cAlias,.F. )
If Empty((cAlias)->T40_OK)
      (cAlias)->T40_OK := cMark
Else
      (cAlias)->T40_OK := ""
EndIf
(cAlias)->(MsUnLock())
Return Nil

User Function AT765AllMk(oBrowse)
Local cAlias := oBrowse:oData:calias
Local aArea  := (cAlias)->(GetARea())
Local lMarca := .F.
(cAlias)->(dbGoTop())
lMarca := (cAlias)->T40_OK <> cMark
While (cAlias)->(!Eof())
      (cAlias)->T40_OK := Iif(lMarca, cMark, "")
      (cAlias)->(MsUnLock())
      (cAlias)->(dbSkip())
EndDo
RestArea(aArea)
Return Nil

Exemplo Ponto de Entrada TC765Str.

1
2
3
4
5
6
7

User Function TC765STR()
Local aRet := {}
Local aUsrCpos := PARAMIXB[1]

// Exemplo de campo específico para marcação dos itens do Browse.

AAdd(aRet, {"T40_OK" ,"C",02,0})  

Return aRet

  1. Os códigos acima servem como exemplo para atender situação específica e devem ser alterados conforme a necessidade.
  2. Como sugestão de uso no exemplo acima foi criado o campo específico T40_OK (tamanho 2 caracteres).


05. ASSUNTOS RELACIONADOS