Jump to content
Fivewin Brasil

wanderso

Membros
 View Profile  See their activity

  • Posts

    114

  • Joined

  • Last visited

 Content Type 

Posts posted by wanderso

  2. MDFE - AVERBAÇÃO SEGURO

    in Programação

    Posted

    11 horas atrás, devairlp disse:

    Sim, e a classe TIPClientHttp não aceita https, que eu utilizava, preciso fazer por API, pois o cliente emite uns 40, 50 CTe por vez e manualmente fica mto demorado.

    Também me interesso estou no mesmo barco que o Devair.

  4. Atualizar Versao do Sistema

    in Programação

    Posted

    3 horas atrás, emotta disse:

    segue a funcao CompFile que retorna se os arquivos são iguais ou diferentes

     

    Function Teste()
    Local cFile1 := "arq1.txt"
    Local cFile2 := "arq2.txt"
    Local cFile3 := "arq3.txt"
    Local cCont1 := "testando texto para arquivo 1"
    Local cCont2 := "testando texto para arquivo 1"
    Local cCont3 := "testando texto para arquivo 3"
     
    MemoWrit(cFile1, cCont1)
    MemoWrit(cFile2, cCont2)
    MemoWrit(cFile3, cCont3)
     
    If CompFile(cFile1, cFile2)
      ? cFile1 + " é igual a " + cFile2
    Else
      ? cFile1 + " é diferente de " + cFile2
    EndIf
     
    If CompFile(cFile1, cFile3)
      ? cFile1 + " é igual a " + cFile3
    Else
      ? cFile1 + " é diferente de " + cFile3
    EndIf
     
    ? "fim"
    return
     
    Static Function CompFile(cFile1, cFile2)
    Local cHash1 := HB_MD5File( cFile1 )
    Local cHash2 := HB_MD5File( cFile2 )
     
    Return cHash1 == cHash2

    Interessante, vou fazer alguns testes. O que vc usa quando precisa criar/deletar campo no banco de dados e ou baixar um arquivo novo de report?

  5. Atualizar Versao do Sistema

    in Programação

    Posted

    34 minutos atrás, alex2002 disse:

    No meu caso, antes era por data e hora.

    Depois que trocamos o servidor, passou a dar problema pq mudou o SO dele. Daí colocamos por tamanho e tem uns 15 anos que não temos problemas. Já colocamos em todo tipo de SO e tem rodado legal. 

    Comparar o hash é legal, mas é bem mais lento, pq ele vai ter que praticamente fazer um donwload do arquivo (ou subir o conteúdo na memória) para fazer comparação. No nosso caso aqui é sem chance, o pacote compactado tem mais de 30 megas, imagina aguardar isso tudo apenas para dizer se tem versão nova.

    Mas o que vale é ver o que mais funciona para você.

    Mas dependendo do que é alterado no sistema, não muda o tamanho do arquivo, se vc alterou um "a" por "o" no .res do sistema não muda o tamanho. Como fica neste caso?

  6. Erro ao abrir a dll da flexdocs

    in Programação

    Posted

    Em 13/02/2023 at 10:39, mkyx disse:

    Bom dia, shalom, grandes guerreiros

    Eu tenho um cliente que o computador principal/servidor tinha win7 64 bits, e estava emitindo NFe via dll da flexdocs normalmente, mas, devidos a alguns pepinos do win7 que já morreu, esse computador foi formatado e instalado win10 pro. 

    Então, instalei a última versão da dll, da flexdocs, e quando fui emitir a nfe, aparece a mensagem que a nfe_util não foi encontrada no computador, e o erro é justamente na linha, onde vai criar o objeto da dll, cuja linha é essa:

       objoNfeUtil := CreateObject( "NFe_Util_2G.util" )
    Uma pergunta: Existe outros comandos além do CREATEOJECT, que eu possa substituir para criar esse objeto?

    Pois, ja fiz de tudo, já habilitei o dotnet no painel de controle em programas e recursos, pois estava desabilitado, desabilitei o firewall do windows, o antivirus avast, já coloque o nome da pasta do sistema dentro da lista de excessão do antivirus e do windows defender, já instalei uma versão anterior da dll da flexdocs, várias vezes, e nada até agora.

    Estou quase solicitando ao cliente, para levar o computador em outro tecnico para formatar e instalar o wind10 pro novamente.

    Desde já, eu agradeço por toda ajudar que vier.

    Grato

    Jose Adenildo/mkyx (codename: Pompeo)

    Guaratingueta, SP

    Bom dia, se registrou a dll através do bat, verifique se executou no prompt com privilégio de administrador.

  7. Fastreport exportar para pdf

    in Programação

    Posted

    1 hora atrás, Theotokos disse:

    Eu sempre utilizo nomes diferente pra cada fez que vai criar o arquivo pdf

    Para os PDF de pedidos de venda por exemplo: P_0002233.PDf   (P_numero do pedido.PDF)

    Tive que fazer isso também mas é uma falha grande na fastreport. Passei a usar a hora.min.seg em complemento ao nome do arquivo. Obrigado pela resposta.

  8. Fastreport exportar para pdf

    in Programação

    Posted

    Boa noite, alguém sabe como fechar o pdf após usar a função de exportar da fastreport? Acontece que se a rotina é processada uma vez ele cria o pdf no local indicado, mas se eu mandar processar novamente ele diz que o pdf está sendo usado, aí tenho que finalizar o programa para dar certo.

       FrPrn:SetProperty("PDFExport", "FileName", DirWin)
       FrPrn:SetProperty("PDFExport", "OpenAfterExport", .f.)
       FrPrn:SetProperty("PDFExport", "ShowDialog",.f.)
       FrPrn:PrepareReport()
       FrPrn:DoExport("PDFExport")
       FrPrn:DestroyFR()

    FileName é o nome do arquivo e Dirwin o local onde ele é criado.

    Obrigado!

     

  9. Averbação smarthub

    in Programação

    Posted

    7 minutos atrás, kapiaba disse:

    Bom dia. O que diablos és  smarthub? 

     

    Regards, saludos.

    Opa, smartrub é uma empresa encarregada de receber dados de averbação de cargas (cte/mdfe) de várias seguradoras. Tenho a rotina feita para porto seguro que tem o site próprio para averbar só que o cliente mudou de seguradora e os parâmetros e métodos parecem ser outros.

  15. Foco em combobox dropdownlist

    in Programação

    Posted

    Em 08/11/2022 at 18:59, Jmsilva disse: 
    
