Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada GP080GRV

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAGPE

Rotina:

Rotina

Nome Técnico

Cadastro de Turno de Trabalho

GPEA080.PRX

Chamados Relacionados

TVRQ30

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

 

Ponto de Entrada

Descrição:

O ponto de entrada GP080GRV é executado ao salvar alterações no cadastro de turnos de trabalho, permitindo atualizar informações do turno em outras tabelas.

Programa Fonte:

GPEA080.PRX

Retorno:

Nil

 

Exemplo:

#include 'protheus.ch'

User function GP080GRV()

     Local aArea := GetArea()

     DBSelectArea("SRA")
     DBSetOrder(1)
     SRA->(DBGoTop())

     While ! EOF() .AND. xFilial("SRA", M->R6_FILIAL ) == M->R6_FILIAL

          If SRA->RA_TNOTRAB == M->R6_TURNO

              RECLOCK('SRA',.F.)

              SRA->RA_HRSMES := M->R6_HRNORMA + M->R6_HRDESC
              SRA->RA_HRSEMAN := SRA->RA_HRSMES / 5
              SRA->RA_HRSDIA := SRA->RA_HRSEMAN / 6


              MsUnLock()

        EndIf

        SRA->( DBSkip() )

    EndDo

    RestArea(aArea)
Return