CIACPD

Olá João, Tenta a rotina abaixo
// -------------------------------------------------------------------------- // function atualiza_hora() local xdia_atu , xhora_atu try oHttp := CreateObject( "winhttp.winhttprequest.5.1" ) oHttp:Open( "GET", "http://24timezones.com/pt_horamundial/brasilia_hora_local.php" , .F. ) oHttp:Send() cHtml:= oHttp:ResponseText() catch return .t. end cHora := alltrim(StrExtract(cHtml, '<span id="currentTime">', '</span>' )) cHora1 := TRANSF( cHora, "99:99:99" ) x_am_pm := alltrim( substr( cHora , 10 , 2 ) ) ntamtot := len( cHora ) nposmesi := rat( ',' , cHora ) + 1 nposmesf := (ntamtot - nposmesi) - 4 nposanoi := ntamtot - 3 nposdiaf := rat( ',' , cHora ) -1 nposdiai := nposdiaf - 1 nposdiaf := nposdiaf - nposdiai dia := alltrim( substr( cHora , nposdiai , 2 ) ) mes := alltrim( substr( cHora , nposmesi , nposmesf ) ) ano := alltrim( substr( cHora , nposanoi , 4 ) ) if x_am_pm = 'PM' .AND. ( val(substr( cHora1 , 1 , 2 )) < 12 ) xhora1 := zeracod(str( val(substr( cHora1 , 1 , 2 )) + 12 ,2 )) cHora1 := xhora1 + substr( cHora1 , 3 ) endif data_atual_site:= dia+'/'+qmesnum(mes)+'/'+ano /* ? 'cHora' , cHora ,; 'cHora1' , cHora1 ,; 'Dia' , dia ,; 'Mes' , mes ,; 'Ano' , ano ,; 'x_am_pm' , x_am_pm,; 'data_atual_site' , data_atual_site,; 'DataAtual' , date(),; 'HoraAtual' , time() */ xdia_atu := date() xhora_atu := time() if data_atual_site # dtoc( xdia_atu ) //xdate := "Date " + data_atual_site //try // winexec( xdate ) //catch //end msginfo("Favor corrigir a data do seu Equipamento." + CRLF + CRLF +; "Data na Internet: " + data_atual_site + CRLF +; "Data do Equipamento: " + dtoc( xdia_atu ) , "CIACPD Informa." ) endif if substr( cHora1 , 1 , 4 ) # substr( xhora_atu , 1 , 4 ) //try // winexec( cHora1 ) //catch //end msginfo("Favor corrigir a hora do seu Equipamento." + CRLF + CRLF +; "Hora na Internet: " + cHora1 + CRLF +; "Hora do Equipamento: " + xhora_atu , "CIACPD Informa." ) endif RETURN NIL // -------------------------------------------------------------------------- // FUNCTION StrExtract(cText,cAfter,cBefore)    LOCAL cRet := SUBSTR(cText,AT(cAfter,cText) + LEN(cAfter))    LOCAL n    IF (n := AT(cBefore,cRet)) > 0       cRet := LEFT(cRet,n - 1)    ENDIF*/ RETURN (cRet) // -------------------------------------------------------------------------- // Function ZeraCod(Cod) Return Padl(AllTrim(Cod),Len(cod),[0]) //----------------------------------------------------------------------------// Function qmesnum(pmes)    Local nmesnum    if len(alltrim(pmes)) < 1       pmes:='Janeiro'    endif    Private Tmes:={"JANEIRO","FEVEREIRO","MARÇO","ABRIL","MAIO","JUNHO","JULHO","AGOSTO","SETEMBRO","OUTUBRO","NOVEMBRO","DEZEMBRO"}    nmesnum := ascan( tmes, Alltrim(upper(pmes)) ) return zeracod(str(nmesnum,2)) //----------------------------------------------------------------------------//  Daniel Segura

