Theotokos

Uma imagem fala por si:

Para configurar o GMAIL ou YAHOO, já dei resposta no forum, e estou sem tempo para procurar. Ema, ema, ema, cada um com seus pubremas. kkkkkkkkkkkkkkkkkkkkkkkk

Não consigo ser mau... kkkkkkk, como configurar GMAIL.  Claro que precisa de autorização do gmail/google. Idem ao yahooooooooooooooooooo.
 

Configurar o yahooooooooooooo, precisa de autorização do mesmo. Idem ao gmail. Sendo que o GMAIL é mais complicado, pois tem que desligar a segurança do google chrome.
 

Última vez, que eu mostrarei como se faz. Cansey(). kkkkkkkkkkkkkkkkkk
 

Se precisar de um excelente provedor, nós usamos este:
 
https://acheperto.com.br/

Realmente, esta função não está funcionando mais. A minha aqui, não envia mais. Mas enviava. Troque para o RMAIL.PRG que está funcionando perfeito com GMAIL, YAHOO e Provedor próprio. Pelo menos aqui, tá de boas.  Abs. Em cristo.

Procure no forum por gmail, tem muitas respostas e estou sem tempo de achar a correta, mas eu postei a(s) resposta(s) em um 1 ou mais tópicos.

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.

Boa tarde,
Msdn, é apenas um bitmap, carregada na dialog como um brush e os botões são imagens também que são impressas na tela a partir do buttonbmp que carrega as imagens e o sombreamento fica na tela de fundo.

Fiz em array com 05 colunas.
Daí quando Clico pego o código, etc..
Está em fase final do sistema. Assim que terminar, se precisar posto aqui para a galera..

tem que ser com as versoes mais novas do five mesmo.
mas vale a pena atualizar.
a minha nem está tão atualizada assim

Este sistema se integra com esse 



Esse Segundo App é em Android, e acessa a base de dados MYSQL.(mariaDb)
Ou seja o atendente(Garçon) com um celular faz os lancamentos nas mesas, que por sua vez integra com o "retaguarda"
 
 
 

Claro amigo, Irei apens terminar o projeto, e posto aqui para a galera.

Praticamente Resolvido amigos
A tela está em fase de projeto, mas dá pra se ter uma ideia de como Ficará..
Agradeco a Todos os Amigos...
A primera parte tem os Grupos, 
Ao Selecionar o Grupo, o Grid de baixo atualiza com os produtos do Grupo

Feito com Fivewin, e Xbrowse com Array... Estou Gostando do Resultado.

Resolvido

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.
 

Mais fácil que encoxar a tia na PIA... Meu pai vira no Lampião... kkkkkkkkkkkkkkkkkkkkkk

