No vídeo de hoje, vamos demonstrar em como liberar ou bloquear a edição de um campo no cabeçalho do documento de entrada, no momento da classificação de uma nota, através de um ponto de entrada.
A dúvida de hoje, nos perguntaram, se seria possível bloquear ou liberar alguns campos do cabeçalho do Documento de Entrada.
Pensando nisso, montamos esse exemplo, onde vamos demonstrar em como usar o ponto de entrada MT103CWH que serve para liberar a edição de alguns campos (os que não são chave da SF1).
Segue abaixo o vídeo exemplificando:
E abaixo o código fonte desenvolvido:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function MT103CWH
Ponto de Entrada que permite liberar a edição de campos no cabeçalho do Documento de Entrada
@type Function
@author Atilio
@since 13/03/2024
@see https://tdn.totvs.com/pages/releaseview.action?pageId=6085804
/*/
User Function MT103CWH()
Local aArea := FWGetArea()
Local xRetorno := Nil
Local cCampo := Alltrim(ParamIXB[1])
Local lClassif := ParamIXB[3]
//Se é uma classificação
If lClassif
//Se for os campo de Emissão vai permitir a alteração
If cCampo $ "F1_EMISSAO;"
xRetorno := .T.
//Se for o campo Espécie, vai bloquear a alteração
ElseIf cCampo $ "F1_ESPECIE;"
xRetorno := .F.
EndIf
EndIf
FWRestArea(aArea)
Return xRetorno
Bom pessoal, por hoje é só.
Abraços e até a próxima.
