Marca

Eu utilizo a tDosPrn pra isso No meu caso aqui o conteúdo do arquivo Gaveta.txt -> CHR(27) + "i" mas existem outros modelos p. exemplo -> CHR(27) + "p" ai tem q. ver o modelo da sua cFile := oPub:wPorta oPrn := MaTDosPrn():New( cFile ) oPrn:StartPage() cComandoGaveta := AllTrim(MemoRead("C:\MARCA\GAVETA.TXT")) oPrn:Say(00,00, &(cComandoGaveta) ) oPrn:END(1)

oFrPrn:PrintOptions:SetPrinter( _cPrinter ) // Seta pra impressora que vc quiser Na minha rotina o Default de _nCopiasRel = 1 e _lPreviewSn = .T. IF _NCopiasRel <> 0 IF _lPreviewSn oFrPrn:ShowReport() ELSE oFrPrn:PrintOptions:SetCopies( _NCopiasRel ) oFrPrn:PrintOptions:SetShowDialog(.F.) oFrPrn:SetProperty("Report", "ShowProgress",.F.) oFrPrn:PrepareReport() * oFrPrn:PrintOptions:SetPrinter( _cPrinter ) oFrPrn:Print(.T.) ENDIF

Exemplo de como uso SELECT CAST(m.cod_est AS SIGNED INTEGER) as codigo,p.descricao, SUM(IF(m.tipo = 'E' and m.operacao <> '3-DEFEIT', m.quant, 0)) AS 'ENTRADA', SUM(IF(m.tipo = 'S' and m.item_canc = 0 , m.quant, 0)) AS 'SAIDAS' , p.saldo_atu FROM movest as m LEFT JOIN produto as p on m.cod_est = p. cod_est group by codigo order by codigo

Boa tarde Alguém teria o contato do Herman ou do CeSoTech que desenvolveram a Classe Twbrowse ? Estou com um problema aqui que não estou conseguindo resolver e gostaria de entrar em contato com algum deles

Wellington. Bom dia Quem fez este bitmap pra vc. Muito bonito. Poderia dizer ?

Olá Vilian. Obrigado por responder já consegui com um amigo aqui do fórum. Caso precise te procuro. Obrigado.

Boa tarde a todos. Alguém aqui do fórum trabalha com sistema para clinicas ?

Opa bom dia. Existia um erro interno aqui que me dava um erro sendo que estamos avançando no processo. Obrigado

Boa tarde pessoal Alguém teria um exemplo de criação do xbrowse com colunas dinâmicas em array Exemplo Inicia o array com 4 colunas Código, descrição, unidade valor quero ir adicionando colunas no vetor onde ele vá me mostrando os diversos preços deste produto no decorrer do uso Código, descrição, unidade valor Data 1° Movto Data 2° Movto Data 3° Movto e ai por diante Alguém teria algo neste sentido ?

Obrigado Toya

O Estranho João é que existem várias APIs free disponibilizando isso.

Bom dia João. O problema não é como baixar e sim a url de onde buscar. A maneira de buscar é tranquila. O grande lançe é que as Api´"s" buscam de algum lugar. A questão é exatamente chegar nestes endereços.

Bom dia pessoal Alguma outra sugestão ?

Bom dia. Esta Api sugerida esta com o banco de dados desatualizada e o cara pede 100 reais mensais pra utilizar e isso inviabiliza. O perfil do cliente que me pediu isso não comporta um custo mensal.

Obrigado Sistem. Irei entrar em contato com ele aqui

Sistem. Esta ferramenta é Free ?

Bom dia Sunset Através de API eu vi mas quero converter para Five. Caso alguém tenha e possa disponibilizar.

Pessoal bom dia Alguém sabe como buscar os dados de um veículo digitando a placa do mesmo igual fazemos com o cep ?

Bom dia Hasa O que vc utiliza pra gerar boleto ?

Bom dia Qual seu email ?

Bom dia pessoal Alguém teria o boleto homologado para o Sicoob recentemente utilizando o Harbour Boleto que pudesse compartilhar ?

Everton. Funciona sim A versão do Five ai não tem nenhuma interferência no funcionamento da Sqllib. Quem determina isso é o xHarbour utilizado e pelo que vc postou ai é o 1.2.3 que é compatível com a sqllib. Mas utilizar os comandos nativos é sempre a melhor opção e como o Ale disse acima se esta versão já contempla o Sql nativo no Five seria melhor já utilizar o que Five esta disponibilizando já que terá que trocar sua maneira de trabalhar de dbf para Sql.

Consegui executar o Debug é uma vontade antiga minha Eduardo. O do Five nunca consegui fazer rodar de forma eficiente usando o xMate

É bem simples No meu caso aqui utilizo a Sqlib sendo que nas novas versões do five já tem isso nativo basta ver qual a sintax para buscar os dados em relação aos comandos não irá mudar nadas FUNCTION ManipulaClientes( lAppend ) LOCAL caDadosCli LOCAL aDadosCli LOCAL nDadosCli ,; nTotDadosCli IF lAppend // Em caso de INSERÇÕES caDadosCli := "INSERT INTO clientes (codigo,nome) VALUES (1,'ciente1')" SqlExecute( CDadosCli ) ELSE // Em caso de alterações Utilizando em array // Em caso de alterações de todo o banco aDadosCli := SqlArray( "SELECT codigo,nome FROM clientes ") // Caso queira alterar um unico registro aDadosCli := SqlArray( "SELECT codigo,nome FROM clientes WHERE codigo = " + Str(codigo desejado) ) // Em caso de alterações de todo o banco nTotDadosCli := Len( aDadosCli ) FOR nDadosCli := 1 TO nTotDadosCli CDadosCli := "UPDATE clientes SET nome = 'cliente' " + Alltrim(Str(nDadosCli)) + " WHERE codigo = " + Str( aDadosCli[nDadosCli,1] ) SqlExecute( CDadosCli ) NEXT // Da pra fazer a mesma coisa com arquivos Use SQL ( CDadosCli ) Alias ( Lower(_Nome_Do_Alias) ) NEW VIA [MYSQL] INTO NumeroDaconexao _Nome_Do_Alias->(DbGoTop()) DO WHILE !_Nome_Do_Alias ->(Eof()) CDadosCli := "UPDATE clientes SET nome = 'cliente'" + Alltrim(Str(_Nome_Do_Alias->Codigo)) + " WHERE codigo = " + Str( _Nome_Do_Alias->Codigo ) SqlExecute( CDadosCli ) _Nome_Do_Alias->(DbSkip()) ENDDO Close _Nome_Do_Alias ENDIF PARA DELETAR // Geral caDadosCli := "DELETE FROM cliente " // Um unico registro caDadosCli := "DELETE FROM clientes WHERE codigo = " + Str( codigo desejado ) SqlExecute( CDadosCli ) Oscar. Ressaltando que isso é um exemplo bem tosco somente para ilustrar que no meu entendimento mesmo que use um rdd entendo que o melhor é ir ajustando para os comandos reais.Aproveite o rdd somente para entender como funciona mas vá ajustando da maneira correta. Espero que ajude

Oscar. Te diria o seguinte. Não olhei os exemplos que o Vilian sugeriu acima mas caso vc venha utilizar sql te oriento a utilizar os comandos nativos como insert, update, delete. A curva de aprendizado é pequena sendo que o ganho depois é muito bom.