Duvida LBW
-
23 de Novembro de 2015 às 14:05Encaminhando discussão atual p/ a lista do LB!
[]'s
Em 23 de novembro de 2015 12:04, Eduardo Lúcio Amorim Costa <
eduardolucioac@gmail.com> escreveu:*Eduardo Lúcio*
LightBase Consultoria em Software Público
eduardo.lucio@LightBase.com.br
*BRLight: Software Livre + Nossas Idéias = Melhor Solução!*
*+55-61-3347-1949 <%2B55-61-3347-1949> - http://www.LightBase.com.br/
- Brasil-DF*
[image: BR Light S.A.] -
23 de Novembro de 2015 às 14:12Histórico:Eduardo Santos <eduardo@eduardosan.com>
20 de nov (Há 3 dias)
para Odirlei, eduardo.lucio"Odirlei F. Cristino" <odirlei85@gmail.com> escreveu:Ao gravar nos campos do tipo ALFANUMERICO, tudo ocorre perfeitamente, porem quando gravo nos campos do tipo WORD ou IMAGEM, nao ocorre nenhum erro, mas o valor nao e inserido no campo.- base.FieldByName("img1").Image = "endereco.jpg"
- base.FieldByName("img1").string = "endereco.jpg"
Nenhum desse dois comandos deu certo, tanto para imagem quanto para o campo WORD. Nenhum problema ocorre, porem nao e gravado o conteudo no campo.Odirlei F. Cristino <odirlei85@gmail.com>
20 de nov (Há 3 dias)
para Eduardo, eduardo.lucioNão consigo colocar conteúdo em campos do tipo word e imagem, através do vb6, já tentei todas as propriedades possíveis, mas nenhuma delas funciona.
Já acompanhou algum caso desses ou teria alguma outra informação que poderia me ajudar.Eduardo Lúcio Amorim Costa <eduardolucioac@gmail.com>
20 de nov (Há 3 dias)
para Jairo, Odirlei, Eduardo, EduardoRecomendo não usar esses tipos de dados pois não tivemos boas experiências com eles.
Melhor vc extrair o conteúdo desses arquivos e inserir em campos "string".
[]'s20 de nov (Há 3 dias)
para mim, Eduardo, Eduardo, JairoEntendi, realmente para utilizar via visual basic o campo do tipo alfanumérico já atenderia perfeitamente.
Mas, pretendo utilizar o lbw cliente, o VB será utilizado apenas para migrar as informações de documentos para a base do lbw.
Teria alguma solução em que eu conseguisse gravar (carregar) conteúdo no campo do tipo WORD através do VB?- base.FieldByName("pdf").String = variavel com arquivo carregado nela (tipo file)
- base.FieldByName("pdf").String = caminho
- base.FieldByName("pdf").String = caminho & ",1040,0,200"
- base.FieldByName("pdf").demais_propriedades = caminhoEduardo Lúcio Amorim Costa <eduardolucioac@gmail.com>
12:04 (Há 7 minutos)
para Odirlei, Eduardo, Eduardo, JairoEu realmente nunca tive essa necessidade, por isso não tenho um exemplo p te apresentar. Recomendo q vc use um "Object Browser" para dar uma olhada na API da DLL "LBCom", isso pode te ajudar.
Temos tb um outro produto chamado GOLDENDOC q tb trata arquivos, mas por outros meios. Esse tb gera aplicações.
NOTA: Se houver outra pergunta peço que mande na nossa lista de discussão em lightbase@listas.softwarepublico.gov.br. Para instruções sobre como se associar veja em https://softwarepublico.gov.br/social/spb/como-faco-para-associar-me-a-uma-lista-de-discussao. Aí é só mandar um e-mail para lightbase@listas.softwarepublico.gov.br. Dessa forma contribuímos com a comunidade tb![]'s -
23 de Novembro de 2015 às 14:12
-
23 de Novembro de 2015 às 14:12
-
24 de Novembro de 2015 às 13:38Tenho esse exemplo aqui, funciona tanto quanto pdf e arquivos word.
Segue em anexo o exemplo.
Em 23 de novembro de 2015 12:05, Eduardo Lúcio Amorim Costa <Att,
Mauro Santos -
24 de Novembro de 2015 às 14:26Mauro,
Onde consta o exemplo? Talvez seja o caso de colocar o código no corpo do
e-mail.Em 24 de novembro de 2015 11:38, Mauro Santos -
24 de Novembro de 2015 às 20:00Troquei os formatos dos anexos para ".txt", o conteúdo original é em ".asp"
mas pode ajudar.
Em 24 de novembro de 2015 12:25, Eduardo Lúcio Amorim Costa <<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>REM if Request.ServerVariables("REQUEST_METHOD") = "POST" then
On Error Resume Next
Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino
Dim objFSO, objArquivo, Msg, Extensao
PastaDestino = Server.MapPath(".")
PastaDestino = "C:\BR.Light\Aplicativos\www\xxx\paginaArquivos"
dim cpf
cpf = request.QueryString("usuarioCPF")
dim dataPublicacaoMudarLotacao
dataPublicacaoMudarLotacao = request.QueryString("mudarLotacaoPublicacaoData")
'Determina o tamanho do conte�do
Tamanho = Request.TotalBytes
'Obt�m o conte�do no formato bin�rio
ConteudoBinario = Request.BinaryRead(Tamanho)
'Transforma o conte�do bin�rio em string
For Contador = 1 To Tamanho
ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next
'Determina o delimitador de campos
Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)
'Percorre a String procurando os campos
'identifica os arquivo e grava no disco
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)
Posicao1 = InStr(ConteudoTexto, Delimitador)
do while True
ArquivoNome = ""
Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
if Posicao1 = 0 then
exit do
else
'Determina o nome do arquivo
Posicao1 = Posicao1 + 10
Posicao2 = InStr(Posicao1, ConteudoTexto, """")
Extensao = Trim(Mid(ConteudoTexto,Posicao2-4,4))
If not InStr(1, Extensao, ".") > 0 then
Extensao = "." & Extensao
End If
REM ArquivoNome = cpf&"-"& dataPublicacaoMudarLotacao("id") & Extensao
ArquivoNome = dataPublicacaoMudarLotacao & "-" & cpf & Extensao
'Determina o conte�do do arquivo
Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))
'Grava o arquivo
if ArquivoNome <> "" then
Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true)
objArquivo.WriteLine ArquivoConteudo
objArquivo.Close
'Atualizando o registro
REM Con.Execute("update complementar set endereco='" & ArquivoNome & "' where pessoa_id= "& PsqPessoa("id") & " AND concurso_id="& dataPublicacaoMudarLotacao("id"))
Msg = "Arquivo enviado com sucesso!"
Set objArquivo = nothing
end if
end if
Loop
Set objFSO = nothing
if Err.Number <> 0 then
Response.Write "=========================================" & "
"
Response.Write " * Error description: " & Err.Description & "
"
Response.Write " * Source: " & Err.Source & "
"
Response.Write " * LineNumber: " & Err.Line & "
"
Response.Write "=========================================" & "
"
else
Response.Write "==============================================" & "
"
Response.Write "========= Documento enviado com SUCESSO!!! =========" & "
"
Response.Write "==============================================" & "
"
response.write "alert(""" & Msg & """);"
end if
REM Con.Close
REM end if
%>
&mudarLotacaoPublicacaoData;=<%Response.Write Session("mudarLotacaoPublicacaoData")%>">
ANEXO
-
2 de Dezembro de 2015 às 16:56Boa tarde, alguém sabe onde posso baixar a documentação, manual de instalação, etc.??
-
2 de Dezembro de 2015 às 16:58
-
21 de Dezembro de 2015 às 12:32Pessoal gostaria de saber mais sobre a parte GED do LightBase. É uma instalação separada do LightBase??
Obrigado. -
21 de Dezembro de 2015 às 12:33
-
28 de Janeiro de 2016 às 20:15Respondido no tópico: https://softwarepublico.gov.br/archives/thread/lightbase/instalacao-ged#msg-4639
-
1 de Setembro de 2017 às 15:25Instalei o LIGHTBASE no Windows 7 e no 10 (64 bits), em ambos, tive problemas no modulo gerador de relatórios, nas duas oportunidades, ocorreu o seguinte erro "REPORT MFC Application parou de funcionar", é uma questão de configuração ou da versão windows ? poderiam me ajudar ? obrigado
Eduardo Lúcio Amorim Costa
Mauro Santos
Romildo Correa
ricardo rodrigues jayme