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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas