Theotokos

exatamente
 

Eu fiz uma limpeza nós fontes antes de conmitar no github e pode ser isso 
Amanhã vou voltar o fonte na versão antes dessa limpeza e commito novamente e te aviso e vc baixa.

Pensei que era uma contribuição!!!
Mas tudo bem amigo, temos que valorizar nossos esforços e trabalho.
Abraços 

Realmente aparece uma dialog com 3 datas como se fosse nosso famoso "debug" e depois uma dialog sem o qrcode.
Amigo Gunafe acho que só criando a figura do QRCode seria suficiente e a dialog de apresentação dele, ficava por nossa conta mas claro amigo não querendo abusar de sua bondade.
 

O Problema é em um momento como este gerarmos mais um custo ao cliente. Não sei ai na região de vcs mais por aqui está tudo muito parado.
Falar com o cliente em mais 100,00 150,00 reais a mais é praticamente um tiro no pé.
 

Noite, muda pouca coisa. Não é difícil migrar a Harbour. Usando o HBMK2.exe, fica bem mais simples a compilação. Veja:
 
http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=26149&start=0
 
Muito simples, precisa apenas estar com o HARBOUR completo. Dúvidas, thamus ai. O Ladinilson está aprendendo a migrar, vá trocando ideais com ele. E se precisar do HARBOUR completo, avise: Uso: HBCC74 e BCC74. Abs.

Se for em em uma rede local, até dá usando Terminal Server

Voce compra a licença dessa pessoa, coloca em uma maquina com windows 10 por exemplo
https://rdpmu.com/    (50,00) dai voce cria quantos usuarios precisar.
Dai baixa ao https://play.google.com/store/apps/details?id=com.softmedia.remote&hl=pt-BR

Por exemplo, dai indico fazer a inteface para tablet com recursos minimos e com botoes grandes, para usuario fazer acesso
Tipo emitir o pedido por exemplo.


 
 
Mas tudo isso é quebra galho, idel é ter app nativo

Ficou super show()
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39824&hilit=twindow&sid=19048697257f4bd7c093b539750fc2fa
Abs.
Regards, saludos.

Olha, a impressora Bematech não fiscal tem uma rotina própria. Te aconselho a inserir a dll dela no sistema e usa-la para impressão. Pelo PRN a coisa fica sempre meio que disfuncional
 

Veja se acha aqui:
 
http://forums.fivetechsupport.com/viewtopic.php?f=17&t=34973&start=0#p208655

Fiz com o RaiDrive que cria uma unidade no pc e criei uma rotina onde as filiais enviam para o Google Drive imagens e baixo na unidade do pc criada pelo RaiDrive.
Fiz isso porque com FTP ficou até mais "trabalhoso" mas sei que a velocidade é melhor.
Não sei se isso que estas pretendendo mas comigo funcionou legal.
Vou fazer um teste pelo Backup do Drive.
 
Abs

Oi Tales,
          Desculpe a demora pra responder amigo. Vai logo abaixo a rotina pra enviar SMS caso ainda precise ou se alguém do fórum precisar. Pra enviar pra vários modens basta selecionar as portas seriais de cada modem que acredito que vai enviar normalmente, ou coloque um loop pra correr entre as portas dos modens e enviar de cada serial.
* A rotina abaixo é bem simples e funciona perfeitamente. Já tenho 4 clientes usando as mensagens sem problema
          cMsg := alltrim(cMsg) // Aqui é a mensagem
          cTel := alltrim(cTel) // Aqui é o telefone  que vai receber a mensagem. Lembrando que tem que ser '55'+codigo de area+numero do celular
          nBits := 9600 // Aqui é parametro da porta serial, normalmente é 9600
          cPort := '04' //Aqui a porta serial, no caso é a porta 04
          smsenviado := .f. // Aqui é só uma variável pra retornar .t. ou .f. caso envie ou não o sms

