marcioe

Olá a todos os Amigos Temos um cliente que tem 03 Lojas ambas com base de dados separadas. (Todas com Mysql) Blz, Agora ele quer unificar tudo (até ai blz, vai dar trabalho, mas é possivel) Porem gostaria de saber dos amigos como / qual recurso usam para acessar. Exemplo o servidor terá que ser unico, e claro que on-line, pois as lojas são uma em cada cidade. O que os amigos fazem ou indicam, para o acesso remoto. Terminal server seria uma opção, mas não é muito pratica e tem o lance de VPN, um saco.

Pessoal, quase que ficou 100% porem esta comendo os espaços em branco veja

bom dia a todos eu criei um campo no cadastro do produto, para tal Veja se ajuda a ter ideia

Opa, olá a todos, mas essa informação vem de um celular, e no APP não tem essa trava, então o dado é inserido na nossa base de dados, mas vamos rodar um "tratamento" e ajustar. Obrigado

Olá amigos, tudo bem com voces ? Espero que sim Imagina a String T_NOME := 'JOSE DA SILVA 1234456' OU T_NOME := '32523 MARIA DA SILVA' Preciso de aceitar no máximo 2 números dentro da string, caso o usuario digitar mais de 2 conforma acima, seja cortado Tipo T_NOME := 'JOSE DA SILVA 12' OU T_NOME := '32 MARIA DA SILVA' Só Aceitar 2 numeros por string

Não uso para emissão de nota de Serviço, mas uso para nota de mercadorias, a UNINFE, e tem a acbrmonitorPlus. Esse flex acho que já deve esta descontinuada, alem do preço ser por CNPJ O acima citados são todos 0800

Olá amigo, acho que seria Top demais, seria a Tábua de Salvação. Mas não creio que veremos um dia um "prg" rodando em produção em um sistema,(como temos no five) Já teve fiveweb, fivedroid, etc... Projetos que não andam E eu entendo, e acho que o pessoal da Fivetecch, faz até milagres, pois no meu entendimento é uma empresa Muito pequena. Apenas eu acho, posso estar enganado. Eu estou estudando o https://www.adiantibuilder.com.br/home, é uma framework nacional. Lá do Sul.... O preço é relativamente baixo. Tem bastante material de apoio/Foruns, etc... Não quer dizer que eu vá adotar ela, mas é uma opção...a ser pensada Agora que tudo caminha para web isso é fato, e não terá Volta, da mesma forma que foi do "clipper-dos" para o ambiente Gráfico.... Posso estar errado, mas vamos trocando ideias

Olá a Todos Depois da ajuda do amigo *Jmsilva* Muito obrigado mesmo pela dedicação. O problema é que tem espaços no campo de 'Nao Inf.' tem que ser 'NaoInf.' ou seja o espaço em branco entre as palavras não pode cMsg := IF(!EMPTY(v_Documento),v_Documento,'Nao Inf.')

Deve estar falando algum parâmetro, pois em alguns app de pagamento funciona normalmente, conforme relatei acim

