Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: Tk271Sit01 – Personalização Situação Financeira do Cliente.
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Idiomas: Português (Brasil)
Descrição: 
Ponto de entrada permite a personalização da situação financeira.Chamado na tela de atendimento do Call Center.
Eventos

Programa Fonte 
tmka271a.prw
Sintaxe

Tk271Sit01 – Personalização Situação Financeira do Cliente. ( [ ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    lRet(logico)
  • Se trouxe ou não as informações financeiras.
Observações

Exemplos 
User Function Tk271Sit01()Local cCliente   := SubStr(M->UC_CHAVE,1,TamSX3("A1_COD")[1])Local cLoja      := SubStr(M->UC_CHAVE,TamSX3("A1_COD")[1] + 1,TamSX3("A1_LOJA")[1])Local lRet       := .F.DbSelectArea("SUS")SUS->(DbSetorder(1))If DbSeek(xFilial("SUS") + cCliente + cLoja)                DbSelectArea("SA1")                SA1->(DbSetorder(1))                If DbSeek(xFilial("SA1") + SUS->US_CODCLI + SUS->US_LOJACLI)                               //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿                               //³Caso o Pergunte seja confirmado executa a consulta financeira.³                               //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ                    If Pergunte("FIC010",.T.)                                               Fc010Con("SA1",SA1->(Recno()),2)                                               lRet := .T.                               Endif         Else               lRet := .F.                EndifEndif    Return lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não