Exemplo do Ponto de Entrada MT120TEL.
Exemplo do Ponto de Entrada:
#Include "Protheus.ch"
/*--------------------------------------------------------------------------------------------------------------*
| P.E.: MT120TEL |
| Desc: Ponto de Entrada para adicionar campos no cabeçalho do pedido de compra |
| Link: http://tdn.totvs.com/display/public/mp/MT120TEL |
*--------------------------------------------------------------------------------------------------------------*/
User Function MT120TEL()
Local aArea := GetArea()
Local oDlg := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local nOpcx := PARAMIXB[4]
Local nRecPC := PARAMIXB[5]
Local lEdit := IIF(nOpcx == 3 .Or. nOpcx == 4 .Or. nOpcx == 6, .T., .F.) //Somente será editável, na Inclusão, Alteração e Cópia
Local oXObsAux
Public cXObsAux := ""
//Define o conteúdo para os campos
SC7->(DbGoTo(nRecPc))
If nOpcx == 3
cXObsAux := CriaVar("C7_X_OBS",.F.)
Else
cXObsAux := SC7->C7_X_OBS
EndIf
//Criando na janela o campo OBS
@ 044, aPosGet[1,1] SAY Alltrim(RetTitle("C7_X_OBS")) OF oDlg PIXEL SIZE 050,006
@ 043, aPosGet[1,2] MSGET oXObsAux VAR cXObsAux SIZE 100, 006 OF oDlg COLORS 0, 16777215 PIXEL
oXObsAux:bHelp := {|| ShowHelpCpo( "C7_X_OBS", {GetHlpSoluc("C7_X_OBS")[1]}, 5 )}
//Se não houver edição, desabilita os gets
If !lEdit
oXObsAux:lActive := .F.
EndIf
RestArea(aArea)
Return
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;