fladimir

Se quiser algo q funcione (não posso dizer da q vc tentou se funciona ou não, não testei) mas a API q eu citei alguns posts atrás to usando aki e esta funcionando, imagem, PDF texto tudo blz.

Olá, desculpe não tinha visto que você tinha postado acima. Como você falou é realmente um excelente ferramenta. A implementação é bem fácil. 
Att.,
Oliveiros Junior
 

Desta maneira você só consegue enviar mensagens. A vantagem é que não tem custos. Se precisar de algo mais profissional, ai seria um api pago. 

Eu uso assim
Instale o WhatsZap desktop no computador, conecte usando o qrcode com celular e execute assim
WHATS_APP_MSN("17997121234","Ola, sou eu no Whats","C:\Users\GiovanyVecchi\AppData\Local\WhatsApp\WhatsApp.exe")
#Include "Fivewin.ch" FUNCTION WHATS_APP_MSN(f_cNumeroWhats,f_cMensagem,f_cWhatsAppCaminho) Local lc_oShell, lc_cLink, lc_cFindExe := Space(1000) Local lc_hWndWhats, lc_nSecondsWhats := 0 Local lc_lWhatsPresent := .F. f_cNumeroWhats := AllTrim(f_cNumeroWhats) f_cMensagem := AllTrim(f_cMensagem) f_cWhatsAppCaminho := Alltrim(f_cWhatsAppCaminho) lc_hWndWhats := FindWindow(,"WhatsApp") if hb_IsNil(lc_hWndWhats) lc_lWhatsPresent := .F. Else if lc_hWndWhats == 0 lc_lWhatsPresent := .F. Else lc_lWhatsPresent := .T. BringWindowToTop( lc_hWndWhats ) SysWait(.3) SendMessage(lc_hWndWhats,WM_SETFOCUS,0,0) SysWait(.2) EndIf EndIf If !lc_lWhatsPresent WinExec(chr(34)+f_cWhatsAppCaminho+chr(34)) hb_idleSleep(40) EndIf lc_cLink := chr(34)+f_cWhatsAppCaminho+chr(34)+" https://api.whatsapp.com/send?phone=55"+TXT_CHAR_CLEAN(f_cNumeroWhats,{"(",")","-",".","+"}) lc_oShell := tOleAuto():New( "WScript.Shell" ) lc_oShell:run(lc_cLink,,.T.) hb_idleSleep(5) f_cMensagem := StrTran(f_cMensagem,CRLF,"+{ENTER}") lc_oShell:sendkeys(f_cMensagem) hb_idleSleep(1) lc_oShell:SendKeys("~") hb_idleSleep(1.5) if !lc_lWhatsPresent lc_hWndWhats := FindWindow(,"WhatsApp") if hb_IsNil(lc_hWndWhats) lc_lWhatsPresent := .F. Else if lc_hWndWhats == 0 lc_lWhatsPresent := .F. Else lc_lWhatsPresent := .T. EndIf EndIf EndIf Return lc_lWhatsPresent  

E como fez com o WTS e Windows 10 ou Servers 2012, 2016, 2019? 
 

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;

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.
 

Resolvido, agora não precisa nem mais manifestar...
Graças ao bom amigo Daniel
Segue link

Poderia, mas eu fiz por fora via prompt de comando mapeando.
Vou testar direto o compartilhamento sim mapear pra ver se funciona, pq o q fiz foi o seguinte
Micro A acessando Micro B em outro local (cidade ou onde for)
Criei uma VPN entre esses 2 micros
O micro A com o Aplicativo pra acessar o banco de dados q esta no Micro B eu mapeei a pasta q tem os dados q esta no micro B via Net use
E acessei via ADO, mas poderia ser um acesso direto pq fico tipo uma rede interna entende
O problema é q a velocidade ficou muito lenta, exemplo se eu acesso o micro B via Terminal Services e executo o app direto lá via TS já acessando os dados e operando a aplicação via TS é sem comparação de mais rápido.
O q eu busco é uma forma de otimizar Matriz e filial.
Estava pensando em centralizar os dados das filiais junto num mesmo servidor da Matriz pra acessar de fora, mas somente tenho conseguido resultados satisfatórios via TS q ganha até do LETODB em performance, pelo menos nos meus testes.

Exato, chamar essa rotina ao encerrar a rotina, mas pelo q vi  vc fez isso e não deu certo, então não saberia informar o q poderia ajudar, talvez algum colega saiba.

