ecmsoft

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

Luis, você mesmo pode criar o digito verificador. Só resta saber qual a forma de calcular o digito verificador. Não existem muitas formas. Se for realmente isso que você está precisando, me fala que eu te mando algumas funções prontas. 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 |

Já coloquei em dicas. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | NF-e |

Estou fazendo mais alguns testes. Depois vou colocar em Dicas. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | NF-e |

Eu também tive o mesmo problema. Consegui resolver, porém, tive que "armengar" a classe tWebCam. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF | NF-e |

Marcio, eu não entendi direito a sua dúvida. Veja se é isso que você quer ? Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Olá Roberio, eu não entendo muito da legislação tributária, por isso não vou me atrever a discutir esse assunto. Em relação ao seu sistema, o seu cliente pode escolher o CST/CSOSN na hora de lançar os produtos ? Se tiver, deixa por conta do contador e o cliente. Se não tiver, acho melhor você disponibilizar. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Estou precisando desenvolver uma aplicação para Pocket PC com acesso a rede WiFi. Porém, o banco de dados é MySQL. Antes de adquirir o FiveWin for Pocket PC, gostaria de saber se o FW tem funções de acesso ao banco SQL, uma vez que a SQLLib não tem suporte ao Sistema Operacional do PPC. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Estou precisando desenvolver uma aplicação para Pocket PC com acesso a rede WiFi. Porém, o banco de dados é MySQL. Antes de adquirir o FiveWin for Pocket PC, gostaria de saber se o FW tem funções de acesso ao banco SQL, uma vez que a SQLLib não tem suporte ao Sistema Operacional do PPC. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Seria bom se os colegas colocassem a cidadee/estado no seu perfil. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Joao, vc já verificou a DLL prev32.dll que vc está usando ? Se não me engano, houve mudanças.... Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Na verdade, você terá o mesmo sistema em duas camadas: - Uma utilizando a WEB - A outra um aplicativo desktop Compartilhando o mesmo banco de dados. Nesse caso, um sistema não influenciaria no outro, desde que, bem projetados. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Tem sim ! SQL,DBF...Sem problemas ! <?php // open in read-only mode $db = dbase_open('/tmp/test.dbf', 0); if ($db) { // read some data .. dbase_close($db); } ?> id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Use a classe do Diego: Exemplo:id=red> Function nomedafuncao() local ws:=TdWebService():new() cRetorno:= ws:OpenWS("http://") msginfo(cRetorno) RETURN Segue a baixo, a classeid=red> #include "fivewin.ch" #include "dll.ch" Static xDLL ***************************** CLASS TdWebService DATA hOpen DATA sbuffer HIDDEN DATA xDLL HIDDEN METHOD New(buffersize) CONSTRUCTOR METHOD OpenWS(url) METHOD End() ENDCLASS ***************************** METHOD New(conexion,buffersize) CLASS TdWebService DEFAULT buffersize:=3200 ::sbuffer:=buffersize xDll:=LoadLib32("wininet.dll") ::hOpen = InternetOpen("TdWebService", 1,,, 0) RETURN Self ***************************** METHOD OpenWS(url) CLASS TdWebService local hFile,ret,xml hFile = InternetOpenUrl(::hOpen, url,"",0,,0) xml:=space(::sbuffer) InternetReadFile(hFile, @xml, ::sbuffer, @Ret) return(xml) //subst(alltrim(xml),1,len(alltrim(xml))-5) ***************************** METHOD End() CLASS TdWebService FreeLib32(xDll) return nil ***************************** DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,; n4 AS DWORD ) AS LONG PASCAL ; FROM "InternetOpenA" LIB xdll Dll32 Function InternetReadFile(hFile As 7, @sBuffer As 8, lNumBytesToRead As 7, @lNumberOfBytesRead As 7) As 7 PASCAL Lib xdll Dll32 Function InternetOpenUrl(hInternetSession As 7, lpszUrl As 8, lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM "InternetOpenUrlA" PASCAL Lib xdll DLL32 FUNCTION InternetCloseHandle( hSession AS LONG ) AS BOOL PASCAL LIB xdll Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

A versão mais atualizada do FiveWin vem com a classe button incrementada. Ficou muito bom ! Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Eu consegui fazer uma rotina de boleto bancário para os bancos: - ITAU - CAIXA - BRADESCO más dá muito trabalho ! Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Olá Maurício. Você não pode desconsiderar o desenvolvimento do TEF em sua aplicação a partir desse texto, uma vez que, o texto em momento nenhum fala em proibir o uso do TEF. Somente possibilita a impressão do comprovante fora do ECF, porém, a transação TEF deverá continuar sendo feita pela aplicação. Não vou comentar mais, porque não li o decreto na íntegra. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Valeu Vailton ! show de bola. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB

Não estou conseguindo definir a largura da coluna de uma planilha no Excel. Vejam o exemplo que estou usando: #include "FiveWin.ch" function Main() local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) oSheet:Range( "A1" ):Value = "Last Name" oSheet:Range( "B1" ):Value = "First Name" oSheet:Range( "A1:B1" ):Font:Bold = .T. oSheet:Range( "A2" ):Value = "Doe" oSheet:Range( "B2" ):Value = "John" oBook:SaveAs( CurDrive() + ":\" + CurDir() + "\Book1.xls" ) oExcel:Visible = .T. MsgInfo( "ok" ) return nilid=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6417) | BCC 5.82 | SQLLIB

Não estou conseguindo definir a largura da coluna de uma planilha no Excel. Vejam o exemplo que estou usando: #include "FiveWin.ch" function Main() local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) oSheet:Range( "A1" ):Value = "Last Name" oSheet:Range( "B1" ):Value = "First Name" oSheet:Range( "A1:B1" ):Font:Bold = .T. oSheet:Range( "A2" ):Value = "Doe" oSheet:Range( "B2" ):Value = "John" oBook:SaveAs( CurDrive() + ":\" + CurDir() + "\Book1.xls" ) oExcel:Visible = .T. MsgInfo( "ok" ) return nilid=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6417) | BCC 5.82 | SQLLIB

Ok Vailton, tô aguardando. O problema é que atualizei a versão do FW for xHarbour, e não tenho a nova LIB SQLLIB. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6406) | BCC 5.82 | SQLLIB

Tô precisando da versão comerical da SQLLIB, mas não consigo contato. Já tentei o site www.sqlllib.com.br, vendas@fivewin.com.br, vailtom@bol.com.br, renato@kssoftware.com.br, mas não obtive resposta. Se alguem souber outro caminho, por favor me informe. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6406) | BCC 5.82 | SQLLIB Editado por - ecmsoft on 20/06/2011 20:47:38

Tô precisando da versão comerical da SQLLIB, mas não consigo contato. Já tentei o site www.sqlllib.com.br, vendas@fivewin.com.br, vailtom@bol.com.br, renato@kssoftware.com.br, mas não obtive resposta. Se alguem souber outro caminho, por favor me informe. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6406) | BCC 5.82 | SQLLIB Editado por - ecmsoft on 20/06/2011 20:47:38

Eu utilizo cores dentro de variáveis públicas, para cada componente de uma dialog, inclusive a própria dialog. Assim, para eu mudar as cores do sistema, basta redefinir as variáveis. Por exemplo: cCorTextoGet=nRGB(62,111,159) cCorFundoGet=nRGB(62,111,159) REDEFINE GET oGet VAR dData ID 101 OF oDlg COLOR cCorTextoGet,cCorFundoGet FONT oFontM8id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6406) | BCC 5.82 | SQLLIB

Samir, eu ainda não tentei com msgrun(), porém, não acontece sempre. Somente quando tem muito movimento no ECF. Partindo do principio do problema, acredito que, mesmo com o MsgRun(), o comando ReducaoZ() vai continuar devolvendo o controle ao aplicativo, antes do final completo da impressão da redução Z. Nesse caso, teoricamente, o problema continuaria. Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6406) | BCC 5.82 | SQLLIB