Ladinilson

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

Obrigado a todos mas a solução postado pelo Mota ficou perfeita. o João não deve ter entendido mas a "autenticação" realmente confunde com a confirmação de venda da cartela, que no nosso caso seria por selagem. Esta função apenas é para efeito de falsificação da cartela impressa e não para confirmação de que ela foi comprada. Obrigado a todos.

Boa meu caro, vai dar um trabalhão mas deve dar certo ai vou postar aqui pois acho que em autenticação de comprovantes seria uma solução mais segura.

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

Para comprovantes de recebimento e cartelas de bingo, onde a autenticação serve como uma segurança a mais de indivíduos mau intencionados. Por exemplo aqui no Pará quase todo o território tem este tipo de bingo onde sorteiam os 4 primeiros prêmios dinheiro e o quinto geralmente é uma moto para os interiores. Desenvolvi um tipo de bingo para estes sorteios e os clientes exigiram além da numeração e selo, uma autenticação pois já tentaram fraudar este tipo de negócio. Por favor não se ofendam quem for de Goiás mas o pessoal lá é cruel meu caro falo isso por vários endereçamentos de fraudes que vem de quadrilhas de lá. Não sei porque acontece com frequência como por exemplo uma quadrilha que descobria as senhas de contas em banco que agia no Pará e vendiam para outros cm valores de 70 a 200 mil o software e nesta época foram presos e não ficaram por conta de ainda não existir leis duras para crimes de informática. Faziam videos jogando dinheiro e mostrando a F250 comprada a vista kkkk Conheci um cara que não fiz negócio com ele por causa de ser um meliante que passava notas falsas e adivinhem de onde era a fábrica? Foi desmontada e passou em rede nacional. Tem agora uma quadrilha que frauda os bingos por causa das premiações que chegam até em 50 mil nos interiores por conta da fragilidade da estrutura e segurança. Me desculpem por favor mas uma vez a quem pertence ou nasceu neste estado mas tem um pessoal lá cruel kkkk mas claro isso tem em todo o Brasil e aqui não fica atrás. Não é para criar polêmica tá meus caros por favor.

Boa noite, Senhores alguém já desenvolveu alguma rotina para autenticação tipo essa... 689C177113514PPTCTVP ou algo parecido? Obrigado

Bom dia meus amigos, Como ainda não tive tempo para estudo e desenvolvimento de um aplicativo para pedidos externos para meu software de automação comercial, queria informações de quem já desenvolveu este aplicativo para venda e uma informação inicial, uso DBF ou MySQL para banco de dados no meu software. Enviem propostas para ladinilson@hotmail.com Obrigado

Bom dia meus caros, Marcio fiz também uma repaginação do meu programa de restaurantes/pizzarias/food trucks/bares, etc, por conta das telas touchscreen. Portanto botões grandes e NADA DE DIGITAÇÃO e de forma fundamental para o uso desse tipo de interface, portanto não te aconselho a usar este recurso (digitação) pois ainda estou encontrando um meio de inserir isto ao escolher um íten pois em pizzarias é muito comum o cliente pedir..."não quero cebola"..."sem tomate"..."põe mais ovos cozidos" e assim por diante. Sugiro tentar colocar RADIOS pois também serviria para quem quer acrescentar ítens a mais. Veja como ficou minhas telas... Tela de Mesas (vermelho=ocupadas, verdes=livres) Tela ítens da mesa Tela de Metade (até 4 sabores) Tela do pagamento da comanda... Aplicativo comanda eletrônica (Login) Aplicativo (mesas disponiveis e ocupadas) Obs: Tem um bug de reorganização ainda a resolver Aplicativo (Inserindo itens na comanda) Aplicativo (itens da comanda e finalizando pedido) Obs: Os itens com checkbox é uma pizza com metade de um sabor e de um outro e o preço da pizza do sabor de maior valor Espero que te ajude e também estou ainda inserindo opções. Poderias me mandar estas figuras (todas) pra mim pois vou ver se insiro nos botões. ladinilson@hotmail.com

Rsrsr esse assunto sempre me interessou, usei vários e gostei de alguns e ainda estou na eterna busca das telas perfeitas, mas isso é descartável para alguns e perda de tempo para outros mas particularmente gosto muito quando vejo um sistema visualmente bem feito (não entrem nessa isso vira uma doença kkkk) Digo a vocês, se não quiserem perder muuuito tempo não entrem nessa! kkkkkk

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

