Theotokos

Feliz Natal a todos!!! Prospero 2020 e sucesso sempre!!!
A todos um natal cheio das bençãos de Deus, que ele possa nascer em nossos corações!
Que a Virgem Maria nos ensine a ser uma eterna manjedoura...

Bom dia a todos, alguém aí trabalha com Biometria para as Digitais. Se trabalha, tem como me informar a marca do eqpto.e tb me informar se esse eqpto tem alguma DLL que funciona bem no xHarbour. 
 

Tem o chilkat https://www.chilkatsoft.com/ que tem um custo de +- 2500 reais
Eu tive que adquirir ele porque tenho sistema de cartórios e a demanda de assinaturas digitais em um pequeno cartório passa de 200 documentos hoje em dia.
Este componente tem muitas outras funções uteis, e estou usando somente a assinatura de documentos.
Se quiser testar o DEMO dele eu passo a classe que faz as assinaturas.

praticamente do mesmo jeito.... basta colocar comando ACTION (sua função) BITMAP "sua Bitmap para botao"

Pessoal, é meu trabalho vender SMS, então peço a gentileza de que na hora de fazerem os cadastros e recargas, falarem comigo antes..
Por favor!
 
Att. 
Everton
 

Bom dia meus amigos...  Com uma ajuda do kapiaba e Vagner Nunes, que me deu um baita norte, concluí a integração com a DisparoPro..  To com os códigos ainda muito sujos.. vou dar uma limpada e comentar para deixar mais inteligível... Mas tá mandando SMS e pegando os retornos que é uma belezura. Até pensei em fazer uma LIB para ajudar quem não tem o xHb ou Hb atualizados. Nunca fiz isso, outro aprendizado!!  Depois posto umas imagens!..  Se alguém quiser os fontes, me passa o e-mail ( evertonlb@gmail.com )  que eu envio hj a noite!
Att.
Everton  
 
 
 
 

To mexendo.. pretendo fazer umas funções facilitando o envio e retorno dos SMS.. assim que estiver pronto eu libero os PRG´s.
 

Vixi.... Desculpa ai!!! rsrsrsrs.... nem vi que escrevi errado... 

Function ViaCep() Local oOle,cXml,cCep := "01302001" Local cLink := "http://viacep.com.br/ws/<<CEP>>/xml/" Local oXml,oTag,cLog,cComple,cBairro,cCidade,cUf cLink := StrTran(cLink,"<<CEP>>",cCep) BEGIN SEQUENCE Try oOle := CreateObject("Msxml2.XMLHTTP.3.0") oOle:Open("GET",cLink,.F.) oOle:Send() cXml := oOle:ResponseBody oOle := nil Catch BREAK End //verifica se não encontrou o cep atraves tag "erro" oXml := TXmlDocument():New(cXml) oTag := oXml:findFirst("erro") If !Empty(oTag) .and. oTag:cData == "true" MsgStop("CEP não encontrado !") BREAK Endif oTag := oXml:findFirst("logradouro") cLog := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("complemento") cComple := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("bairro") cBairro := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("localidade") cCidade := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("uf") cUf := IIF(Empty(oTag),'',oTag:cData) XBrowse({cLog,cComple,cBairro,cCidade,cUf}) END SEQUENCE Return {cLog,cComple,cBairro,cCidade,cUf} Pesquisa de CEP OnLine!

Se alguém mais precisar...

Amiguinhos,
 
Maudruidas, arquivos .FPT são malas acessórias de um .DBF que tenha pelo menos um campo MEMO.
Para obter conteúdos dentro destes arquivos você precisará olhar na estrutura do DBF, ver qual o nome do campo e carregá-lo em uma variável.
M->cCampoMEMO := tabela->CAMPOMEMO
A variável M->cCampoMEMO armazenará o conteúdo obtido do CAMPOMEMO e então você pode salvar em um arquivo .TXT
 

Ai povo.. a coisa qdo aperta a gente tem que se virar né?? Agora além de programar durante as noites e meia madrugada, estou trabalhando numa Telecom.. 
Temos uma solução bem legal pra envio de SMS, integra via API, e a ferramenta de envio conta com um CRM, qdo uma mensagem é enviada essa info vai pra uma time line, se quiser responder de dentro do "DisparoPro", pode ser feito com um box.. o lance vira um Chat praticamente. rsrsrsrsrsr  Não há custo algum de integração, claro.. a única coisa que vendemos são os SMS mesmo...  
se alguém tem algum interesse ou dúvida, (49)99984-3663 WhatsApp
 

