Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA4701 - Centro de Custo e de Trabalho
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
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