eSocial são as informações de contratação, demissão, salarios, rendimentos, férias, enfim, tudo que envolve o funcionário o governo quer saber...
É o equivalente ao SPED quanto a produto, entendeu?
A grosso modo é isso, o governo quer saber não só qual valor liquido que o funcionário recebeu mas o que compôs este salario dele, as férias, 13o salario, etc...

É verdade. Hoje a pergunta "em que linguagem você programa?" está quase sem sentido. Eu, por exemplo:
- Para desktop uso Fivewin / xHarbour / Bcc / Workshop / ACBrMonitorPLUS / Inno Setup.
- Para web uso Html / Html5 / Php / CSS / Javascript.
- Para Mobile uso Basic 4 Andriod.
- Como banco de dados uso DBFCDX / MySQL / SQLLite / Firebird (e em breve MariaDB).
- Ainda tem os que não são linguagem programação, mas estruturas para transporte de dados na web, como XML e JSON.
Creio que a maioria dos colegas aqui também conhecem e usam essas e ainda outras linguagens.
Enfim, programador hoje tem que saber, não uma linguagem, mas PROGRAMAR!

Valeu João.

Tem que ter uma conta no:  www.4shared.com
 
https://www.4shared.com/rar/PuzRox--ca/ACBr_VariosDANFSe.html
 
Abs.
 

Fernando Athayde se não me engano tem software específico pra isso.

Como usamos TS, no Servidor, é proibido outro uso q não seja o sistema, ai os terminais q acessam via TS não tem problema pq na verdade a instancia é rodada dentro do servidor q não tem plugins bancários, então mesmo q um determinado terminal tenha, não afeta.
Outra solução seria VMs, fora isto fazer um trabalho junto ao cliente q micro q roda o sistema (exe local sem ser via TS) não pode ter plugin bancário.
É complicado, devido ao fator "cliente/usuário", mas são as formas q vejo.
Alguém sugere outra?

Individual
Para bloco uso á classe hbnfe open source

Valeu Fladimir, estamos no jogo ainda. Risos

Segue como ficaria dentro do q vc passou, não cheguei a testar, mas acredito q esteja ok. (partindo do pressuposto q aSql_c[i,1] esteja previamente alimentada corretamente)
Não sei se vc conhecia o Harbour trabalha com CodeBlocks extendidos, digamos assim, conforme abaixo, para tal precisa ter o RETURN NIL no final
 
AEVAL( aSql_e, { |x| if x[1] == aSql_c[i, 1] Abatimento += x[3] endif RETURN NIL } )  
 

Vc altera, salva e depois roda o comando pra alterar a data do arquivo. função SetFDati()
 
SetFDaTi()
Sets the last change date and time of a file.
Syntax
SetFDaTi( <cFileName> , ; [<dFileDate>], ; [<cFileTime>] ) --> lSuccess Arguments
<cFileName> This is a character string holding the name of the file to set date and time for. It must include path and file extension. If the path is omitted from <cFileName>, the file is searched in the current directory only. <dFileDate> This is the date value to be set. It defaults to the return value of Date(). <cFileTime> This is a time formatted string that defines the new file time. It defaults to Time(). Return
The function returns .T. (true) if the file date and time is set, otherwise .F. (false) is returned.

Via OCR talvez

Se entendi o q esses programas fazem é escanear e transformar em JPG ou PDF depois processar essas imagens via  OCR ou outra tecnologia e ai é trabalhar o resultado, localizando a informação relativa a etiqueta e salvando.
Não tenho nada pronto nesse sentido, seria apenas hipóteses de possíveis formas de se fazer isso.
Dentro deste raciocínio seguem alguns links q achei sobre a questão de converter / ler o conteúdo do q é escaneado, mas tem mais.
http://fivetechsupport.com/forums/viewtopic.php?f=6&t=11233
http://fivetechsupport.com/forums/viewtopic.php?f=3&t=24030&start=0
 

Fladimir muito obrigado pela força, exatamente o que precisava.
 
Abraços

http://imgur.com/UHzNMiS
Obrigado João pela atenção, ficou resolvido conforme expus, mas faltou o código q esta sendo feito, lembrando q o problema não era o código e sim usuario do TS.
 

Deu certo
Era algo com o usuario do TS, criamos outro e ficou Ok.