Vlw @rochinha!!! Vou verificar isto.

bom dia!!! Esse  net use * \\IPDAVPN\NOMEDOCOMPARTILHAMENTO  vc dentro do sistema? não entendi....
 

Tentou como adm?
 

Se for só gerar os caracteres como vc pediu no inicio é bem simples, segue aí um código q vc pode adaptar ao que precisa...
 
Function u_Teste() MsgStop(GeraAutenticacao(15)) Return Function GeraAutenticacao(nTam) Local cAut := "" Local nI Local nMax Static aCar If nTam == nil nTam := 10 EndIf If aCar == NIL aCar := {} For nI := 1 to 9 aadd(aCar,Str(nI,1)) Next For nI := 65 to 90 aadd(aCar,Chr(nI)) Next EndIf nMax := Len(aCar) For nI := 1 to nTam cAut+= aCar[HB_RANDOM(nMax)] Next Return cAut  

Nova versão, agora funcinoando com gmail.com, yahoo.com, bol.com.br, uol.com.br, terra.com.br, etc.
 
http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=16294&p=130183#p130183
 
Abs.
 

Nova versão, agora funcionando com gmail.com, yahoo.com, bol.com.br, uol.com.br, terra.com.br, etc.

Abs.
http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=16294
 

Fladimir, não seria melhor fazer um DEMO o postar para download, assim todos pode ver. Abs.

Segue a função correlata pra usar em xHarbour
HB_Base64( cString, LEN( cString ) )
 