Estou gerando o qrcode de Pix se Fizer a Leitura no APP mercado pago (ok lê de boa) nubank Diz que o Qrcoe é inválido Sicob Diz que o Qr Code está Expirado Será que está Faltando Algum parametro FUNCTION Gerar_Qrcode_Pix(v_Documento) Local oDlg_Pix, oBmp1 Local nValor := 0 &&& 1200.75 //Valor do PIX Local cPIX_CHAVE := space(30) &&& chave pix Local cPIX_NOME := space(30) &&& Nome do Proprietario do PIX Local cPIX_cidade := space(15) &&& Nome da Cidade do proprietario do PIX Local cMsg := space(10) &&& Campo de Msg Opcional Para Pix (exemplo Pedido xxx) LOCAL nResp LOCAL qrDLL *------------------------------------------------------------------------------------ * Coloquei Aqui para Gerar Valores com Base na Hora/m/sg Apenas para testar *------------------------------------------------------------------------------------ nValor := val( substr(time(),04,2) + '.' + substr(time(),07,2) ) *---------------------------------------------------------------------------- * Pego os Dados da Chave Cadastrada no Banco de Dados *----------------------------------------------------------------------------- IF SELECT("pix_empresa") != 0 pix_empresa->(DbCloseArea()) ENDIF cQuery:='select * from empresa where CODIGO = ' + TRANSFORMA_SQL(1,'N',06,0) + ' Limit 1' use sql cQuery alias "pix_empresa" new via 'MYSQL' pix_empresa->( DbGoTop()) cPIX_CHAVE := IF(empresa->TIPO_CHAVE_PIX =4,'+55','') + (pix_empresa->CHAVE_PIX) && chave pix cPIX_NOME := alltrim(pix_empresa->NOME_CHAVE_PIX ) && Nome do Proprietario do PIX cPIX_cidade := alltrim(pix_empresa->CIDEMP) && Nome da Cidade do proprietario do PIX cMsg := IF(!EMPTY(v_Documento),v_Documento,'Nao Inf.') IF SELECT("pix_empresa") != 0 pix_empresa->(DbCloseArea()) ENDIF *---------------------------------------------------------------------------- * Passando Dados Para Gerar o Qrcod_pix *---------------------------------------------------------------------------- cMsg := '05'+ strzero(len(alltrim(left(alltrim(cMsg),21))),2) + left(alltrim(cMsg),21) //Reference label até 25 caracteres. *---------------------------------------------------------------------------- nTamChave := 22 + len(alltrim(cPIX_CHAVE)) //Tamanho da chave para ser colocado no registro 26 *---------------------------------------------------------------------------- cString := '000201' //Inicio do código para gerar o Qr-Code cString += '26'+strzero(nTamChave,2)+'0014BR.GOV.BCB.PIX01'+ strzero(len(alltrim(cPIX_CHAVE)),2) + alltrim(cPIX_CHAVE) cString += '52040000' cString += '5303986' cString += '54' + strzero(len(alltrim(str(nValor))),2) + alltrim(str(nValor)) cString += '5802BR' cString += '59' + strzero(len(alltrim(cPIX_NOME)),2) + alltrim(cPIX_NOME) //Merchant Name até 25 caracteres. cString += '60' + strzero(len(left(alltrim(cPIX_cidade),15)),2) + alltrim(left(cPIX_cidade,15)) //City Name até 15 caracteres. cString += '62' + strzero(len(cMsg),2) + cMsg cString += '6304' cString += GERA_CRC(cString) *---------------------------------------------------------------------------- PASTA_QRCOD := CurDrive() +':\'+ CurDir() +'\QRCODPIX\' IF !lIsDir(PASTA_QRCOD) lMkDir(PASTA_QRCOD) ENDIF *---------------------------------------------------------------------------- hBmp := FW_BarCodeBmp( alltrim(cString), "QRCODE", 200, 200 ) hBmp := bmp2alpha( hBmp ) FW_SaveImage( hBmp, (CurDrive() +':\'+ CurDir() +'\QRCODPIX\' + ALLTRIM('A_CHAVE_PIX') + ".png") ) cFile := (CurDrive() +':\'+ CurDir() +'\QRCODPIX\' + ALLTRIM('A_CHAVE_PIX') + ".png") *---------------------------------------------------------------------------- XIMAGE_zoom( cFile, 'Qrcode Pagamento Valor ' +M->cSimb+' '+ ALLTRIM(TRANSFORM(nValor,"@ZE 999,999,999.99")) + ' Valores de Teste' , (.T.), 60 ) *---------------------------------------------------------------------------- Return nil *------------------------------------------------------------------------------- FUNCTION bmp2alpha( hBmp1 ) local hBmp, oBmp oBmp := GdiBmp():New() oBmp:CreateFromRes( hBmp1, 0 ) oBmp:Conver24to32Alpha( .f. ) hBmp := oBmp:GetGDIHbitmap() oBmp:Destroy() DeleteObject( hBmp1 ) return hBmp *------------------------------------------------------------------------------- * *------------------------------------------------------------------------------- Func GERA_CRC(ctxt) local i,n,a:={} local polinomio:=0x1021 local resultado:=0xFFFF for i=1 to len(ctxt) resultado := nXor(hb_bitShift(asc(substr(ctxt,i,1)),8),resultado) for n=1 to 8 resultado := hb_bitShift(resultado,1) if nand(resultado, 0x10000)<>0 resultado:=nXor(resultado,polinomio) end resultado:=nAnd(resultado,0xFFFF) next next return(DecToHex(resultado)) *------------------------------------------------------------------------------- o Qrcode é esse

