Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Tabelas utilizadas


01. VISÃO GERAL

Descrição:

Ponto de Entrada para checar registros perdidos no SRT.

Programa Fonte

GPEM070

Sintaxe

GP070CHK - Checar Registros SRT ( [ ] )


02. EXEMPLO DE UTILIZAÇÃO

Varrer tabela SRT para realizar o tratamento necessário.

       

        User Function Gp070Chk()

Local aArea     := GetArea()
Local cChave    := ""

SRT->(dbSetOrder(1))

cChave := (cTBLXPROV)->PR_FILIAL + (cTBLXPROV)->PR_MAT + (cTBLXPROV)->PR_CC

If SRT->(dbSeek( cChave ))
    While SRT->(!Eof()) .AND. (SRT->RT_FILIAL + SRT->RT_MAT + SRT->RT_CC == cChave)
        //Tratamento específico
        SRT->(DbSkip())
    EndDo
EndIf

RestArea(aArea)

Return Nil

Importante

Atentar-se para a correta utilização do alias de provisão que foi alterado a partir da versão 12.1.25:
DRHPAG-24117 DT Troca de Alias "TPR" no arquivo de provisões



03. TABELAS UTILIZADAS

  • SRT