Mas precisar inserir o código em C abaixo pra compilar junto pelo q vi
HB_FUNC( HB_BASE64 ) { char * szItem = hb_parc( 1 ); int nLen = hb_parni( 2 ); char * szRet = szItem ? base64enc( szItem, nLen ) : NULL;

Sexta-feira, se possível, eu vejo porquê não está indo com gmail. Não lembro o que tem que mudar na rotina.

Pode tb se quiser, usar um EXE q eu criei em outra linguagem da seguinte forma
Primeiro monta um TXT como o exemplo abaixo:
cLinha := "" //-- Bloco de Configuração da Conta do Email cLinha += "|EMAILCONF" cLinha += "|"+ ALLTRIM(cServerIP) // smtp-mail.outlook.com|" cLinha += "|"+ ALLTRIM(cUser) // contadoemail@hotmail.com|" cLinha += "|"+ hb_Base64encode(cPass) // senha da conta cLinha += "|"+ allstr(vPortSMTP) // Porta Exemplo Gmail pode ser 587 cLinha += "|2" // 1= Default 2= Secured TLS 3= SSL (Obs: Para Hotmail usar 2) cLinha += "|"+CRLF // Final da linha/bloco //-- Bloco do Destinatario e da Mensagem cLinha += "|MESSAGE" cLinha += "|"+ cFrom // Quem envia exemplo: Zezinho da Silva <zezinho@taltal.com.br> cLinha += "|"+ cQuem // Destinatario exemplo: fulano@taltal.com.br cLinha += "|"+ cSubject // Assunto exemplo: Detalhes do Movimento dos Caixas cLinha += "|"+ cMsg // Mensagem exemplo: E-mail enviado pelo sistema cLinha += "|"+ CRLF // Final da linha/bloco //-- Bloco de Anexos... caso tenha IF len(aAnexos)>0 FOR nI:=1 to len(aAnexos) cLinha += "|ATTACH" cLinha += "|"+ aAnexos[nI] // Caminho do anexo exemplo: C:\Documentos\Detalhe_do_Movimento_dos_Caixas.PDF cLinha += "|"+ CRLF NEXT ENDIF cLinha += "|FIM" +CRLF Memowrit("email_100.txt", cLinha) Exemplo de como ficaria o código acima (arquivo email_100.txt)
|EMAILCONF|smtp-mail.outlook.com|contadoemail@hotmail.com|Y2FsdW5hdHlzdXBvcnRl|587|2| |MESSAGE|Zezinho da Silva <zezinho@taltal.com.br>|fulano@taltal.com.br|Detalhes do movimento dos caixas|E-mail enviado pelo sistema | |ATTACH|D:\Sistema\PDFs\01021876_DETALHES_DO_MOVIMENTO_DOS_CAIXAS_210419103806.PDF| |FIM �  
Depois chamo o exe wEnvMail (ambos ficam na mesma pasta, ou seja, o wEnvEmail procura o email_100.txt q estiver na pasta
FErase(CurDirSys()+'emailauto.log') // Esse arquivo é criado pelo wEnvMail caso ocorra algum problema MyRunProc( 'wenvmail', .F.) if file("emailauto.log") // Se não enviar por algum motivo vai ter esse arquivo na pasta ai retorna FALSO no envio lRet := .F. endif RETURN lRet Função MyRunProc (usada pra executar programas externos, tipo ShellExecute
******************************************************************************** function myRunProc( cExecute, lWait, bBlock, nTime, nOccurs ) ******************************************************************************** local hProcess, nResult, nCtd := 0, lRet DEFAULT lWait TO .T. DEFAULT nTime TO 1 DEFAULT nOccurs TO 0 hProcess := hb_processOpen( cExecute ) if hProcess != F_ERROR while ( nResult := hb_processValue( hProcess, .F. ) ) == -1 if !lWait EXIT endif nCtd += 1 if hb_IsBlock( bBlock ) lRet := eval( bBlock, nCtd ) if hb_IsLogical( lRet ) .and. !lRet hb_processClose( hProcess, .T. ) EXIT endif endif if nTime > 0 hb_idleSleep( nTime ) endif if nCtd = nOccurs hb_processClose( hProcess, .T. ) EXIT endif END endif return nResult  
Resumindo, cria o TXT e chama o EXE
Esse EXE esta nesse link q fica disponível alguns dias no We Transfer.
 

Mui grato a todos os colegas....
...
Consegui resolver de uma maneira simples e lusitana:

Na montagem da tabela com os dados para impressão criei 6 campos
(CORCOL01, CORCOL02, CORCOL03, CORCOL04, CORCOL05, CORCOL06), onde
1=cor azul ($FF0000), 2=cor vermelha ($0000FF) e 3=cor preta ($000000).
Na aba "Código->Linguagem: PascalScript:
 
begin if (<DBFFR3."CORCOL01"> = 1) then LinhaDetalhe072.Font.Color := $FF0000; if (<DBFFR3."CORCOL01"> = 2) then LinhaDetalhe072.Font.Color := $0000FF; if (<DBFFR3."CORCOL01"> = 3) then LinhaDetalhe072.Font.Color := $000000; if (<DBFFR3."CORCOL02"> = 3) then LinhaDetalhe082.Font.Color := $000000; if (<DBFFR3."CORCOL02"> = 2) then LinhaDetalhe082.Font.Color := $0000FF; if (<DBFFR3."CORCOL02"> = 1) then LinhaDetalhe082.Font.Color := $FF0000; if (<DBFFR3."CORCOL03"> = 1) then LinhaDetalhe092.Font.Color := $FF0000; if (<DBFFR3."CORCOL03"> = 2) then LinhaDetalhe092.Font.Color := $0000FF; if (<DBFFR3."CORCOL03"> = 3) then LinhaDetalhe092.Font.Color := $000000; if (<DBFFR3."CORCOL04"> = 1) then LinhaDetalhe102.Font.Color := $FF0000; if (<DBFFR3."CORCOL04"> = 2) then LinhaDetalhe102.Font.Color := $0000FF; if (<DBFFR3."CORCOL04"> = 3) then LinhaDetalhe102.Font.Color := $000000; if (<DBFFR3."CORCOL05"> = 1) then LinhaDetalhe112.Font.Color := $FF0000; if (<DBFFR3."CORCOL05"> = 2) then LinhaDetalhe112.Font.Color := $0000FF; if (<DBFFR3."CORCOL05"> = 3) then LinhaDetalhe112.Font.Color := $000000; if (<DBFFR3."CORCOL06"> = 1) then LinhaDetalhe122.Font.Color := $FF0000; if (<DBFFR3."CORCOL06"> = 2) then LinhaDetalhe122.Font.Color := $0000FF; if (<DBFFR3."CORCOL06"> = 3) then LinhaDetalhe122.Font.Color := $000000; end.  

Bindindo, num sei usar ACBR, podrias hacer un ejemplo e disponibilizar para download, ou envia-me no skype, que "bosto" para download no www.pctoledo.com.br  - Com exemplo é mais fácil, né flor de lis? kkkkkkkkkkkkkkkkkkkk

Boa tarde galera. Só pra pra pontuar, o Acbr já disponibilizou uma lib/dll para isso e é dr graça, palavra mágica pra muitos, pois programadores são iguais a motoqueiros, mal tem grana pra consertar a moto, mas pra gasolina e pra cerveja sobraaaaaa aahahahahah.
 
[]s,