Ladinilson

Tente dar uma "aliviada" na memória a cada envio com :

HB_GCALL( .T. )
Espero que ajude.

E o Corinthinas e Vasco começa seu ano bem kkkkkk
 

Desculpe a brincadeira mas olhando esses código me lembrei da minha vida antes de conhecer o FastReport, acertar e ajeitar isso era terrível, um castigo que nenhum programador merece kkkk
 

Tenho esse conhecimentro amigo, é que em determinado momento quase TODOS aqui já tiveram algum problema com fonts e é comum na linguagem.
Estou tentando outras alternativas para contornar esse problema.

Obrigado

FUNCTION pSema(Dia,Tipo,Acento) **--------------------------------------** ** Retornar o dia da semana * ** Sintaxe : pSema(arg1,arg,arg3) ** Arg1 = Data/Variavel ** Arg2 = 1=dia simples, 0=dia completo (segunda.segunda-feira) ** Arg3 = 1 remover acentos ** Exemplo : @ 10,10 SAY pSema(date(),1,1) ** Retorno : Terca-Feira **--------------------------------------** a=DOW(dia) dia="" DO CASE CASE a = 1 dia="Domingo" CASE a = 2 dia=IF(Tipo==1,"Segunda","Segunda-Feira") CASE a = 3 dia=IF(Tipo==1,"Terça","Terça-Feira") CASE a = 4 dia=IF(Tipo==1,"Quarta","Quarta-Feira") CASE a = 5 dia=IF(Tipo==1,"Quinta","Quinta-Feira") CASE a = 6 dia=IF(Tipo==1,"Sexta","Sexta-Feira") CASE a = 7 dia="Sabado" ENDCASE IF(Acento==1) dia:=TiraAcento(dia) ENDIF RETURN(dia) Tente por aqui, faça um loop de 1 a 31 para ver as sextas do mês.
Abraços

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.
 

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

Amigo acho desnecessário também, pode-se usar vários .RES como por exemplo uso um para dialogs e o outro para bitmaps, icones, etc.
A única vantagem da DLL, é que se atualizar apenas o código, se atualiza apenas o .EXE e no caso do .RES vem dentro tudo do EXE "inchando" também o mesmo.

Amigo acho desnecessário também, pode-se usar vários .RES como por exemplo uso um para dialogs e o outro para bitmaps, icones, etc.
A única vantagem da DLL, é que se atualizar apenas o código, se atualiza apenas o .EXE e no caso do .RES vem dentro tudo do EXE "inchando" também o mesmo.

Copia da RES a dialog e depois cola na outra RES, a dialog copiada fica como nome tipo #1001, botão direito em cima dela e em "propriedades" renomear a mesma colocando entre parênteses o novo nome, fácil.
 
Atualize o PELLES que já esta na versão 9.00.9

A Restauração do Windows não incluem arquivos externos a somente esta operação é feito no sistema operacional.
Sim é automático em um robozinho colocado para fazer 2 vezes por dia por isso parou por horas o atendimento mas consegui restaurar tudo

Jorge acho que é o Kopi Luwak por isso  seus neurônios são bem tratados kkkkkkkkkkkkkkkk

Que Deus conforte sua família neste difícil momento e que sentiremos falta de um colega a mais em nossos grupos de discussões.
O fato meus caros é que nossa profissão tem um risco muito grande de certas doenças principalmente as vasculares e cardíacas.
Alguns conhecidos meus e acredito de vocês já foram acometidos por doenças que surgem devido a falta de exercícios, estres e muitas noites não dormidas. Eu mesmo fui um tempo atrás vítima de pressão alta e um conhecido meu adquiriu até síndrome do pânico.
Por estarmos horas sentados, a obesidade e o sedentarismo é muito comum entre a gente e espero de alguma forma, ter alertado desses riscos que ocorremos.