Certo que algumas coisas são antigas mas se está funcionando e pra que inventar a roda! Neste teu caso ai, vai fazer apenas o backup normal mas a ideia e pegar de diretórios do programa e enviar para diretórios de backup e drive externo pois assim automatizar seu backup sem nenhuma intervenção manual e sua solução não funciona né João?! Uma Dica: Coloque seus backups (DBF ou MySQL) automáticos e insiram no agendador de tarefas no servidor pois se acontecer algum problema e não poder pelo menos recuperar a movimentação do dia anterior, o cliente vai querer tua caveira kkkkk Fiz também para jogar em no One Drive para ter ainda mais segurança.

Criei um EXE assim... #INCLUDE "fivewin.ch" #define ZIP_NAME 1 #define ZIP_BLOCK 2 #define ZIP_MSG 3 #define NL Chr( 10 ) + Chr( 13 ) FUNCTION MAIN() PRIVATE drive :=CURDRIVE(),diretorio:=CURDIR() PRIVATE fdefa:=drive+':\'+diretorio+'\' PRIVATE fpath:=drive+':\'+diretorio+'\dados\' PRIVATE fback:=drive+':\'+diretorio+'\backup\' PRIVATE fatua,fGera,fBitm,fsai:=ok:=.f.,driveExt,fbackE PRIVATE op:=1,ArqGerIni := "LSBACKUP.INI" SET DELET OFF SET 3DLOOK ON SET SCOR OFF SET DATE BRIT SET MESSAGE TO SET EPOCH TO 1950 SETHANDLECOUNT(69) SET CENTURY ON SET DATE FORMAT TO 'dd/mm/yyyy' SET EPOCH TO 1960 REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") //CMXAUTOOPEN(.f.) */ hBorland := LoadLibrary('BWCC32.DLL') BWCCRegister( GetResources() ) INI oIni FILE (fdefa+ArqGerIni) GET driveExt SECTION "DRIVE" ENTRY "DrvExt" OF oIni ENDINI IF !EMPTY(driveExt) fBackE :=driveExt+':\' ENDIF ZIPBACKUP() //PROCES("Um momento executando o backup do(s) programa(s) LSoft...", { || ZIPBACKUP() }) RETURN nil FUNCTION ZIPBACKUP() LCHDIR ((fpath)) aDir := Directory( fpath+"*.DBF" ) aFileZ := fback+STRZERO(DAY(DATE()),2)+STRZERO(MONTH(DATE()),2)+RIGHT(STRZERO(YEAR(DATE()),4),2)+"DB.ZIP" FOR nI=1 TO LEN( aDir ) HB_ZIPFILE( aFileZ , fpath+aDir[nI][1] , , , , , .F. ) NEXT nI IF !EMPTY(driveExt) aFileZ := fbackE+STRZERO(DAY(DATE()),2)+STRZERO(MONTH(DATE()),2)+RIGHT(STRZERO(YEAR(DATE()),4),2)+"DB.ZIP" FOR nI=1 TO LEN( aDir ) HB_ZIPFILE( aFileZ , fpath+aDir[nI][1] , , , , , .F. ) NEXT nI ENDIF aDir := Directory( fpath+"*.FPT" ) aFileZ := fback+STRZERO(DAY(DATE()),2)+STRZERO(MONTH(DATE()),2)+RIGHT(STRZERO(YEAR(DATE()),4),2)+"FP.ZIP" FOR nI=1 TO LEN( aDir ) HB_ZIPFILE( aFileZ , fpath+aDir[nI][1] , , , , , .F. ) NEXT nI IF !EMPTY(driveExt) aFileZ := fbackE+STRZERO(DAY(DATE()),2)+STRZERO(MONTH(DATE()),2)+RIGHT(STRZERO(YEAR(DATE()),4),2)+"FP.ZIP" FOR nI=1 TO LEN( aDir ) HB_ZIPFILE( aFileZ , fpath+aDir[nI][1] , , , , , .F. ) NEXT nI ENDIF RETURN NIL FUNCTION PROCES( cCaption, bAction ) LOCAL oDlg, nWidth, oFont DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-6 DEFAULT cCaption := "Processando...",; bAction := { || Inkey( 1 ) } DEFINE DIALOG oDlg ; FROM 0,0 TO 3, Len( cCaption ) + 4 ; STYLE nOr( WS_CHILD, WS_VISIBLE, WS_DLGFRAME ) FONT oFont oDlg:bStart := { || Eval( bAction, oDlg ), oDlg:End(), SysRefresh() } oDlg:cMsg := cCaption nWidth := oDlg:nRight - oDlg:nLeft ACTIVATE DIALOG oDlg ; ON PAINT oDlg:Say( 1, 0, xPadC( oDlg:cMsg, nWidth ) ) CENTER oFont:END() RETURN (.t.) DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" // Para erro de hb_parns #pragma BEGINDUMP #include <hbapi.h> HB_ISIZ hb_parns( int iParam, ... ) { return ( HB_ISIZ ) hb_parnl( iParam ); } #pragma ENDDUMP Aqui o opcional para fazer também uma cópia para um PEN drive por exemplo... INI oIni FILE (fdefa+ArqGerIni) GET driveExt SECTION "DRIVE" ENTRY "DrvExt" OF oIni ENDINI Esta bem maior do os de voces o código mas funciona legal e inseri ele no agendador de tarefas do Windows fazendo o backuo ao meio dia e as 17 horas ele cria um compactado com a data

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.

