import.css=/download/attachments/327912/newLayout.css

Ponto-de-Entrada: OFIIANFE - Manipulação do vetor altem.
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição:
Ponto de Entrada para manipular o vetor aItem que é Integrado com o Mata103 (NF’s de Entrada).
Eventos
 ===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Programa  | OFIIANFE   |Autor  |                       | Data | 99/99/99 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descri‡„o | Pondo de Entrada para manipulação do vetor aItem que é |##
##|          | passado na Integração com o Mata103 (NF’s de Entrada) |##
##+----------+--------------------------------------------------------------+##
##|Uso       | Concessionarias                                              |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User function OFIIANFE()
local aItem := ParamIxb[1]
 
MsgAlert("Ponto de Entrada OFIIANFE chamado com Sucesso!")
 
Return(aItem)
Programa Fonte
OFIIA000
Sintaxe

OFIIANFE - Manipulação do vetor altem. ( [ ] ) --> aItem

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
Array of Record
Retorno
    aItem()
  • retorno (aItem)
Observações
 If ( ExistBlock("OFIIANFE") )
aItem := ExecBlock("OFIIANFE",.f.,.f.,{aItem})
EndIf
 
EndIf
 
&& Deleta o registro apos importacao
If GetNewPar("MV_EXCVI0","S") == "S"
 
DbSelectArea("VIA")
If !RecLock("VIA",.F.,.T.)
Help("  ",1,"REGNLOCK")
lRet := .f.
DisarmTransaction()
Break
EndIf
DbDelete()
MsUnLock()
WRITESX2("VIA")
 
EndIf
 
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão