ecmsoft

Olá colegas, Como faço para emitir uma mensagem no canto direito da barra de tarefas, perto do relogio do windows ? Essa mensagem tem que aparecer e sumir em X segundos. O meu programa vai rodar com TrayIcon, executando um timer e verificando se há mensagens novas e mostrando-as ao operador, porém, não quero que essa mensagem atrapalhe o que ele está fazendo, pois vou emitir uma viso sonoro para ele. Marciano Queiroz Teixeira de Freitas-Ba FW 10.12 + xHb 1.2.1 | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria | Ret.XML NF-e Editado por - ecmsoft on 25/05/2012 14:36:34

Olá colegas, Como faço para emitir uma mensagem no canto direito da barra de tarefas, perto do relogio do windows ? Essa mensagem tem que aparecer e sumir em X segundos. O meu programa vai rodar com TrayIcon, executando um timer e verificando se há mensagens novas e mostrando-as ao operador, porém, não quero que essa mensagem atrapalhe o que ele está fazendo, pois vou emitir uma viso sonoro para ele. Marciano Queiroz Teixeira de Freitas-Ba FW 10.12 + xHb 1.2.1 | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria | Ret.XML NF-e Editado por - ecmsoft on 25/05/2012 14:36:34

Roni, mostre as variaveis na tela para ver os valores que aparecem. Talvez assim, você consiga desvendar. Function CalcPr(nVr,dDt) * LOCAL nValor, nDiaVerific, nDiasAtraso ? 'Parametros da função:',nVr,dDtid=red> * nDiaVerific := Date() - dDt nDiasAtraso := Date() - dDt ? 'Variaveis DATE(),dDT,nDiaVerific,nDiasAtraso:',date(),dDt,nDiaVerific,nDiasAtrasoid=red> * If nDiaVerific >= 10 ? 'Variavel nJDebito',nJDebito id=red> nValor := nVr * (nJDebito * nDiasAtraso) / 100 + nVr ? 'Os juros foram calculados'id=red> Else nValor := nVr ? 'Não houve juros'id=red> End * Return(nValor) Marciano Queiroz Teixeira de Freitas-Ba FW 10.12 + xHb 1.2.1 | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria | Ret.XML NF-e

Eu gero todos os registros do mesmo contribuinte em um só arquivo mensal, independente da quantidade de ECF´s e independete da quantidade de registros. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Rochia, obrigado pela Resposta ! Pelo que vi, o acesso que você me mandou é através do WebService da CONSULTACPF. Teria como eu consultar diretamente no Servidor SERASA ? Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Estou precisando fazer consulta SERASA via aplicação. Pode ser em xHB ou PHP. Considerando que o cliente já tenha login e senha, gostaria de consultar o CPF/CNPJ ou CHEQUE. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Estou precisando fazer consulta SERASA via aplicação. Pode ser em xHB ou PHP. Considerando que o cliente já tenha login e senha, gostaria de consultar o CPF/CNPJ ou CHEQUE. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Estou precisando inserir uma assinatura digital em um documento PDF que a SEFAZ-BA tá pedindo para cadastrar o PAF. Alguem já fez isso ? O certificado digital eu já tenho, mas não sei por onde começar. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria Editado por - ecmsoft on 06/03/2012 15:12:54

Estou precisando inserir uma assinatura digital em um documento PDF que a SEFAZ-BA tá pedindo para cadastrar o PAF. Alguem já fez isso ? O certificado digital eu já tenho, mas não sei por onde começar. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria Editado por - ecmsoft on 06/03/2012 15:12:54

O que você pretende fazer com isso ? Se você optar por usar uma matriz de dados na xBrowse deve resolver. Tipo: vCalculo1:=aVetor[nLinha][nColuna]id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Ari, eu uso a HBZIP() do xharbour sem nenhum problema, com FW 10.12 + BCC582 + xHb 1.2.1. Basta incluir a lib HBZIP.LIB no seu projeto. \xhb121\lib\hbzip.libid=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Ari, o HBZIP.LIB já vem no diretorio do xHarbour. Talvez o problema esteja com o seu SCRIPT de compilação. Se você estiver utilizando o mesmo SCRIPT que utilizava para compilar com a versão anterior do FW, tente utilizar o SCRIPT que vem na pasta SAMPLES do FW1012, adaptando-o às suas necessidades.(BULDX.BAT). Isso aqui por exemplo, parece meio estranho: Error: Unresolved external '_HB_FUN_LOG10' referenced from C:\FWH912\LIB\FIVEHX.LIBid=red>|VALTOSTR Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Narlem, eu utilizo a TdosPRN(). +- assim: cPorta := PrnGetPort() cPrinter := PrinterPortToName( cPorta ) if empty(cPrinter) cPrinter := PrinterPortToName( "USB002" ) if empty(cPrinter) cPrinter := PrinterPortToName( "USB001" ) endif endif oPrn := TDosPrn():New(cFile) oPrn:StartPage() nLinha:=1 For A=1 to len(aVetRecibo) oPrn:Say(nlinha,1, aVetRecibo[a]) nLinha++ Next oPrn:EndPage() oPrn:Say(0,0, CHR(27)+'m' ) oPrn:End() PrintFileRaw( cPrinter, TrueName(cFile), cTitulo) id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Marcio, você não está conseguindo ler produtos, porque a rotina do Laiton tá dando pau mesmo ! Eu desisti logo de primeira, e comprei a classe do Gilmer, e já estou com a rotina de captura da NF-e prontinha. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

MARSAN, eu faço assim: Capturo as formas de pagamento cadastradas no ECF, antes de emitir o cupom fiscal. Assim, não vou ter problemas. Além disso, utilizo esses dados para o relatorio de meios de pagamento do PAF-ECF, armazenando-os eu meu banco de dados. Mesmo assim, se você precisar utilizar índice, crie você mesmo os índices dentro de uma matriz e exiba-os em sua interface, mas sempre coloque no comando de impressão do cupom, a forma de pagamento por extenso. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Se for com a DARUMA32.DLL, fica assim: Daruma_FI_VendeItem('5533', "DESCRICAO DO PRODUTO", "FF", "F", 1, 2,Transf(12.50,"@E 99999.999") , "%", transf(15,"@E 99.99") )id=red> DLL32 FUNCTION Daruma_FI_VendeItem( Codigo AS STRING,Descricao AS STRING,Aliquota AS STRING,TpQte AS STRING,Quantid AS STRING,Decimal AS 7 ,ValUnit AS STRING,TpDesc AS STRING,ValDesc AS STRING ) AS LONG PASCAL LIB "daruma32.dll" Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Para cada controle/objeto você poderá definir a cor e a fonte desejada. O ideal é você definir as fontes e cores em variáveis, e utilizá-las no seu sistema. Exemplo: - Para um objeto GET, você definirá a fonte e a cor dessa maneira: // Aqui você declara as variáveis públicas para as cores e a fonte PUBLIC cor_texto:=nRGB(255,255,215) Public cor_fundo:=nRGB(242,101,85) DEFINE FONT oFontGet NAME "Arial" SIZE 7,21 BOLD // Aqui você declara um controle GET, usando RESOURCE.id=blue> REDEFINE GET oGetNome VAR cNome ID 101 OF oDlg COLOR cor_texto,cor_fundo FONT oFontGet id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Daniel, pelo que ví a WinDev é bem bompleta. Pelos quesitos: Multiplataforma e Custo alto, não seria melhor usar JAVA ? Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Leco, poste as suas dúvidas, talvéz alguem possa te ajudar ! Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Acho que algumas pessoas estão misturando as coisas. Eu participo desse forum há um bom tempo, e nunca ví coisa parecida com o que o DonJuan está fazendo. Ele está bombardeando todo mundo com seus SPAMS. Se é para ajudar uns aos outros, eu concordo plenamente, porém, se alguem tem algum problema pessoal, por favor exponha-o, que talvez uma alma caridosa possa ajudá-lo com certeza. Se for problema financeiro, quem sabe, cada um dando um pequeno valor, possamos amnenizar um problema financeiro de um colega nosso. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Não mudou muita coisa ! REDEFINE FOLDEREX oFolder ID 101 OF odlg PROMPT "&Ficha" DIALOGS "DLG_CLIENTE" OPTION nOp ROUND 5 ofolder:aenable[1]=.t. oFolder:aDialogs[1]:Enable() oFolder:aDialogs[1]:Setbrush(oBrush) REDEFINE GROUP oGrp1 ID 180 COLOR CLR_BLACK OF oFolder:aDialogs[1] prompt "Tipo" . . . ACTIVATE DIALOG oDlg CENTERED No arquivo de recursos você deve declarar a classe: CONTROL "", 101, "TFolderex", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 2, 60, 438, 179 id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria

Amigo, PHP sem sombra de dúvidas ! Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | TEF | NF-e | PBM´s |

Devido a limitação de plataforma e de banco de dados. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | TEF | NF-e | PBM´s |

Desisti de usar o FivePocket PC. Estou utilizando PHP e faço o acesso através do navegador. Assim, funciona em qualquer plataforma. Sem contar que o PHP dá suporte aos bancos de dados mais usados. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | TEF | NF-e | PBM´s |

Olá a todos ! Estou desenvolvendo uma aplicação para Pocket PC com Windows Mobile. Utilizo a (MySQLMobile.LIB/MySQLMobile.DLL) para me conectar ao banco de dados MySQL. Já está tudo funcionando, porém, estou com a versão Trial da MySQLMobile. Alguem sabe onde compro a versão Full. Já procurei em tudo quanto é lugar e não achei. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | TEF | NF-e | PBM´s | Editado por - ecmsoft on 23/11/2011 19:30:47