Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMS050FIL - Filtra Notas Fiscais de EDI
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Este ponto de entrada, localizado no TMSA050(Entrada Dc. Cliente), permite ao usuário filtrar as notas fiscais de EDI.
Programa Fonte 
TMSA050.PRW
Sintaxe

TMS050FIL - Filtra Notas Fiscais de EDI ( [ aItEDI ], [ ] ) --> aItEDI

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aItEDI Array of Record Array contendo as todas as notas fiscais de EDI.
Array of Record
Retorno
    aItEDI(array_of_record)
  • Array com todas as notas fiscais de EDI.
Exemplos 
#Include 'Protheus.ch'User Function TMS050FIL()Local aNfEDI     := PARAMIXB[1]Local aFiltroEDI := {}Local nI         := 0Local nBusca     := 3For nI := 1 To Len(aNfEDI)	If Val(aNfEDI[nI,nBusca]) < Val("000000003") //-- Filtra por numero do Documento.		AAdd(aFiltroEDI,aNfEDI[nI])	EndIfNext nIIf Empty(aFiltroEDI)	Return(aNfEDI)EndIfReturn( aFiltroEDI )
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não