//-> CONFIGURA OS CAIXAS E O SISTEMA EM GERAL FUNCTION CONFIGURA_CAIXAS( oMeter, oText, oDlg, lEnd )    LOCAL DbTerminal, NNUMERHD    PUBLIC LLIBERARCONTRASENHA    PUBLIC XSERIALHD,   XTERMINAL,   XTAMANCUPOM, XSUPRIMECAB, XPORTALEITO, ;       XPORTADOECF, XVERSAOECF,  XPORTABALAN, XPORTAGAVET, XABRIRGAVET, ;       XPORTAIMPCH, XMODIMPCHEQ, XMODELOECF,  XMTELAPAGTO, XTEFDISCADO, ;       XTOTTERMINA, XLEITBALANC, XMODELBALAN, XDESCMAXIMO, XIMPALIQUOT, ;       XPERM4PRECO, XVLMAXTROCO, XIMPROUTMIC, XIMPQTDECOP, XIMPCUPITEM, ;       XSUPCODPROD, XPULARLINHA, XVELOCBALAN, XNAOCOMPCUP, XTECLAREDUZ, ;       XSINALSONOR, XVALMAXSANG, XVALMAXPROD, XBANNERTELA, XDESLIMOUSE    PUBLIC NNUMERHDSUP // SOMENTE PARA O SUPORTE    XSERIALHD := ALLTRIM( STR( nSerialHD( "C:\" ) ) ) //XSERIALHD := [1354931277]  //-> SOMENTE PARA TESTES    NNUMERHD    := XSERIALHD  //-> Numero do Hd do Terminal em Uso    NNUMERHDSUP := NNUMERHD   //-> Para Liberar Contra Senha no Meu Micro //? NNUMERHD // Numero do meu HD para Liberar a Opcao do MENU Para Contra Senha    IF NNUMERHD = [-1264255690] .AND. FILE( "C:\LIBMICRO.TXT" )       LLIBERARCONTRASENHA := .T.    ENDIF    oText:SetText( "Processando, Aguarde... Configurando os Caixas" )    IF NetUse( "TERMINAL", .T. )       OrdListAdd( "TERMINAL", "TERMINAL" )       OrdDescend( , , .F. ) // - Decrescente       DATABASE DbTerminal // Como Escrevemos em Ingles       DbTerminal:Load()       DbTerminal:SetBuffer( .T. )    // Assim, .T. a Op‡Æo (Cancelar) Funciona.    ELSE       MsgStop( "Banco de Dados TERMINAL.DBF Bloqueado", "Cuidado!" )       RETURN NIL    ENDIF // Como Escrevemos em Ingles    SELECT ( DbTerminal:cAlias ) // Seleciona o Alias de TERMINAL.Dbf    DbTerminal:SetOrder( 1 )    DbTerminal:GoTop()    LOCATE FOR ( DbTerminal:cAlias )->SERIALHD = NNUMERHD    IF EOF()       ADICIONE( 0 )       REPLACE ( DbTerminal:cAlias )->SERIALHD WITH ALLTRIM( NNUMERHD )       REPLACE ( DbTerminal:cAlias )->TERMINAL WITH - 1       DESTRAVA( 0 )    ENDIF //->"01- Número Deste Caixa( Micro Terminal )"    XTERMINAL   := ( DbTerminal:cAlias )->TERMINAL    IF XTERMINAL = 1 //-> Servidor de Arquivos ‚ o Micro Numero 1       IF EMPTY( ( DbTerminal:cAlias )->TERM_DESCR ) .OR. ;             ( DbTerminal:cAlias )->TERM_DESCR = [TERMINAL DE SERVICOS]          TRAVEREG( 0 )          REPLACE ( DbTerminal:cAlias )->TERM_DESCR WITH [SERVIDOR DE ARQUIVOS]          DESTRAVA( 0 )       ENDIF    ELSE       IF EMPTY( ( DbTerminal:cAlias )->TERM_DESCR )          TRAVEREG( 0 )          REPLACE ( DbTerminal:cAlias )->TERM_DESCR WITH [TERMINAL DE SERVICOS]          DESTRAVA( 0 )       ENDIF    ENDIF //->"02-Tamanho do Cupom:  [1-69/76mm] [2-Folha A4]:"    XTAMANCUPOM := ( DbTerminal:cAlias )->TAMANCUPOM //->"03-Suprimir o Cabeçalho do Cupom(Ticket):"    XSUPRIMECAB := ( DbTerminal:cAlias )->SUPRIMECAB //->"04-Número da Porta Serial do Leitor de Código de Barras:"    XPORTALEITO := ( DbTerminal:cAlias )->PORTALEITO //->"05-Número da Porta Serial do Emissor de Cupom Fiscal(ECF):"    XPORTADOECF := ( DbTerminal:cAlias )->PORTADOECF //->"06-Número da Versão do Emissor de Cupom Fiscal:"    XVERSAOECF  := ( DbTerminal:cAlias )->VERSAOECF //->"07-Número da Porta Serial da Balança Pesadora:"    XPORTABALAN := ( DbTerminal:cAlias )->PORTABALAN //->"08-Número da Porta Serial da Gaveta Para Dinheiro:"    XPORTAGAVET := ( DbTerminal:cAlias )->PORTAGAVET //->"09-Comando Para Abrir a Gaveta Para Dinheiro (em ASCII):"    XABRIRGAVET := ( DbTerminal:cAlias )->ABRIRGAVET //->"10-Número da Porta Serial Onde Está a Impressora de Cheque:"    XPORTAIMPCH := ( DbTerminal:cAlias )->PORTAIMPCH //->"11-Modelo da Impressora de Cheque 1=Schalter 2=Daruma 3=Outra:"    XMODIMPCHEQ := ( DbTerminal:cAlias )->MODIMPCHEQ //->"12-Modelo do ECF 1=Daruma 2=Sweda 3=Bematech 4=DataRegis 5=Quattro 6=Afrac 7=Elgin:"    XMODELOECF  := ( DbTerminal:cAlias )->MODELOECF //->"13-Mostrar Tela de Formas de Pagamento Após a Finalização do Cupom:"    XMTELAPAGTO := ( DbTerminal:cAlias )->MTELAPAGTO //->"14-Trabalhar Com Sistema de TEF(Transferencia Eletronica de Fundos) Discado:"    XTEFDISCADO := ( DbTerminal:cAlias )->TEFDISCADO //->"15-Total de Caixas(Terminais) Existentes Neste Estabelecimento Comercial:"    XTOTTERMINA := ( DbTerminal:cAlias )->TOTTERMINA //->"16-Leitura do Código de Barras da Balança: (1) - Por Peso (2) - Por Valor"    XLEITBALANC := ( DbTerminal:cAlias )->LEITBALANC //->"17-Modelo da Balança Eletrônica [1]Filizola [2]Toledo [3]Urano [0]Nenhuma:"    XMODELBALAN := ( DbTerminal:cAlias )->MODELBALAN //->"18-Desconto Máximo Permitido nas Vendas Efetuadas a Vista ou a Prazo:"    XDESCMAXIMO := ( DbTerminal:cAlias )->DESCMAXIMO //->"19-Imprimir Aliquota do Desconto Concedido Após a Venda do Item:"    XIMPALIQUOT := ( DbTerminal:cAlias )->IMPALIQUOT //->"20-Permitir Que Cada Produto Tenha Até 4 Preços Para Venda:"    XPERM4PRECO := ( DbTerminal:cAlias )->PERM4PRECO //->"21-Valor do Troco Máximo Permitido a Ser Passado ao CLiente(Evitar Erro):"    XVLMAXTROCO := ( DbTerminal:cAlias )->VLMAXTROCO //-> Folder 2 //->"22-Usar Impressora de Outro Micro:"    XIMPROUTMIC := ( DbTerminal:cAlias )->IMPROUTMIC //->"23-Imprimir Mais de Uma Cópia do Cupom de Venda:"    XIMPQTDECOP := ( DbTerminal:cAlias )->IMPQTDECOP //->"24-Imprimir o Cupom Ítem a Ítem:"    XIMPCUPITEM := ( DbTerminal:cAlias )->IMPCUPITEM //->"25-Suprimir Código Produto no Cupom:"    XSUPCODPROD := ( DbTerminal:cAlias )->SUPCODPROD //->"26-Linhas a Pular Após Final da ImpressÆo do Cupom:"    XPULARLINHA := ( DbTerminal:cAlias )->PULARLINHA //->"27-Velocidade da Balança Pesadora (2400-9600):"    XVELOCBALAN := ( DbTerminal:cAlias )->VELOCBALAN //->"28-Não Comprimir Impressão do Cupom:"    XNAOCOMPCUP := ( DbTerminal:cAlias )->NAOCOMPCUP //->"29-Usar Teclado Reduzido (Programável): "    XTECLAREDUZ := ( DbTerminal:cAlias )->TECLAREDUZ //->30-Sinal Sonoro: [1]-Alto Falante [2]- Caixa de Som:    XSINALSONOR := ( DbTerminal:cAlias )->TIPODESOM //-> 31-Valor Maximo Para Fazer a Sangria do Caixa:    XVALMAXSANG := ( DbTerminal:cAlias )->VALMAXSANG //->32-Quantidade Máxima Permitida Para Venda de Um Produto(Evitar Erro do Caixa):    XVALMAXPROD := ( DbTerminal:cAlias )->VALMAXPROD    XBANNERTELA := ( DbTerminal:cAlias )->BANNERTELA    XDESLIMOUSE := ( DbTerminal:cAlias )->DESLIMOUSE    CLOSE DATABASES RETURN NIL

