Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (thalita.pacini), última alteração por Usuário desconhecido (felipe.valcanaia) em 03 jul, 2012

Ponto-de-Entrada: MATIMP - Alimenta informações da rotina de implantação de saldos em estoque
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function MatImpProc()

EM QUE PONTO : O ponto de entrada É chamado para alimentar as informacoes da rotina de implantacao de saldos em estoque. Deve ser utilizado em importacoes de outros sistemas ou para facilitar a implantacao do saldo em estoque existente na empresa.
Eventos


 

Programa Fonte 
MATAIMP.PRW
Sintaxe

MATIMP - Alimenta informações da rotina de implantação de saldos em estoque ( < PARAMIXB> ) --> aRegs

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Numérico Recebe como parametro qual opcao esta sendo utilizada : Opcao 1 - Implantacao de Saldos em Estoque X
Retorno
    aRegs(vetor)
  • O retorno deve ser um array multidimensional que garante um numero de linhas  bastante grande , pela forma que deve ser criado (suporta 4096X4096 linhas =  16777216 linhas )
Exemplos 
User Function matimp()Local aRegs:={{}}nOpcao:=paramixbIf nOpcao == 1/* Estrutura que deve ter o array aRegsEstrutura do array para importacao dos dadosCOLUNA 01- Codigo do produtoCOLUNA 02- AlmoxarifadoCOLUNA 03- LoteCOLUNA 04- Data de validade do LoteCOLUNA 05- LocalizacaoCOLUNA 06- Numero de SerieCOLUNA 07- QuantidadeCOLUNA 08- Quantidade na segunda UMCOLUNA 09- Valor do movimento Moeda 1COLUNA 10- Valor do movimento Moeda 2COLUNA 11- Valor do movimento Moeda 3COLUNA 12- Valor do movimento Moeda 4COLUNA 13- Valor do movimento Moeda 5 */// Adiciona registro em array para LogFor nz:=1 to 5000// Adiciona registro em array para LogIf Len(aRegs[Len(aRegs)]) > 4095AADD(aRegs,{})EndIf AADD(aRegs[Len(aRegs)],{PRODUTO,LOCAL,LOTE,VALIDADE,LOCALIZACAO,NUMERO DE  SERIE,QTD,QTD 2A UM,VALOR INICIAL MOEDA 1,VALOR INICIAL MOEDA 2,VALOR  INICIAL MOEDA 3,VALOR INICIAL MOEDA 4,VALOR INICIAL MOEDA 5})Next nzEndIfRETURN(aRegs)