Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: MNTA4701 - Centro de Custo e de Trabalho
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada chamado durante a verificação da consistência do centro de custo e do centro de trabalho, fazendo uma validação do usuário.
Eventos


 

Programa Fonte 
MNTA470.PRX
Sintaxe

MNTA4701 - Centro de Custo e de Trabalho ( ) --> .T. ou .F.

Retorno
    .T. ou .F. (logico)
  • .T. indica que a verificação está correta, .F. indica que há algum problema e/ou não deverá prosseguir
Observações


 

Exemplos 
#include "rwmake.ch"      User Function MNTA4701()Local lRetorno := .F.aArea := GetArea()If !Empty(M->TPN_CCUSTO)            dbSelectArea("SI3")            dbSetOrder(01)            If dbSeek(xFilial("SI3")+M->TPN_CCUSTO)                        cDescCC := AllTrim(SI3->I3_DESC)                        APMSGINFO("Centro de Custo "+AllTrim(M->TPN_CCUSTO)+": "+cDescCC+" foi encontrado!")                        lRetorno := .T.            EndIfEndIfIf !Empty(M->TPN_CTRAB)            dbSelectArea("SHB")            dbSetOrder(01)            If dbSeek(xFilial("SHB")+M->TPN_CTRAB)                        cDescCTb := AllTrim(SHB->HB_NOME)                        APMSGINFO("Centro de Trabalho "+AllTrim(M->TPN_CTRAB)+": "+cDescCTb+" foi encontrado!")                        lRetorno := .T.            EndIfEndIfRestArea(aArea)Return lRetorno