Seria mais ou menos assim:
cadastro de operações=> "Pagamento de Carreto %Nome" // "Despesa com Alimentação %Nome"
"Pagamento de Carreto Sr. João " // "Despesa com Alimentação Supermercado XYZ"
nos lançamentos ao informar a operação o programa passaria a trocar (comando strtran) %Nome com o nome do fornecedor do serviço.
eu uso desta forma e fica mais fácil de ler os relatórios.
Daniel Segura
ciacpd@hotmail.com
daniel_segura@ig.com.br

Uma forma é Criar um 'HISTORICO DE RESPOSTA', e o usuario apenas completar, conforme o CIACPD indicou, porem não impedirá que o Maldito usuario coloque xxxyyyxxxxx como complemento, porem nesse caso cabe a empresa que contratou esse usuario repreender ele. e não o seu sistema ser penalizado.
Agora para descontrair
Todo profissional tem
MEDICO Tem PACIENTE, ADVOGADO Tem CLIENTE, PREFEITURAS Tem CONTRIBUINTE, CIDADES COM BELEZAS NATURAIS tem TURISTAS
Já
PROGRAMADOR E TRAFICANTE tem USUARIO.
 
 
 
 
 
 
 

Eu simplesmente, fiz o seguinte:
Se não funcionar um ou outro provedor, mesmo que seja o do cliente, tipo: LOCAWEB(que funciona de boa) mas o técnico do cliente trocou para a Micro$oft por exemplo, eu criei um email de uso comum, que só eu tenho a senha, no www.bol.com.br e e coloquei no <Configurador de emails> todos os dados deste email, basta o uçuário clicar em <Incluir> e pronto, poblema resolvido, ele vai ver, que com o www,bol.com.br funciona ou com o www.uol.com. também, e cria o dele em um destes provedores, pode usar o www.ig.com.br? pode mas tem limite de envio se corporativo(eu aviso), então é melhor usar o do provedor pago dele(desde que permita o envio via programas de terceiros) ou então, que use o do www.terra.com.br que não tem limitações(mas é pago) e por ai vai, o importante, é que o uçuário, não fique sem  enviar os emails dele... Imagine, final de ano, natal, o uçuário tendo que enviar 5.000 emails o www.gmail.com, tem limite de 50 emails por dia... ai, phodeu... Mas, ele tem o do www.bol.com.br e ai, não tem limite de pohhha nenhuma, basta trocar o provedor e mandar bala, entende?  abs.

https://social.technet.microsoft.com/wiki/contents/articles/2458.fechar-um-processo-local-e-remoto-pelo-taskkill-pt-br.aspx

Edu, é para isto https://www.youtube.com/watch?v=GSYawN4PUpM ou quase isto.
Daniel Segura

A dica do nosso amigo Kleyber, é utilizada para não tornar o processamento lerdo.
Daniel Segura

Muito abrigado João,
Estou usando o ssay e resolveu o meu problema que era a cor de fundo quando o say estiver sobre um folder.
Daniel Segura
ciacpd@hotmail.com
daniel_segura@ig.com.br
(11) 9-7102-0895 VIVO

Carissimo sem email, fica dificil te enviar, pegue no meu 4shared, please.
http://www.4shared.com/zip/frhN_QWqce/DSAYSSAY.html
Necessita uma conta em: www.4shared.com
abs.

João , a pergunta não é para mim, mas...
FiveWin Version: FWHX 14.07
Daniel Segura

Para trabalhar em rede é precisa do server ?
Daniel

João, seria isto?
>> cFilePath << pegar o diretorio local da aplicação cDirLocal:=cFilePath( GetModuleFileName( GetInstance() ) ) >> cFileName << verificar se existe o arquivo If empty(cFileName( cDirDoMonitorBematech+"BematechMonitor.exe" )) MsgStop( "Monitor da Bematech nao encontrado em "+cDirDoMonitorBematech ) Return .T. EndIf >> cFileNoExt << retirar a extensão cFileName:=cFileNoExt(cFile) mesma coisa que: cFileName:=substr(cFile,1,len(cfile)-4) as outras nunca usei Daniel Segura

