PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
IMPORTACAO DE NR DE SERIE
Versão:
.
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
102018.rar (anexo)
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário IZILDINHAK IZILDINHAK em 16/10/2018, 10:49 h
Local: SP  Registro: 06/12/2011  Postagens: 57
Bom dia,

Gostaria de pedir uma ajuda.

Preciso importar um arquivo bem simples contendo o codigo do produto e o nr de serie para a tabela SBF.

Encontrei um fonte que fazia isso, fiz os devidos ajustes, mas da um erro, e não estou conseguindo descobrir, parece ser alguma coisa bem simples.

o erro ocorre na linha 88 do fonte:
          If !dbSeek(xFilial("SBF")+aDados2[i,2]+aDados2[i,4]+aDados2[i,1]+aDados2[i,5])

erro:
Exceção ocorrida: variable is not array - Type [C]

Pilha de chamadas:
    U_IMPNRSERIE(88)

Segue anexo o fonte para teste e arquivo para teste.

Izildinha R. A. Kavai
MACKSYS TECNOLOGIA LTDA - EPP
Tel.: 999516022

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MGVASCO MGVASCO em 19/10/2018, 15:06 h
Local: SP  Registro: 26/09/2017  Postagens: 18
Acontece que você está tentando ler uma matriz onde só tem um array.

AADD(aDados2,‘01‘           )       //2-‘BF_LOCAL‘
     AADD(aDados2,‘ZZZ‘          )       //3-‘BF_PRIOR‘
     AADD(aDados2,cLocaliz     )       //4-‘BF_LOCALIZ‘
     AADD(aDados2,aAux[nCont][2]     )   //5-‘BF_NUMSERI‘
     AADD(aDados2,‘‘)               //6-‘BF_LOTECTL‘
     AADD(aDados2,‘‘)               //7-‘BF_NUMLOTE‘
     AADD(aDados2,1 )               //8-‘BF_QUANT‘
     AADD(aDados2,0 )               //9-‘BF_EMPENHO‘
     AADD(aDados2,0 )               //11-‘BF_QEMPPRE‘
     AADD(aDados2,0 )               //12-‘BF_EMPEN2‘
     AADD(aDados2,0 )               //13-‘BF_QEPRE2‘
     AADD(aDados2,0 )               //14-‘BF_QTSEGUM‘
     AADD(aDados2,‘‘)               //15-‘BF_DATAVEN‘
     AADD(aDados2,‘‘)               //16-‘BF_ESTFIS‘
     AADD(aDados2,‘‘)              //17-‘BF_DINVENT‘

Isso criou um array simples com cada uma das informações em uma linha.
pelo que eu entendi faltou no seu código algo do tipo

AADD(aFinal, aDados2)

Ai isso faria sentido, você estaria buscando dados de um array que contem outro array.

!dbSeek(xFilial("SBF")+aFinal[i,2]+aFinal[i,4]+aFinal[i,1]+aFinal[i,5])



Marcelo Vasconcelos

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário IZILDINHAK IZILDINHAK em 20/12/2018, 09:08 h
Local: SP  Registro: 06/12/2011  Postagens: 57
Bom dia,

Isso mesmo.

Obrigada pela ajuda.

Izildinha R. A. Kavai
MACKSYS TECNOLOGIA LTDA - EPP
Tel.: 999516022

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal