- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gerenciador de Compatibilizadores
×
Linguagem de Programação ADVPL
Perguntas Gerenciador de Compatibilizadores
- andreamador
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 26
- Obrigados Recebidos: 0
11 anos 8 meses atrás - 11 anos 8 meses atrás #12375
por andreamador
Gerenciador de Compatibilizadores foi criado por andreamador
Ola Gostaria de criar um gerenciador de updates baseado no que esta diponivel aqui no forum
porem gostaria de trabalhar com arquivo dbf para poder acrescentar funcionalidades
mais não estou conseguindo criar as tabela dbf com indices de uma maneira primitiva
alguem tem um exemplo para se fazer isso , quando comcluido pretendia disponibilizar no forum
por favor deem uma olhada no meu codigo para entender, não consigo dar um dbseek por exemplo
porem gostaria de trabalhar com arquivo dbf para poder acrescentar funcionalidades
mais não estou conseguindo criar as tabela dbf com indices de uma maneira primitiva
alguem tem um exemplo para se fazer isso , quando comcluido pretendia disponibilizar no forum
por favor deem uma olhada no meu codigo para entender, não consigo dar um dbseek por exemplo
Ultima edição: 11 anos 8 meses atrás por andreamador.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 8 meses atrás #12378
por kanaamlrr
Respondido por kanaamlrr no tópico Gerenciador de Compatibilizadores
Cara, eu costumo utilizar criação de arquivos com índices da seguinte forma:
Local aStruct := {}
Local cArqTRB := ""
aAdd(aStruct,{"HA_PRODUTO",AvSx3("B1_COD",2),AvSx3("B1_COD",3),AvSx3("B1_COD",4)})
aAdd(aStruct,{"HA_TIPO" ,"C" ,2 ,0 })
aAdd(aStruct,{"HA_TEXTO" ,"C" ,20 ,0 })
aAdd(aStruct,{"HA_PER001" ,"N" ,18 ,8 })
aAdd(aStruct,{"HA_PER002" ,"N" ,18 ,8 })
aAdd(aStruct,{"HA_PER003" ,"N" ,18 ,8 })
aAdd(aStruct,{"HA_PER004" ,"N" ,18 ,8 })
aAdd(aStruct,{"HA_MRPPER1","N" ,18 ,8 })
aAdd(aStruct,{"HA_MRPPER2","N" ,18 ,8 })
aAdd(aStruct,{"HA_MRPPER3","N" ,18 ,8 })
aAdd(aStruct,{"HA_MRPPER4","N" ,18 ,8 })
aAdd(aStruct,{"B2_CM1" ,"N" ,18 ,2 })
aAdd(aStruct,{"CUSTOPLAN" ,"N" ,21 ,2 })
aAdd(aStruct,{"CUSTOMRP" ,"N" ,21 ,2 })
cArqTRB := CriaTrab(aStruct,.T.)
If !Used()
Return .F.
EndIf
USE &cArqTRB ALIAS "TRB" NEW
IndRegua("TRB",cArqTRB+OrdBagExt(),"HA_PRODUTO+HA_TIPO")
USE &"SHA" ALIAS "WKSHA" NEW
IndRegua("WKSHA","SHA"+OrdBagExt(),"HA_PRODUTO+HA_TIPO")
Por favor Acessar ou Registrar para participar da conversa.
- andreamador
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 26
- Obrigados Recebidos: 0
11 anos 8 meses atrás - 11 anos 8 meses atrás #12389
por andreamador
Respondido por andreamador no tópico Gerenciador de Compatibilizadores
Do jeito que está ai eu pego um arquivo temporário
e como eu faço depois para abrir o nome do arquivo no qual eu gravei os dados ?
quero colocar mais de um índice no arquivo, podendo setar quando necessario
Outra observação, não pode usar licença
e como eu faço depois para abrir o nome do arquivo no qual eu gravei os dados ?
quero colocar mais de um índice no arquivo, podendo setar quando necessario
Outra observação, não pode usar licença
Ultima edição: 11 anos 8 meses atrás por andreamador.
Por favor Acessar ou Registrar para participar da conversa.
- andreamador
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 26
- Obrigados Recebidos: 0
11 anos 8 meses atrás #12426
por andreamador
Respondido por andreamador no tópico Gerenciador de Compatibilizadores
Algum expert em clipper?
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 8 meses atrás #12428
por kanaamlrr
Respondido por kanaamlrr no tópico Gerenciador de Compatibilizadores
Desculpe a demora.
Então, para usar o arquivo criado é só mudar um pouco a sintaxe
Segue
cArqTRB := "SEUARQUIVO.DBF"
USE &cArqTRB ALIAS "TRB"
Set Index To (cArqIND+OrdBagExt())
Set Index To (cArqIND1+OrdBagExt())
assim deve funcionar..
faz tempo que não trabalho com DBF diretamente.
Testa ae e diz se deu certo.
Então, para usar o arquivo criado é só mudar um pouco a sintaxe
Segue
cArqTRB := "SEUARQUIVO.DBF"
USE &cArqTRB ALIAS "TRB"
Set Index To (cArqIND+OrdBagExt())
Set Index To (cArqIND1+OrdBagExt())
assim deve funcionar..
faz tempo que não trabalho com DBF diretamente.
Testa ae e diz se deu certo.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gerenciador de Compatibilizadores
Tempo para a criação da página:0.112 segundos