Senhores, meu instalador feito com innosetup só reinstala o programa no windows 10 se excluir o atalho do desktop primeiro, por acaso alguém já teve ou está tendo o mesmo problema, e saberia de alguma dica para me ajudar.
Obrigado.
Daniel Segura

Teste aí.
// aItens_todos == >> contém todos os ítens // aVal[1] == >> aNotas[i,1] ==>> as duas posições devem ser iguais aItens := {} ASCAN( aItens_todos, { | aVal | IIF( aVal[1] == aNotas[i,1], AADD( aItens,{ aVal[1],aVal[2],aVal[3],...,aVal[n] } ),) } ) Daniel Segura

Caro Everton,
Crie um instalador para o seu programa e estará resolvido o seu problema.
No Inno Setup voce ja deixa pronto para executar e configurar o MySql, abaixo está como eu faço.
[Run] ;PROGRAMAS A SEREM EXECUTADOS APÓS A INSTALAÇÃO (backup, winzip, etc.) Filename: C:\CiaLoja\mysql\bin\mysqld-nt.exe; Parameters: --install; WorkingDir: C:\CiaLoja\mysql\bin; StatusMsg: Instalando MySQL Service; Description: Instalando MySQL Service; Flags: runhidden ; Components: base Filename: net.exe; Parameters: start mysql; StatusMsg: Iniciando Serviço MySQL; Description: Iniciando Serviço MySQL. Por favor aguarde.; Flags: runhidden ; Components: base Filename: C:\CiaLoja\mysql\config.bat; StatusMsg: Iniciando Serviço MySQL; Description: Configurando acesso; Flags: runhidden ; Components: base Filename: c:\CiaLoja\CiaLoja.EXE; Description: Executar o Sistema CiaLoja 2.0; Flags: nowait postinstall skipifsilent; Tasks: Qualquer coisa baixe inno setup e vai ver que é simples criar um instalador Daniel Segura

Vamos torcer para o Márcio está errado. kkkkkkkkkkkkkkkkkkk
abs.

a

Precisa mudar bem pouca coisa no código da classe em mrboleto.prg .
Onde aparece
Method Draw_Zebra( ... ) mudar para
Method Draw_Zebra()
e na linha 1606 hb_zebra_draw( ::hZebra_______, {| x, y, w, z ... muda para
hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, 30, 10, 0.4, 40 )

que na verdade, muda os ... pelos 4 parâmetros finais 30, 10, 0.4 , 40 que são:
posição horizontal do início da barra,
posição vertical do início da barra,
espessura e espaçamento das barras,
altura das barras.
Então, modificando os 4 parâmetros finais vc modifica as barras.

Tente:


common.lib

SET HB_NO_DV_MEMCPY=1

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=13571

Valeu João,
faltava a setar a variável criei um .bat para compilar e foi de primeira.
Muito Obrigado. Abaixo uma cópia do arquivo .bat que fiz para compilar.
SET PATH=c:\bcc582\bin;%path% SET HB_NO_VM_ALL=1 SET HB_NO_FM_DL_ALLOC=1 SET HB_NO_DV_MEMCPY=1 CALL make_bc clean CALL make_bc all CALL make_bc contrib Daniel Segura

conteúdo do CdoSys.ch
#ifndef _CDOSYS_CH #define _CDOSYS_CH #define cdoSMTPServer "http://schemas.microsoft.com/cdo/configuration/smtpserver" #define cdoSMTPServerPort "http://schemas.microsoft.com/cdo/configuration/smtpserverport" #define cdoSendUsing "http://schemas.microsoft.com/cdo/configuration/sendusing" #define cdoSMTPPickupFolder "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory" #define cdoSMTPAuthenticate "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" #define cdoSendUserName "http://schemas.microsoft.com/cdo/configuration/sendusername" #define cdoSendPassword "http://schemas.microsoft.com/cdo/configuration/sendpassword" #define cdoSMTPUseSSL "http://schemas.microsoft.com/cdo/configuration/smtpusessl" #define cdoSMTPConnectionTimeout "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" #endif Daniel Segura