Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
LJRECVER - Verificação dos títulos selecionados
LJRECVER - Verificação dos títulos selecionados

Ponto-de-Entrada: LJRECVER - Verificação dos títulos selecionados
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Argentina , Bolívia , Brasil , Chile , Colômbia , México
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol
Descrição:
Ponto de Entrada para tratar a pesquisa dos titulos em aberto do cliente, chamado nas funções LJRecPesq e LJRecEstorna, após os títulos terem sido selecionados.
Programa Fonte
LOJXREC.PRW
Sintaxe

LJRECVER - Verificação dos títulos selecionados ( [ @aTitReceb ] ) --> aTitRetor

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
aTitRecebArray of RecordTítulos selecionados para verificaçãoX
Retorno
    aTitRetor(array_of_record)
  • Array com os títulos para prosseguir.
Observações
Executado na tela de Venda Assistida no recebimento de títulos.

Recebe Array com as posições conforme exemplo abaixo: 
 .F.,;  // 1. Posicao logica.
 "",;  // 2. Prefixo do titulo.
 "",;  // 3. Titulo.
 "",;  // 4. Parcela.
 CToD(""),; // 5. Vencimento real.
 0,;   // 6. Valor.
 0,;   // 7. Multa.
 0,;   // 8. Juros.
 0,;   // 9. Desconto.
 0,;   // 10. Recebimento.
 "",;  // 11. Tipo.
 "",;  // 12. Contrato.
 "",;  // 13. Cliente.
 "",;  // 14. Loja.
 "",;  // 15. Filial.
 0,;   // 16. RecNo.
 0,;   // 17. Acrescimo financeiro.
 .F.,;  // 18. Posicao logica.
 0,;   // 19. Abatimento.
 CToD(""),; // 20. Vencimento original.
 "",;  // 21. Chave do registro
 1 ,;  // 22. Codigo da moeda do titulo
 0    // 23. Interes (Juros) - Posicao reservada
Exemplos
User Function LJRECVER ()Local nPosTit := 0Local aTitRetor := {}Local aTitReceb := := iIf( PARAMIXB <> nil, aClone(PARAMIXB[1]), {} )For nPosTit := 1 to Len( aTitReceb )	aAdd( aTitRetor, aTitReceb[nPosTit] )Next nPosTitReturn aClone(aTitRetor)