É como o Everton falou:  o CAIXA pode entrar no micro que ele quiser. o SERIAL, você usa para registrar as máquinas no sistema.
 

Controle cada CAIXA, pelo SERIAL da máquina, conforme imagem anexa.
 

PJINFO o problema era exatamente esse, a luz acendia porem a imagem da webcam ficava preta. SKYPE  e outros aplicativos funcionavam mas no sistema nem a pau.
No final das contas era o antivirus bloqueando mas tb tem que habilitar o windows para permitir a webcam.
Então acredito que vale a pena tentar, acesse como ADM, desabilite o antivirus e habilite no windows para permitir a webcam em qualquer aplicativo.
 
https://www.techtudo.com.br/dicas-e-tutoriais/noticia/2016/04/como-ativar-e-desativar-webcam-e-microfone-no-pc-com-windows-10.html
 
veja também
https://help.kaspersky.com/kis/2017/pt-BR/82864.htm
 

Amiguinhos,
 
EDUTEK
Desde que fiz meu primeiro teste de Set Relation em 1990, decidi nunca mais usá-lo. É muito lento, e você esta processando ´varios ao mesmo tempo,não vale o esforço.
 
Monte seu xBrowse sobre a tabela principal e use uma funcção de pesquisa das outras informações que compõem as colunas usando seek nos indices periféricos.
Exemplo:

... pesq(str(pn->IDFUNC,5,0),"vendedor",2,"nome") ...

Deve ser semelhante à comunicação com balança pelo com1: ou com2:
para balança, eu tenho uma rotina que lê a porta serial:
function pegapeso()
** LEITURA DA PORTA
NHANDLE:=Init_Port("COM1",9600,8,0,1,8000)
OutBufClr(NHANDLE) // Limpa o Buffer de Saida
OUTCHR(NHANDLE,CHR(5))
SYSWAIT(0.3)
Bytes := InbufSize(NHANDLE)
DADOS=SPACE(20)
Buffer := InChr( NHANDLE, Bytes, @DADOS)
UnInt_Port(nHandle)
dados=alltrim(dados)
** tratamento das informações lidas, na variável DADOS
Q=val(substr(dados,2,5))/1000
n1:=""
for i=1 to len(dados)
    i0:=substr(dados,i,1)
    if i0$"0987654321."
       n1:=n1+i0
    endif
next
q:=val(n1)
IF Q<=0
   Q:=0
ENDIF

RETURN Q
 
Talvez sirva para você.
 

Amiguinhos,
Apesar de gostarmos, existem algumas versões de utilitários que usamos no dia-a-dia em nossos pc´s e nos pc´s de nossos clientes e inclusive em nossos celulares que possuem brechas nativas.
Entre eles, IOBit, Clean Master, Spark Browser, UC Browser.
 

Feliz Natal a todos e um próspero ano novo
Que 2019 possa ser um novo ano de realizações e sucesso a todos.
 

O que deve conter na Etiqueta de Composição:
Fique atento aos itens e sua ordem:
1º: Nome ou Razão Social ou Marca Registrada e CNPJ
É a identificação do responsável pelo produto.
2º: País de origem
É a identificação da origem do produto.
3º: Nome das fibras ou filamentos
É a identificação das fibras ou filamentos têxteis que compõem o produto e seus respectivos percentuais.
4º: Tratamento e cuidados para conservação
São as informações necessárias para que o consumidor saiba como conservar o produto.
5º: Indicação de tamanho ou dimensão
É a indicação do tamanho do produto.
– O nome do fabricante ou lojista podem variar sendo: Nome, Razão Social ou Marca Registrada.
– Os símbolos de lavagem devem ser organizados segundo a cartilha do IPEM ( Cartilha do Inmetro ) e as medidas dos símbolos devem ser no mínimo de 4mmX4mm.

Amiguinhos,
Eis uma forma rápida de importação de tabelas .DBF para arquivos .CSV e/ou .XLS de forma rápida:
use tabela oExcel := TOleAuto():New( "Excel.Application" ) oWorkbook := oExcel:WorkBooks oWorkbook:Open( (DBF_TEMP) ) oExcel:DisplayAlerts := .f. oExcel:Visible := .t. oWorksheet := oExcel:Get( "ActiveSheet" ) oWorksheet:SaveAs( cPathDados + "DBF_TEMP.CSV", 6 ) oWorksheet:SaveAs( cPathDados + "DBF_TEMP.XLS", 56 ) Só não resolvi o processo preso na task manager.