DiabéIsso()??? kkkkkkkkkkkkkkk. Fale apenas de programação. Autenticar o que, como, etc. Por código de barras na cartela não seria uma idéia? Autenticar tipo, quando você paga uma conta na C.E.F., e o caixa autentica na impressora?
Perguntinha do kpeta. kkkkkkkkkkkkkkkkk

Codigo de barras Kapi tá brincando né?
Para os numeros tem a função de escolher numeros aleatórios mas para as letras não consegui achar nada e ai mesclar a autenticação.
Pensei em imprimir o Qr-Code mas se for comum a informação em todas as cartelas, já era kkkk

Boa tarde meus caros,
Fiz de uma maneira mais simples e funciona além de controle de caixas como também de filiais para empresas que usam replicação de informações com as filiais.
No cadastro do funcionário/vendedor, estão os mesmos nomes que fazem o login no programa e com isso suas informações de filiai e caixa já estão pré-definidos....

Na tela de vendas, cada usuário já tem seu caixa, bastando apenas os controles de suprimento, sangrias, venda a vista e a prazo que ao meu ver é isso que estas procurando...
 
Na tela do caixa, até suas transferencias (caixa para caixa) podem ser feitas neste metodo...

Espero que ajude a ter uma idéia de como fazer.
 

Ele é executado no diretório principal (fdefa) e os DBFs estão na pasta DADOS (fpath) assim vc coloca os executáveis junto com o programa principal.

E Jorge se fosse aqui no Pará, dizia que o João é bicolor kkkkk

Para MySQL (uso SQLRDD)

João não vai se aborrecer de novo ta?! kkkkkkkkkkk
#include "fivewin.ch" #include "sqlRDD.ch" * <---- CONEXÃO MYSQL #include "mySQL.ch" FUNCTION MAIN() PRIVATE drive:=CURDRIVE(),diretorio:=CURDIR() PRIVATE fdefa:=drive+':\'+diretorio PRIVATE fback:=drive+':\'+diretorio+'\Backup' PRIVATE fbaco:=drive+':\'+diretorio+'\Backup\OneDrive' PRIVATE conexao,sporta,data,user,passwor,sback,sqldir INI oIni FILE (fdefa+"\PARAM.INI") GET conexao SECTION "PARSQL" ENTRY "SQLCon" OF oIni GET data SECTION "PARSQL" ENTRY "SQLDat" OF oIni GET user SECTION "PARSQL" ENTRY "SQLUse" OF oIni GET passwor SECTION "PARSQL" ENTRY "SQLPas" OF oIni GET sporta SECTION "PARSQL" ENTRY "SQLPor" OF oIni GET sback SECTION "PARSQL" ENTRY "SQLBac" OF oIni GET sqldir SECTION "PARSQL" ENTRY "SQLDir" OF oIni ENDINI // -------------- CONEXÃO MYSQL ------------------------------// REQUEST SQLRDD REQUEST SR_MYSQL passwor := '999999' CcONNstring := "MYSQL="+ALLTRIM(conexao)+";UID="+ALLTRIM(User)+";PWD="+ALLTRIM(passwor)+";DTB="+ALLTRIM(data)+";PORT="+sporta //+";OWNER=;ENGINE=innoDB;AUTOCOMMIT=1000" nCnn1 := SR_AddConnection( CONNECT_MYSQL, CcONNstring ) IF nCnn1 < 0 MSGINFO("BANCO DE DADOS NÃO ENCONTRADO.","CONEXÃO MAL SUCEDIDA") CLOSE ALL QUIT ENDIF RddSetDefault("SQLRDD") // Define o Rdd padrão // Serial do HD identificando a empresa p21 := "" numserie := ALLTRIM(STR(nSerialHD(),20)) FOR z:=1 TO LEN(numserie) IF ISDIGIT(SUBS(numserie,z,1)) p21+=SUBS(numserie,z,1) ENDIF NEXT eSerial:= LEFT(p21,5) cBkpFldr := fback cBkpOne := fbaco cBkpDriv := sback+":" cMySqlFl := sqldir cBkpFile := eSerial+"-"+DTOS(DATE())+"-"+ALLTRIM(STR(SECS(LEFT(TIME(),5))))+".sql" cServ := ALLTRIM(conexao) cUser := ALLTRIM(User) cSenh := ALLTRIM(passwor) cBanc := ALLTRIM(data) cDirAtu := CurDrive()+":\"+CurDir() if file(cDirAtu+"\CriarBkp.bat") ferase(cDirAtu+"\CriarBkp.bat") endif // Pasta de Backup cAtuInf := '@echo off'+CRLF+; 'echo Criando backup do banco de dados. Aguarde...'+CRLF+; '"'+cMySqlFl+'\mysqldump.exe" -h'+cServ+' -u'+cUser+' -p'+cSenh+' --triggers'+' '+cBanc+' > '+cBkpFldr+'\'+cBkpFile+CRLF+; 'EXIT' // Para One Drive // '"'+cMySqlFl+'\mysqldump.exe" -h'+cServ+' -u'+cUser+' -p'+cSenh+' --triggers'+' '+cBanc+' > '+cBkpOne +'\'+cBkpFile+CRLF+; // Para Drive Externo // '"'+cMySqlFl+'\mysqldump.exe" -h'+cServ+' -u'+cUser+' -p'+cSenh+' --triggers'+' '+cBanc+' > '+cBkpDriv+'\'+cBkpFile+CRLF+; arq2 := fcreate(cDirAtu+"\CriarBkp.bat") fwrite(arq2, cAtuInf) fclose(arq2) WAITRUN( GetEnv( "ComSpec" )+" /C START "+cDirAtu+"\CriarBkp.bat", 0 ) // DELETE FILE (cDirAtu+"\CriarBkp.bat") RETURN NIL  

