×
Linguagem de Programação ADVPL
Perguntas TABELA X EMPRESA
- brunosperb
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 5
- Obrigados Recebidos: 0
10 anos 1 mês atrás - 10 anos 1 mês atrás #25679
por brunosperb
TABELA X EMPRESA foi criado por brunosperb
galera, estou fazendo um programa que importa arquivos do excel para fazer um inventario, até ai ok.porém ele não reconhece a tabela de maneira certa, estou logado na empresa 20 e ele salva as informações na SB7010 alguem pode me ajudar??
segue a parte em que passo os dados
dbSelectArea("SB7")
Begin Transaction
Reclock("SB7", .T.)
SB7->B7_FILIAL:=RIGHT(aProd[1],2)
if len(aprod[2])<2
SB7->B7_LOCAL :=StrZero(val (aProd[2]),2)
else
SB7->B7_LOCAL :=aProd[2]
endif
SB7->B7_COD := aProd[3]
SB7->B7_TIPO:= aprod[4]
SB7->B7_DOC := cDoc
// SB7->B7_DOC:= GETSXENUM("SB7","B7_DOC")
SB7->B7_QUANT:= val(strtran((aProd[5]),",","."))
SB7->B7_DATA:= date(strtran((aProd[6]),",","."))
MsUnLock()
End Transaction
// END
segue a parte em que passo os dados
dbSelectArea("SB7")
Begin Transaction
Reclock("SB7", .T.)
SB7->B7_FILIAL:=RIGHT(aProd[1],2)
if len(aprod[2])<2
SB7->B7_LOCAL :=StrZero(val (aProd[2]),2)
else
SB7->B7_LOCAL :=aProd[2]
endif
SB7->B7_COD := aProd[3]
SB7->B7_TIPO:= aprod[4]
SB7->B7_DOC := cDoc
// SB7->B7_DOC:= GETSXENUM("SB7","B7_DOC")
SB7->B7_QUANT:= val(strtran((aProd[5]),",","."))
SB7->B7_DATA:= date(strtran((aProd[6]),",","."))
MsUnLock()
End Transaction
// END
Ultima edição: 10 anos 1 mês atrás por brunosperb.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.092 segundos