F110REC - Geração de Recibo

Descrição

O ponto de entrada F110REC gera recibos com todos os títulos baixados automaticamente no contas a receber.

Observações

Está presente na função F110REC ()

Exemplos

USER FUNCTION F110REC()

Local cAlias := GetNextAlias()
Local cQry := "SELECT * FROM SE1990 WHERE E1_OK = '"cMarca"' " //Selecionando os títulos que estão marcados

cQry := ChangeQuery(cQry) //Adequações necessárias a query para que possa ser executada adequadamente no banco de dados através do TopConnect

dbUseArea(.T., "TOPCONN", TCGenQry(,,cQry), cAlias , .F., .T.) //Definindo um arquivo de base de dados

(cAlias)->(DbGoTop())

While (cAlias)->(!EOF())

Alert( (cAlias)->(E1_PREFIXO+E1_NUM) ) // Customizações usuário

(cAlias)->(dbSkip())

EndDo

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Não possui retorno.

Eventos de chamada do Ponto de Entrada

If lF110Rec
ExecBlock("F110REC",.F.,.F.)
Endif

Variáveis

Local lF110Rec := (ExistBlock("F110REC") )

Programa Fonte

FINA110.PRW