Boa tarde meus caros,
Fiz de uma maneira mais simples e funciona além de controle de caixas como também de filiais para empresas que usam replicação de informações com as filiais.
No cadastro do funcionário/vendedor, estão os mesmos nomes que fazem o login no programa e com isso suas informações de filiai e caixa já estão pré-definidos....

Na tela de vendas, cada usuário já tem seu caixa, bastando apenas os controles de suprimento, sangrias, venda a vista e a prazo que ao meu ver é isso que estas procurando...
 
Na tela do caixa, até suas transferencias (caixa para caixa) podem ser feitas neste metodo...

Espero que ajude a ter uma idéia de como fazer.
 

Se você quiser ter problemas quando atualizar seu EXE nas empresas, use o manifest do João pois pra mim o Windows colocou logo um escudo de administrador e deu maior problema em uma empresa.
Até eu lembrar que foi o manisfest que mudei e por isso ele deu problema, levei muita pressão pois o expediente já tinha começado.
 

huahuahuahauhauahu

Agora quais tecnologias se usam na TOTVS?

Pois se o ADVPL (que ao meu ver é a mesma coisa do FW) tem suas particularidades assim como suas limitações parecidas com o FW, como é conhecida como a maior empresa de tecnologia da américa latina.

Não sei se estou desatualizado mas ao meu ver ela é a gigante usado uma linguagem semelhante a nossa.
E como disse o Ariston..."
Enfim, programador hoje tem que saber, não uma linguagem, mas PROGRAMAR!  

Boa tarde,

Uso esta função para ler informações data, e trato assim...
            IF VALTYPE(data_comp) = "T"    
                data_comp := LEFT(TTOS(data_comp),08)
                data_comp := RIGHT(data_comp,2)+"/"+SUBST(data_comp,5,2)+"/"+LEFT(data_comp,4)
                data_comp := CTOD(data_comp)
            ENDIF   
            IF VALTYPE(data_comp) != "D"
                 data_comp := CTOD(data_comp)
             ENDIF   

Veja se funciona para vc meu caro.
 
 
 

Estou usando NF 4.0 com ACBr, ficou show de bola. Recomendo.

Isso Kapi mas seria a aba PARTES deste site, no caso de botões e campo geralmente estão com identificações