#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, cDia,cGet:=Space(10),cGet1:=Space(10)

   DEFINE DIALOG oDlg
   @ 1,3 get cGet of oDlg size 20,12

   @ 2, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
      ITEMS { "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domimgo" } ;
      STYLE CBS_DROPDOWN

   oCbx:oGet:bKeyChar := {|nKey| oCbx:GetKeyChar( nKey ) }
   oCbx:bGotFocus     := {|| oCbx:Open()}
   oCbx:bLostFocus    := {|| oCbx:Close()}

   @ 3.6,3 get cGet1 of oDlg size 20,12

   ACTIVATE DIALOG oDlg CENTERED

return nil

    Kapi !

    Desculpa a demora. O dia foi puxado!

    Segue um exemplo para vcs !

    abraço!

    Fiz assim também, pelo menos o usuário vê que o combo abriu e sabe onde está. Valeu!

  16. Foco em combobox dropdownlist

    in Programação

    Posted

    Galera tem alguma forma de mudar a cor do objeto combobox quando este ganha foco e está setado como dropdownlist no pelles? Utilizando o COLOR na frente nas redefinições ele é totalmente ignorado. O usuário fica sem saber onde está o foco quando existem vários combos seguidos. Valeu!

  17. Qrcodelib.dll

    in Programação

    Posted

    7 minutos atrás, joao disse:

    Boa tarde ,

    Tenta assim :

    cFile:="c:\teste\arq.bmp"

    cStr:="conteúdo do_qrcode"

    Generar_QR(cStr,cFile)

     

    No final do prg coloca a seguinte chamada da dll e retire sua função Generar_QR

    DLL Function Generar_QR(cStr AS STRING ,cFile AS STRING   ) AS LONG PASCAL FROM "FastQRCode" LIB ".\QRCodelib.dll"

     

    Obrigado João, assim deu certo, vai entender né?

  19. Qrcodelib.dll

    in Programação

    Posted

    Agora, emotta disse:

    eu fiz esse exemplo e funciona normal. Veja que o arquivo criado neste exemplo direciona para a pasta C:\TESTE

    Minha pergunta é: vc tem essa pasta TESTE criada no seu crive C: ? Acredito que o ideal é vc direcionar para a pasta da sua aplicação, deixando só:

    cFile := "arq.bmp"

     

    Outra coisa, a dll QRCODELIB.DLL tem que estar na mesma pasta do seu executavel

    Então tenho sim, e não é criado nenhum bmp dentro dela, e já tentei também utilizando cFile := "arq.bmp" para ver se cria na pasta do executável e nada. Interessante que o resultado do nResp é nil. Sem entender o porque.

  21. Qrcodelib.dll

    in Programação

    Posted

    Olá pessoal. Alguém esta usando essa dll para gerar qrcode? O exemplo abaixo não cria o arquivo bitmap do qr. Valeu!

     

    #include "Fivewin.ch"

    Static Function Main()

    cStr:="conteúdo do_qrcode"

    cFile:="c:\teste\arq.bmp"

    QRcode(cStr,cFile)

    quit


    **----------------------------------------------------------**

    FUNCTION QRcode(cStr,cFile)

    **----------------------------------------------------------**

    #Define DC_CALL_STD 0x0020

    LOCAL qrDLL

    Generar_QR(cStr,cFile)

    RETURN(NIL)

    FUNC Generar_QR(cStr,cFile)
    LOCAL nResp
    LOCAL qrDLL
    qrDLL:=LoadLibrary("QRCodelib.Dll" )
    nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile)
    FreeLibrary(qrDLL)
    RETURN (NIL)

     

  23. Dúvida com edição de célula de xbrowse

    in Programação

    Posted

    Olá amigos.

    Lista0:aCols[06]:nEditType    := EDIT_DATE
    Lista0:aCols[06]:cEditPicture := "dd/mm/yyyy"
    Lista0:aCols[06]:bonPostEdit  := { | oCol, uValue, nLastKey | If( nLastKey == 13, VeEdit(uValue),Nil ) }
     

    Após editar a célula tento enviar a uma função para fazer validações mas neste caso a função VeEdit() nunca é executada. O que estou fazendo errado?

    Valeu!

     

×
×
  • Create New...