Muito obrigado Maurício o do Ministério da Fazenda esclareceu mas já tinha percebido dentro do código de barras onde apenas vem o valor do documento e ainda tem um dígito verificador dentro dele, sobre a data do vencimento não consta mesmo dentro do código de barras. Olha como estou pegando o valor do documento: vvalor := VAL(SUBST(vbarra,5,7)+SUBST(vbarra,13,2)+"."+SUBST(vbarra,15,2)) Obrigado.

Bom dia meus caros, Estou desenvolvendo um sistema de recebimentos e me deparei com algo bem estranho e que pensei que era padrão. Pois bem, a FEBRABAN tem um layout específico para boletos BANCÁRIOS e a leitura esta correta como por exemplo Banco do Brasil: Código de barras Banco do Brasil 00190000090170227500705443792170276990000078630 Me traz certo... Vencimento: 05/11/2018 Valor: 786,30 Nesse caso foi feito pelo padrão FEBRABAN Mas tenho também para a INTERNET Código de barras NET (Claro) 846700000025662502962019812151780002001490453659 o Certo seria... Vencimento: 15/12/2018 Valor: 266,25 Me traz errado.. Vencimento: 27/10/1997 Valor: 0,00 E também ENERGIA ELÉTRICA Código de Barras CELPA 836800000017810500109006005841297608000024300535 O certo seria.. Vencimento:11/02/2019 Valor: 181,05 Me traz errado... Vencimento: 31/05/2014 Valor: 24.300,53 Sei que a CELPA esta doida aqui no Pará cobrando altos valores que dizem que é de acúmulo de outros meses e inclusive com vários processos e manifestações pelo estado mas esta é demais kkkk Alguém sabe sobre estes outros padrões pois acredito que ÁGUA, GÁS dentre outros não tem esse padrão. Obrigado

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.

Fiz a minha assim... https://uploaddeimagens.com.br/imagens/folder_lsoft_estoque_2017_pagina_1_imagem_0001-jpg Esta transparência deu um trabalho...

Não vi tela de pedido nenhuma também! Ia ver para dar uma idéia de mudança na minha. Como insere imagem aqui?

huahuahuahauhauahu

Não tem Kapi, o problema esta no próprio AcBR como neste link do fórum deles... https://www.projetoacbr.com.br/forum/topic/40179-travamento-na-janela-de-privew-do-danfe/

Ja desenvolvi e estou atualizando meus clientes mas estou com um problema no AcBRMonitor, ele não da o foco do preview da DANFE e ai da a impressão que o sistema trava devido o foco da preview não aparecer e ai só restaurando ou ALT+TAB para acessar coisa que não acontecia nas versões com apenas 3.10. Alguém passou ou tem este problema? Versão 1.1.0.54

Será que teremos uma solução pelo Harbour... Não pesquisei mais mas achei mais avançado do que o "Hello Word" do FiveTouch! kkkkkkkkkkkkkk

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.