Tempo aproximado para leitura:00:00:30 min
Dúvida
Como implementar o ponto de entrada FISATEND?
Ambiente
TOTVS Logística - TOTVS TMS (Linha Protheus) - Gestão de Transportes (TMS) - Todas as versões
Solução
O ponto de entrada FISATEND permite realizar alterações no endereço da função FISGETEND.
Programa Fonte: MATA950.PRW
Sintaxe: FISATEND ( [ ] ) --> cRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
| Array of Record |
Retorno
cRet
(caracter)
String com endereço alterado.
Exemplos:
User Function FisAtEnd() Local cEndereco := ParamIXB[1]Local cRet := ''Local lCompEnd := .F.Local nPosEsp := 0cEndereco := AllTrim(cEndereco) If Type(Substr(cEndereco,1,1)) == 'N' cRet := 'RUA '+cEnderecoEndIfIf Rat(',',cEndereco) == 0 nPosEsp := Rat(' ',cEndereco) If Empty(nPosEsp) lCompEnd := .T. Else nPosEsp += 1 If Type(Substr(cEndereco,nPosEsp,1)) != 'N' lCompEnd := .T. EndIf EndIf If lCompEnd If Empty(cRet) cRet := cEndereco EndIf cRet += ' .' EndIfEndIf Return cRet
Variáveis:
| Nome | Tipo | Escopo | Pode Alterar | Descrição |
| Array of Record |
0 Comentários