** Aqui abre a porta serial do modem
          cBuffer := space(2048)
          nComm := OpenComm("COM"+alltrim(str(cPort)), 9600, 128)
          if BuildCommDcb("COM"+alltrim(str(cPort))+":9600,n,8,1", @cBuffer )
             if !SetCommState(cBuffer)
                msgmens('Erro ao abrir porta serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
** Aqui inicia a comunicação com o primeiro parametro AT             
             if(nBytes := WriteComm(nComm,"AT"+Chr(13))) < 0
                msgmens('Erro ao gravar comando AT na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)
             
** Aqui configura pra mensagem de texto                                    
             if(nBytes := WriteComm(nComm,"AT+CMGF=1"+Chr(13))) < 0
                msgmens('Erro ao gravar comando CMGF=1 na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)

** Aqui envia a mensagem  
             if(nBytes := WriteComm(nComm,"AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)+cMsg+Chr(26))) < 0
                msgmens('Erro ao gravar comando AT+CMGS na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)
             
** Aqui finaliza o envio fixando os valores na saida serial do modem
                          
             if FlushComm(nComm,1 ) != 0
                msgmens('Erro ao fixar mensagem na serial '+alltrim(str(cPort)),'Atenção',1)
                CloseComm(nComm)
                return .f.
             endif
             sysWait(1)
             smsenviado := .t.
          else
             msgmens('Porta serial não conectada','Atenção',1)
             CloseComm(nComm)
             return .t.
          endif        
** Aqui finaliza o procedimento
          if FlushComm(nComm,1) != 0
             msgmens('Erro ao fixar gravação de dados na serial'+alltrim(str(cPort)),'Atenção',1)
             return .f.
          endif
          
          CloseComm(nComm)
        endif
 

Pega ai essa bem simplificada e eficaz.
A funcao u_Teste é um exemplo de uso
 
ArrayToString transforma o array em string (na verdade um json)
StringToArray lê o json salvo em arraytostring e devolve o array pronto
 
Function u_Teste() Local aDados := {} Local nI   For nI := 1 to 10     aadd(aDados, nI) Next   cSave_Array := ArrayToString(aDados)   aNew_Array := StringToArray(cSave_Array)   MsgStop(Sr_ShowVector(aNew_Array))   Return

  Static Function ArrayToString(aDados) Local hDados := Hash()   hDados["ARRAY"] := aDados   Return hb_jsonEncode(hDados,.t.)   Static Function StringToArray(cDados) Local hDados := Hash() Local aDados := {}   try     hb_jsondecode(cDados, @hDados)     aDados := hDados["ARRAY"] catch end   Return aDados

GASFW.PRG - GERADOR AUTOMÁTICO DE SISTEMAS EM FIVEWIN.
GASFW.PRG - GENERADOR DE SISTEMA AUTOMÁTICO EN FIVEWIN.
A idade está chegando, então, como não tenho mais tempo para modernizar este programa, estou disponibilizando para todos os FIVEWINNERS do Brasil e do Mundo, para que possam usar e melhorar. Espero que possa ajudar a comunidade de FIVEWINNERS.
Todos os FONTES usados, estão em anexo no arquivo .RAR.
Muito obrigado e abraços a todos os FIVEWINNERS.
En español:
Se acerca la era, así que, como no tengo tiempo para modernizar este programa, lo estoy poniendo a disposición de todos los FIVEWINNERS de Brasil y del mundo, para que puedan usarlo y mejorarlo. Espero que puedas ayudar a la comunidad FIVEWINNERS.
Todas las FUENTES utilizadas se adjuntan en el archivo .RAR.
Muchas gracias y un abrazo a todos los FIVEWINNERS.

Link para Dowload:

https://mega.nz/file/pZFkkRgZ#sjU10k75aMrhbFeJCsMs7k0pixobpsvRu87fZcdsv_w

Regards, saludos, Saudações. - João Santos - São Paulo - Brazil, 02/08/2021 - Quarentine Covid19.

bom dia,
Fiz este calendário / agenda de compromisso, achei legal e resolvi postar o código para quem quiser aproveitar e usar o código para incrementar como quiser.
Abraço.

Segue o link
http://www.wsiscom.com.br/download/agenda.rar

Sim, esta certo, são comandos AT pra enviar para  o modem. CMGS envia a mensagem direto e CMGW apenas grava a mensagem pra envio posterior.

Olá pessoal, utilizo o xDev Studio e não conheço todas as teclas de atalho.
Alguém teria uma lista com estas informações?
Fico agradecido!
Quero relatar também um problema:
Quando acionamos as combinações Ctrl + Shift + C, para seleção em colunas, nunca utilize a combinação Ctrl + D (Duplicar a linha atual), pois o xDev trava. Já perdi várias linhas de código por conta disso. Tenho sempre que Cancelar a ação de Ctrl + Shift + C, com Ctrl + "-" antes de executar o Ctrl + D. 
Outra coisa que é chato, é quando incluímos um novo fonte ao projeto. Ele recompila tudo...  Meu projeto tem quase 1000 fontes. Pense num grande pra concluir toda compilação... e quando dá um erro no fonte incluído, recomeça tudo do zero. Mas a maioria das vezes eu consigo burlar isso. É adicionar uma função inexistente ao fonte e compilar, para que ocorra o erro de função indefinida. Aí você pode adicionar os fontes ao projeto que ele só irá compilar os incluídos e alterados.
É uma pena que o Pai da criança não dê mais manutenção no xDev. Tinha tudo pra ser o Editor de programas.

Eu começaria da seguinte forma: Geraria um QRCODE pelo internet banking a partir da minha conta. Depois, com um leitor de qrcode, iria ler o qrcode e ver o texto gerado e comparar com o manual.
Depois disso, a partir do exemplo simples que postei que gera um qrcode, eu geraria o mesmo texto do qrcode gerado inicialmente e tentaria fazer a transferencia (a partir de outra conta).
Enfim, eu começaria desta forma. Talvez lhe ajude.
Como essa questão do PIX não é tão prioritária pra mim no momento tive que deixar pra depois devido outras questões.
abraços

Theotokos não vou conseguir esse pix essa semana vou tentar um tempo semana que vem. Caso você consiga evoluir e precise imprimir montei esse exemplo, com codigo bem simplificado, que gera o QRCODE em BMP. Se chegar no ponto de gerar use essa dll pra conseguir imprimir.
 
abraços
A

Realmente minha sugestão não foi das mais criativas, mas foi seguida (pelo Theotokos) e pelo jeito é isso mesmo. Através do Link do banco central (que é um banco) está a solução (no link acima)
Se conseguir um tempo essa semana foi fuçar nisso, tb tô precisando pra cobrar meus clientes.
Vlw por compartilhar Theotokos

kapiaba, pelo que entendi o problema dele não é gerar o QRCODE e sim saber o conteúdo que deve ter no QRCODE. 
Pesquisei a respeito e não encontrei nada, acredito que o ideal é fazer contato com algum banco pra conseguir essa informação.

Boa tarde pessoal,
Estou compartindo esta Função que ficou muito legal no meu sistema. No caso de tele entrega, é muito útil para saber na hora onde será entregue o pedido.
Uma vez inseridos os dados de forma correta, ela busca no Maps, mostrando a localização e foto da casa do cliente selecionado.
Não é de minha autoria, só modifiquei para minha necessidade.
.
////////////////////////////////////////////////////////////////////////////////////////// // Procura endereco e mostra no Maps ///////////////////////////////////////////////////////////////////////////////////////// Function Mapa(Endereco, Numero, Bairro, Cidade, UF) LOCAL msearch := Alltrim(Upper(Endereco)) + "," +; Alltrim(Upper(Numero)) + " " +; Alltrim(Upper(Bairro)) + " " +; Alltrim(Upper(Cidade)) + " " +; Alltrim(Upper(UF)) If Empty(Endereco) .Or. Empty(Cidade) MsgInfo('Nao e possivel fazer a busca' + CRLF + 'sem endereco ou faltando dados', 'Atencao') Return Endif WebEXE3("https://www.google.com.br/maps/place/" + MSEARCH) //CARREGA A PAGINA USANDO O CHROME Return *---------------------------------------------------- Function WebExe3(cLink) // visualiza e navega na pagina *---------------------------------------------------- default cLink:="http://www.google.com" clink:=GetEnv( "ComSpec" )+" /C START "+STRTRAN(cLink," ","+") WAITRUN(cLink, 0 ) Return

abrir gaventa impr. nao fiscal: bematech oPrn:Command( "27, 118, 140" ) abrir gaventa impr. fiscal: bematech xDll := LoadLibrary("bemafi32.dll") DLL32 FUNCTION BmAbreGav ( ) AS LONG PASCAL ; FROM "Bematech_FI_AcionaGaveta" LIB xDll
 

Eu utilizo a tDosPrn pra isso
        No meu caso aqui o conteúdo do arquivo Gaveta.txt ->  CHR(27) + "i"      mas existem outros modelos p. exemplo ->   CHR(27) + "p" ai tem q. ver o modelo da sua


         cFile := oPub:wPorta
         oPrn  := MaTDosPrn():New( cFile )
         oPrn:StartPage()
         cComandoGaveta := AllTrim(MemoRead("C:\MARCA\GAVETA.TXT"))
         oPrn:Say(00,00, &(cComandoGaveta) )
         oPrn:END(1)

Já tive problema parecido.
DbCommit()
DbUnLock()
DbSkip(0)   --> Acontecia as vezes do registro não ser atualizado... Isso serve como um refresh na tabela.
Resolveu!