Exemplo do Ponto de Entrada SX5NOTA.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*---------------------------------------------------------------------*
| P.E.: SX5Nota |
| Desc: Função para inibir a tela da série, quando a chave estiver |
| contida em um parâmetro (MV_X_SERNF) |
| Link: http://tdn.totvs.com/pages/releaseview.action?pageId=6784448 |
*---------------------------------------------------------------------*/
User Function SX5Nota()
Local aArea := GetArea()
Local lRet := .F.
Local cSeries := SuperGetMV("MV_X_SERNF", .F., "001;")
Local cChave := SX5->X5_CHAVE
If Alltrim(cChave) $ cSeries
lRet := .T.
EndIf
RestArea(aArea)
Return lRet
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;
