Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include "TOTVS.CH"
#Include "RWMAKE.CH"
/*/{Protheus.doc} FA200FIL
Ponto de entrada para substituição da pesquisa do Título a Receber.
paramixb: aValores (consultar TDN - https://tdn.totvs.com/x/kKL8J)
@type Function
@author TOTVS
@since 25/05/2021
@return Nil
/*/
User Function FA200FIL()
Local cNumeroTit As Character
cNumeroTit := "XXXXXXXXXX"
SE1->(DbSelectArea("SE1"))
SE1->(DbSetOrder(16))
SE1->(DbGoTop())
If SE1->(DbSeek(FwXFilial("SE1") + SubStr(cNumeroTit, 1, 10)))
Conout("Título encontrado através do Nosso Número!")
Else
//Só é permitida a manipulação da variável lHelp. Caso queira que o help seja exibido, lHelp deve receber .T.
lHelp := .F.
//Variáveis permitidas para uso, mas que NÃO devem ser manipuladas
//cNumTit := ""
//cEspecie := ""
EndIf
Return Nil |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas