Jmsilva

Bom dia a todos.
Pessoal criei um vídeo onde demonstro algumas funcionalidades da Api rodando em Fivewin.
Deus Abençoe a todos, uma ótima semana.
 
Link:
https://bit.ly/3PCCDMJ 
 

htmp := Hash()
htmp["001","A"] = 4
htmp["003","A"] = 21
htmp["004","A"] = 14
htmp["002"] = hClone(htmp["003"])
htmp["003"] = hClone(htmp["004"])
// se precisar deletar a 004 considere a linha abaixo
hDel(htmp, '004')
 
 
* Sinceramente estou achando um pouco estranho essa sua necessidade, eu uso Hash a anos e nunca precisei fazer algo assim, acredito que você esteja usando Hash com o pensamento voltado a array.

JmSilva muito obrigado, com a sua dica aí consegui resolver o meu problema.

Tarde: Gentileza Reportar diretamente o Enrico Maria Giordano aqui:
https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&sid=246a5d831c74bb3dfd6b44c29fb55526&start=60
Como não uso a SQLRDD, não saberia reportar o erro e em qual momento, ok? Reporte em Inglês ou Espanhol que ele entende, se bem que ele é fluente em Inglês e Italiano.
Obg. abs.
Regards, saludos.

Olá a Todos

Depois da ajuda do amigo   *Jmsilva*     Muito obrigado mesmo pela dedicação.


O problema é que tem espaços no campo de 'Nao Inf.'    tem que ser   'NaoInf.'  ou seja o espaço em branco entre as palavras não pode
cMsg := IF(!EMPTY(v_Documento),v_Documento,'Nao Inf.')

Bom dia pessoal.
Pra quem não viu ainda, mas todos os fontes do xharbour.com está liberado Open source.
Inclusive o SQLRDD
https://github.com/ronpinkas/xharbour/tree/main/xHarbourBuilder/xHarbour-SQLRDD
 

Faça uma busca aqui:
 
http://www.pctoledo.com.br/forum/viewtopic.php?f=57&t=27034&p=160878&hilit=POSTGRESQL#p160878
 
Regards, saludos.

Olá, agora entendi.
select a.Date, ( SELECT COUNT(*)  from process AS p WHERE a.Date >= p.dtcalc1 and If(  TIMESTAMPDIFF(DAY, p.dtcalc1, p.dtcalc2) = 0 , a.Date <= p.dtcalc2, a.Date < p.dtcalc2 ) GROUP BY a.Date)  AS ocorrencia 
from (
    select curdate() - INTERVAL (a.a + (10 * b.a) + (100 * c.a) + (1000 * d.a) ) DAY as Date
    from (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as a
    cross join (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as b
    cross join (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as c
    cross join (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as d
) a
where a.Date between '2023-06-01' and '2023-06-07' GROUP BY a.Date ORDER BY a.Date 
Essa query vai retorna algo assim
2023-06-01 - NULL
2023-06-02 - NULL
2023-06-03 - 1
2023-06-04 - 3
2023-06-05 - 1
2023-06-06 - 2
2023-06-07 - NULL
Att.,
Oliveiros Junior
 
 

Olá,
Recentemente integramos a API de loja virtual da Tray com nosso software e alguns aspectos foram bem nebulosos, por isto quero dividir com vocês uma dica super útil para casos como este, onde é necessário realizar um HTTP PUT usando lib cUrl.
Segue o exemplo de código que demonstra o trecho mais importante: 
FUNCTION Tray_UpdateEstoque( sku_id, nEstoque, access_token ) LOCAL cEndPoint := 'https://666.commercesuite.com.br/web_api/products/'+alltrim(str(sku_id))+'?access_token='+access_token LOCAL cData := '{"Product": {"stock": '+ALLTRIM(STR(nEstoque))+'}}' LOCAL curl LOCAL nRet LOCAL Buff LOCAL Resp IF !empty( curl := curl_easy_init() ) curl_easy_setopt( curl, HB_CURLOPT_HTTPHEADER, {"Content-Type:application/json"} ) curl_easy_setopt( curl, HB_CURLOPT_CUSTOMREQUEST, 'PUT') curl_easy_setopt( curl, HB_CURLOPT_URL, cEndPoint ) curl_easy_setopt( curl, HB_CURLOPT_POSTFIELDS, cData ) curl_easy_setopt( curl, HB_CURLOPT_FOLLOWLOCATION, 1) curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_SETUP ) curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYPEER, 0 ) curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYHOST, 0 ) nRet := curl_easy_perform( curl ) Buff := curl_easy_dl_buff_get( curl ) curl_easy_cleanup( curl ) IF (nRet == HB_CURLE_OK) hb_jsonDecode( Buff, @Resp ) ENDIF ELSE RETURN .F. ENDIF IF !HB_ISHASH(Resp) ? Buff // Exibe na tela a mensagem de erro obtida RETURN .F. ENDIF * Retorno em caso de sucesso (status code 200 ou 201) nRet := Resp['code'] RETURN (nRet == 200 .OR. nRet == 201) Em nosso caso utilizamos o compilador Harbour, mas, isto deve servir como base para você caso use outros compiladores.
Espero ter ajudado.

Boa tarde
Eu uso locaweb e estou muito satisfeito
vc pega um servidor linux 
 

Amiguinhos,
Veja:
https://www.db4free.net/
https://remotemysql.com/
https://www.freemysqlhosting.net/
 

Obrigado Jovem ! 
Esta opção oculta o objeto, havia feito e não em lembrava, segue abaixo:
-Só funciona para classe tget:
oGet:lDisColors := .F.          //é show tget- mudar cor get when=f
oGet:nClrTextDis := CLR_HBLUE   //é show tget - mudar cor get when=f
Na classe TMultiGet não consegui com when = .f., dá para usar readonly sem when = .f., desta forma é possível ajustar a cor
Resolvido !

Assim:
oExpBar := TExplorerBar():New(30,10,138,298,odigmov)
opan[1] := oExpBar:AddPanel("Movimento","\SCF\Bitmap\People.Bmp")
Define Font oFnt Name "Courier New" Size 0,-15
oPan[1]:SetFont(oFnt)

xbrwPrincipal := TXBrowse():new( oDlg )
 
WITH OBJECT xBrwPrincipal
    :lSeekWild  := .T. 
    :oSeek := oSay  //Objeto say para que o conteúdo da pesquisa seja exibido
              
     :lIncrFilter := .T. // Liga o Filtro incremental
     :AutoFit()
    :SetRDD( , :lSeekWild )
    :createFromCode()
END

Live Unimake.DFe com xHarbour na prática está rolando, bora participar? Clique no link abaixo e participe!!
Lembrando que hoje vamos aprender a montar o objeto do XML a partir de um XML já existente no HD ou Banco de dados. (Deserialização - Criando o objeto a partir do XML já existente).
Muito legal para quem vai utilizar B2B, importação de notas do fornecedor ou para quem já tem rotina de geração do XML da NFe e deseja somente enviá-lo a SEFAZ.
https://www.youtube.com/watch?v=PZmZq0pAZxI
Complementando as informações do Vailton.
Continuação com mais uma live 27/07/2022.
 
Live Unimake.DFe com xHarbour na prática está rolando, bora participar? Clique no link abaixo e participe!!
Lembrando que hoje vamos aprender a montar o objeto do XML a partir de um XML já existente no HD ou Banco de dados. (Deserialização - Criando o objeto a partir do XML já existente).
Muito legal para quem vai utilizar B2B, importação de notas do fornecedor ou para quem já tem rotina de geração do XML da NFe e deseja somente enviá-lo a SEFAZ.
https://www.youtube.com/watch?v=PZmZq0pAZxI

Incrivelmente, Infelizmente e não sei o motivo que o Sr. Ladinilson disse que eu preciso de ajuda em cada trabalho que desenvolvo. Tenho TOTAL certeza que o mesmo não é Mediador e também não é Administrador desse Fórum. Acredito que nos 32 anos de Desenvolvimento que tenho consegui aprender alguma coisa, mas mesmo assim peço Sinceras Desculpas por perguntas por mim feitas assim como AGRADEÇO a toda e qualquer AJUDA que os Membros Coerentes me Proporcionaram. 
   Saliento que esse Ambiente não foi criado para se medir o Conhecimento de Participantes e sim para Ajuda e Troca de Idéias. 
   Vou CONTINUAR Postando minhas dúvidas, bem como ajudando quando Consigo
   Mais uma vez MUITO OBRIGADO a Todos que já me ajudaram como exemplo o KAPIABA, GILMER e TODOS os OUTROS. Ah se alguém precisar de ajuda em qualquer Sistema que seja, principalmente os Voltados para ENGENHARIA posso ajudar com o MAIOR PRAZER sem fazer qualquer tipo de COMENTÁRIO ABSURDO!!!

Boa Noite a Todos. Como sou Chato e Insistente achei os Certificados para teste e os coloquei no anexo. São 4 Certificados e a senha para a Instalação é 1234.
test-certs.zip

Perfeito Jmsilva nada como falar com o mestre
Obrigado
 

Te explico amigo. A partir do momento que vc passar a usar as DLL's, não será mais necessário vc ativar o monitor, pq ficará por sua conta enviar os comandos para a dll, então em tempo de execução ou dinamicamente vc invoca/carrega/load na dll e envia os comandos conforme a sua necessidade, como se estivesse enviando para o monitor e ela fizesse parte do seu sistema. 
Os exemplos acima da dll sat, o Rafael Dias (Acbr) criou um classe em Harbour/Xharbour para facilitar o uso da dll, eu deixei uns exemplos acima de envio de comandos e ele fez um exemplo de geração e envio de uma venda sat,  como se estivesse gerando um arquivo INI para o monitor.
Se quiser mais informações me chame no skype: fnlinf
 

Minha humilde opinião, é que não se deve precisar nem de um nem do outro. Mas entendo que a experiência vem com o tempo. Legal mesmo, é abrir um programa, seja de quem seja, e só de "bater" os olhos no programa, dizer para si próprio: PUTZ, tá louco? E depois, tentar mostrar ao programador iniciante como deveria ser a melhor lógica. Gostoso, é abrir o ERROR.LOG, e ir na linha que o programa "quebrou", e dizer: PQP, como eu sou burro. kkkkkkkkkkk, eu faço isso a torto e a direito, mesmo porquê, não sou perfeito. Sou bom, mas não sou nem um VAGNER WIRTS, kkkkkkkk. Pelo que eu vi no forum inter, em breve, o fivewin terá um DEBUGADOR próprio, mas mesmo que tenha, prefiro confiar no meu taco. Mas, para os novos, tudo é válido e um aprendizado. Somo eternos aprendizes. Forte abraço a todos. Obg. abs.

Oremos... Em todo caso, tens as dicas que dei... É possível fazer um módulo bem mais enxuto. Use sempre o SYSREFRESH() no WHILEs... abs.

Que legal essas funções, eu não as conhecia. Obrigado por compartilhar

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

Ano passado foi levantado a questão do vscode aqui, vale muito a pena, ainda mais se usado em conjunto com o GIT para versionamento dos fontes 
 
Dê uma olhada no link que tem tudo que vc precisa saber pra usar vscode com xharbour
 
http://fivewin.com.br/index.php?/topic/28389-vs-code/&tab=comments#comment-287654

Olá Giovany,
Sim, entendo... faz sentido. 
Mas pense em outro cenário: em um projeto eu tenho um arquivo .ZIP (que eu mudei a extensão pra outra qqer) com vários .HRBs dentro dele e no carregamento eu descompacto o seu conteudo numa pasta temporária, carrego os .HRBs que são pertinentes aquela instalação em específico pra memória e logo depois disto eu apago toda a pasta gerada no processo. Daê pra frente o software segue com sua execução tradicional... tenho um script que compila todos os .PRGs, geram o .ZIP e até faz o upload pra um FTP. 
São mais 2 centavos à este assunto, espero ter ajudado.