Olá, estou tendo o mesmo problema, para exibir, teria como postar o que fez

Então, voce quer espelhar as Telas, seria isso, Exemplo o que está na tela do Balcao (tela do atendente, seja a mesma para o Consumidor). Se for isso, basta usar o Cabo Y, para dois monitores, na mesma maquina. Se for Telas Diferentes, ai creio que terá que rodar com uma placa de Vídeo e usar na Area de trabalho 01, por exemplo o (tela do Operador), já na area de Trabalho 2 Tela do Cliente Seria tipo o que é usado nas Rede de Fast Food, ou qual seguimento... Talvez ajude mais se falar o Seguimento que pretende atender com isso

Eu acho que é esse azure.microsoft.com/

Obrigado por responder, temos o servidor DEDICADO na locaweb, (usamos mariadb / Mysql) Fizemos uns testes, e percebemos que ficou bem lento, mas claro que, posso melhorar o acesso, trazendo o máximo das consultas por array, etc.. Otimizar algumas coisas quem em uma rede local, não nos preocupamos a esse ponto. Salvo engano eu já ví uma aplicação acho que era de contabilidade(sistema em delphi) que rodava no navegador, porem com ( aws pelo navegador ) Essa empresa usa Aws, pelo visto com o sistema em Delphi. https://www.supersoft.com.br/ Alguem sabe mais

Amigo, apenas uma pergunta, voce faz acesso via TERMINAL SERVER, ou pelo IP. Como está acessando ?

Dessa forma já atende 90%, o chato é ter que mudar classe. Será que não dar para fazer uma 'NOVA CLASSE" Herdando os dados da classe "mae", dai essa Nova classe colocaria nos meus fontes para compilar, dai quando mudar a versão do Five não tenho que "mudar" de novo

Eu gosto bem do fivewin, Mas tem coisas que infelizmente não tem com ele absorver, um exemplo é Web. Mas vamos Continuar com aa nossa vaca fria

Top, estilo MICROSIGA / TOTVS.

Parcialmente sim mas sabe como é usuário né (Vão falar que não percebeu), Mas é o caminho

Queria apenas de uma forma visual para que o usuário possa saber que é obrigatório o campo, hoje já tenho validações, antes de gravar o registro, se por exemplo o campo NOME estiver em branco, se o campo que é obrigatório, e não estiver preenchido. Ele avisa com uma Dialog Hoje já funciona assim, porem Porem só quando ele clica em gravar, que isso aparece. para o usuário

O Gilmer tinha feito isso . Na época ele tinha feito para a ecf da empresa Onie. Quando o campo era obrigado ficar com uma pontinha no get Uso o Peles c para criar a diálogo

bom dia a todos Eu fiz usando s Txbrowse. vejam como ficou

ok Isso vamos aguardar as mentes brilhantes

Não estou esperando um milagre. Apenas opniões e informaçoes de pessoas com mais experiência do que eu. Obrigado..

Ok, Já é um caminho, Mas na verdade o que foi feito é usar @say * e colorir ele. Ou seja como uso .RES, bataria colocar imagem ou algo similar