wmsoft

Bem venho agradecer a alguns me me deram uma grande força para a NF-e a saber: Gilmer Kleyber Derick Vitor Jeferson Seus esclarecimentos me foram muito uteis, valeu mesmo a força. Washington Guimarães FWH 906, xHarbour 1.2.1, PelleC, xDev, SQLLIB

Tenho um cliente com um sistema em Clipper dbfntx dai uso uma novo projeto acessando a mesma base e indice, o segredo é não indexar pelo fivewin caso tenha necessidade. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Olhando pela net achei algo interessante e achei bom compartilhar com meus colegas aqui do forum. Boleto Bancario em PHP http://www.boletophp.com.br/ Boa pesquisa para todos Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Olhando pela net achei algo interessante e achei bom compartilhar com meus colegas aqui do forum. Boleto Bancario em PHP http://www.boletophp.com.br/ Boa pesquisa para todos Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Bem a ideia é interessante sim, qual hotel, valores lá, tem algumas informações? Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org) Editado por - wmsoft on 11/05/2009 08:42:08

Boa notícia eu estava usando aqui uma mas de classe de terceiros. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Bom dia, Para quem estiver precisando vale apena. http://under-linux.org/b792-treinamento-line-gratuito-de-introducao-ao-slackware-linux Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Bom dia, Para quem estiver precisando vale apena. http://under-linux.org/b792-treinamento-line-gratuito-de-introducao-ao-slackware-linux Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Gilson eu faço assim Defino a dimenssão da figura aVetPix := oPrn:Cmtr2Pix(14.0,9.5) //Tamanho - Largura cTexto := ".\bitmaps\Cracha.bmp" oPrn:SayBitmap(Linquevcquer,Colquevcquer,cTexto,aVetPix[2],aVetPix[1]) Braços Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Estou te mandando um modelo de um projeto meu... -------------------------------------------------- ; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! [setup] AppName=Sistema de Automação Comercial AppVerName=LojaWin 3.7 AppPublisher=WMSoft Informática Empresarial Ltda AppPublisherURL=http://www.wmsoft.com.br AppSupportURL=http://www.wmsoft.com.br AppUpdatesURL=http://www.wmsoft.com.br DefaultDirName=c:\LojaWin DefaultGroupName=Loja for Windows OutputBaseFilename=LojaWinXP Compression=lzma SolidCompression=yes [Languages] Name: "por"; MessagesFile: "compiler:Languages\Portuguese.isl" [Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Files] Source: "C:\Software\LojaWin\LojaWin.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\Bancos.txt"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\Acordo.txt"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\BemaFI32.ini"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\BemaFI32.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\prev32.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\BITMAPS\*"; DestDir: "{app}\BITMAPS"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\DLL\*"; DestDir: "{app}\DLL32"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\DLL32\32x32\*"; DestDir: "{app}\DLL32\32x32"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\FOTOS\*"; DestDir: "{app}\FOTOS"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\WEBCAM\*"; DestDir: "{app}Source: "C:\Software\SacWinXP\UTILIT\FOXPLUS\*"; DestDir: "{sys}"; Flags: ignoreversion recursesubdirs ; NOTE: Don't use "Flags: ignoreversion" on any shared system files [icons] Name: {group}\LojaWin; Filename: {app}\LojaWin.exe; WorkingDir: {app} Name: {userdesktop}\LojaWin; Filename: {app}\LojaWin.exe; WorkingDir: {app} Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Estou te mandando um modelo de um projeto meu... -------------------------------------------------- ; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! [setup] AppName=Sistema de Automação Comercial AppVerName=LojaWin 3.7 AppPublisher=WMSoft Informática Empresarial Ltda AppPublisherURL=http://www.wmsoft.com.br AppSupportURL=http://www.wmsoft.com.br AppUpdatesURL=http://www.wmsoft.com.br DefaultDirName=c:\LojaWin DefaultGroupName=Loja for Windows OutputBaseFilename=LojaWinXP Compression=lzma SolidCompression=yes [Languages] Name: "por"; MessagesFile: "compiler:Languages\Portuguese.isl" [Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Files] Source: "C:\Software\LojaWin\LojaWin.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\Bancos.txt"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\Acordo.txt"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\BemaFI32.ini"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\BemaFI32.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\prev32.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Software\LojaWin\BITMAPS\*"; DestDir: "{app}\BITMAPS"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\DLL\*"; DestDir: "{app}\DLL32"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\DLL32\32x32\*"; DestDir: "{app}\DLL32\32x32"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\FOTOS\*"; DestDir: "{app}\FOTOS"; Flags: ignoreversion recursesubdirs Source: "C:\Software\LojaWin\WEBCAM\*"; DestDir: "{app}Source: "C:\Software\SacWinXP\UTILIT\FOXPLUS\*"; DestDir: "{sys}"; Flags: ignoreversion recursesubdirs ; NOTE: Don't use "Flags: ignoreversion" on any shared system files [icons] Name: {group}\LojaWin; Filename: {app}\LojaWin.exe; WorkingDir: {app} Name: {userdesktop}\LojaWin; Filename: {app}\LojaWin.exe; WorkingDir: {app} Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Tem como vc colocar como montou o script de compilação para que fique mais facil de visualizar o que está acontecendo? Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

[icons] Name: {group}\SacwinXP; Filename: {app}\SacwinXP.exe; WorkingDir: {app}; IconFilename: {app}\Sacwin.ico; IconIndex: 0 [Run] Filename: "{app}\SacwinXP.exe"; Description: "{cm:LaunchProgram,Sistema de Automação Comercial}"; Flags: nowait postinstall skipifsilent Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Obrigado José o cliente tinha me mostrado umas coisas usando até a Net discada no TS com o sistema nativo em Clipper e fiquei encantado com a performace. Mas de qualquer sorte as respostas aqui já me nortearam o melhor caminho. Abraços. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Robson obrigado pelo resposta e a todos tb, acho que migrar para MySql será realmente a melhor alternativa para meu cliente. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Boa tarde, Pessoal peguei um projeto novo só que meu cliente tem o sistema dele trabalhando através de TS com servidores 2003, a minha pergunta é a seguinte um sistema em modo Gráfico no TS fica boa a peformance ou é melhor migrar para MySql o sistema dele. Grato. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Boa tarde, Pessoal peguei um projeto novo só que meu cliente tem o sistema dele trabalhando através de TS com servidores 2003, a minha pergunta é a seguinte um sistema em modo Gráfico no TS fica boa a peformance ou é melhor migrar para MySql o sistema dele. Grato. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Primeiramente seja bem vindo ao melhor forum do mundo, dá uma olhada nas postagens anteriores e também em dicas, muita coisa consiguir fazer só me baseando em respostas anteriores e olhando as dicas. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Primeiramente bem vindo ao forum, eu ainda não estou com essa ferrari (como diz Kapiaba), mas com certeza é coisa boa. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Quem não tem colírio usa óculos escuro, rs. Fiz uma gambiarra e resolvi. //oPrn:SayBitmap((wBase * nRow ), (nTab-nSpc)-150, ".\bitmaps\CARTEIRA.bmp", (30*nSpc)-80, (10*nRow)) aVetPix := oPrn:Cmtr2Pix(4.0,6.1) //Tamanho - Largura cTexto := ".\bitmaps\CARTEIRA.bmp" cTexto2 := ".\bitmaps\VAZIO.bmp" oPrn:SayBitmap((nRow*(wBase)-40),(nTab+(1*nSpc))-250,cTexto2,aVetPix[2],aVetPix[1]) oPrn:SayBitmap((nRow*(wBase)-40),(nTab+(1*nSpc))-250,cTexto,aVetPix[2],aVetPix[1]) Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Eu estou fazendo a impressão de uma carteira a primeira impressão sai certinha a segunda a imagem sai sobreposta uma no tamanho normal e uma figura em cima de tamanho menor, vou postar o código aqui: Na imagem acho que fica mais claro o que estou falando, vejam a primeira e segunda carteira (detalhe no preview está completamente normal). PRINTER oPrn NAME "Carteira" PREVIEW oPrn:SetPortrait() DEFINE FONT oFon1 NAME "Courier New" SIZE 0, -10 OF oPrn DEFINE FONT oFon2 NAME "Courier New" SIZE 0, -9 OF oPrn DEFINE FONT oFon3 NAME "Courier New" SIZE 0, -14 OF oPrn DEFINE FONT oFon4 NAME "Courier New" SIZE 0, -22 OF oPrn DEFINE FONT oFon5 NAME "Courier New" SIZE 0, -5 BOLD OF oPrn DEFINE FONT oFon6 NAME "Courier New" SIZE 0, -7 BOLD OF oPrn DEFINE FONT oSayBar NAME "IDAutomationHC39M" SIZE 0, -70 oFon4 := TFont():New( "ARIAL", 0, -10, .F.,.t.,900,-2,,,,,,,,,oPrn ) DEFINE PEN oPen COLOR CLR_BLACK WIDTH (oFon1:nHeight/10) OF oPrn nPag := 1 nTab := oPrn:nHorzRes()/20 nSpc := (oPrn:nHorzRes()-(2*nTab)) / 90 nRow := oFon1:nHeight nMid := oPrn:nVertRes() / 2 oPrn:StartPage() ITEMCODE->(DBCLEARFIL(NIL)) SET FILTER TO ITEMCODE->SELECT = .T. ITEMCODE->(DbGoTop()) if ITEMCODE->(EOF()) MsgAlert("Nenhum registro foi selecionado") ITEMCODE->(DBCLEARFIL(NIL)) ITEMCODE->(DbGoTop()) oCt3:UpStable() oCt3:Refresh() RETURN NIL endif wBase:=02 while !ITEMCODE->(EOF()) oPrn:SayBitmap((wBase * nRow ), 42.64, ".\bitmaps\CARTEIRA.bmp", 1364.8, 820.80 ) if Len(Trim(ITEMCODE->ITEM02)) > 26 oPrn:Say( (nRow*(wBase+3.5)),(nTab+(1*nSpc))-150,Left(ITEMCODE->ITEM02,26), oFon2) oPrn:Say( (nRow*(wBase+4.5)),(nTab+(1*nSpc))-150,Right(ITEMCODE->ITEM02,14), oFon2) else oPrn:Say( (nRow*(wBase+3.5)),(nTab+(1*nSpc))-150,ITEMCODE->ITEM02, oFon2) endif if !empt(ITEMCODE->ITEM03) oPrn:Say( (nRow*(wBase+4.5)),(nTab+(22*nSpc))-150,ITEMCODE->ITEM03, oFon5) endif oPrn:Say( (nRow*(wBase+5.5)),(nTab+(10*nSpc))-150,"Vencimento: "+TRANS(ITEMCODE->ITEM04, "@D 99/99/9999"), oFon6,,nRgb(0,0,255)) oPrn:Say( (nRow*(wBase+7)),(nTab-(1))-150,"Nascimento", oFon5,,nRgb(0,0,0)) oPrn:Say( (nRow*(wBase+8)),(nTab-(1))-150,TRANS(ITEMCODE->ITEM05, "@D 99/99/9999"), oFon5) oPrn:Say( (nRow*(wBase+1.5)),(nTab+(18*nSpc))-150,"Plano: "+ TRIM(ITEMCODE->ITEM07), oFon2) oPrn:Say( (nRow*(wBase+6.5)),(nTab+(4*nSpc))-150,Padc("("+ALLTRIM( ITEMCODE->ITEM06 )+")",17), oSayBar) ITEMCODE->(DBSKIP(1)) wBase:=(wBase+11) if wBase >= 79 wBase:=02 oPrn:EndPage() oPrn:StartPage() endif end oPrn:EndPage() oPrn:Preview() RELEASE FONT oFon1, oFon2, oFon3, oFon4, oFon5, oFon6 ITEMCODE->(DBCLEARFIL(NIL)) ITEMCODE->(DbGoTop()) oCt3:UpStable() oCt3:Refresh() Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org) Editado por - wmsoft on 09/04/2009 19:46:42

Eu estou fazendo a impressão de uma carteira a primeira impressão sai certinha a segunda a imagem sai sobreposta uma no tamanho normal e uma figura em cima de tamanho menor, vou postar o código aqui: Na imagem acho que fica mais claro o que estou falando, vejam a primeira e segunda carteira (detalhe no preview está completamente normal). PRINTER oPrn NAME "Carteira" PREVIEW oPrn:SetPortrait() DEFINE FONT oFon1 NAME "Courier New" SIZE 0, -10 OF oPrn DEFINE FONT oFon2 NAME "Courier New" SIZE 0, -9 OF oPrn DEFINE FONT oFon3 NAME "Courier New" SIZE 0, -14 OF oPrn DEFINE FONT oFon4 NAME "Courier New" SIZE 0, -22 OF oPrn DEFINE FONT oFon5 NAME "Courier New" SIZE 0, -5 BOLD OF oPrn DEFINE FONT oFon6 NAME "Courier New" SIZE 0, -7 BOLD OF oPrn DEFINE FONT oSayBar NAME "IDAutomationHC39M" SIZE 0, -70 oFon4 := TFont():New( "ARIAL", 0, -10, .F.,.t.,900,-2,,,,,,,,,oPrn ) DEFINE PEN oPen COLOR CLR_BLACK WIDTH (oFon1:nHeight/10) OF oPrn nPag := 1 nTab := oPrn:nHorzRes()/20 nSpc := (oPrn:nHorzRes()-(2*nTab)) / 90 nRow := oFon1:nHeight nMid := oPrn:nVertRes() / 2 oPrn:StartPage() ITEMCODE->(DBCLEARFIL(NIL)) SET FILTER TO ITEMCODE->SELECT = .T. ITEMCODE->(DbGoTop()) if ITEMCODE->(EOF()) MsgAlert("Nenhum registro foi selecionado") ITEMCODE->(DBCLEARFIL(NIL)) ITEMCODE->(DbGoTop()) oCt3:UpStable() oCt3:Refresh() RETURN NIL endif wBase:=02 while !ITEMCODE->(EOF()) oPrn:SayBitmap((wBase * nRow ), 42.64, ".\bitmaps\CARTEIRA.bmp", 1364.8, 820.80 ) if Len(Trim(ITEMCODE->ITEM02)) > 26 oPrn:Say( (nRow*(wBase+3.5)),(nTab+(1*nSpc))-150,Left(ITEMCODE->ITEM02,26), oFon2) oPrn:Say( (nRow*(wBase+4.5)),(nTab+(1*nSpc))-150,Right(ITEMCODE->ITEM02,14), oFon2) else oPrn:Say( (nRow*(wBase+3.5)),(nTab+(1*nSpc))-150,ITEMCODE->ITEM02, oFon2) endif if !empt(ITEMCODE->ITEM03) oPrn:Say( (nRow*(wBase+4.5)),(nTab+(22*nSpc))-150,ITEMCODE->ITEM03, oFon5) endif oPrn:Say( (nRow*(wBase+5.5)),(nTab+(10*nSpc))-150,"Vencimento: "+TRANS(ITEMCODE->ITEM04, "@D 99/99/9999"), oFon6,,nRgb(0,0,255)) oPrn:Say( (nRow*(wBase+7)),(nTab-(1))-150,"Nascimento", oFon5,,nRgb(0,0,0)) oPrn:Say( (nRow*(wBase+8)),(nTab-(1))-150,TRANS(ITEMCODE->ITEM05, "@D 99/99/9999"), oFon5) oPrn:Say( (nRow*(wBase+1.5)),(nTab+(18*nSpc))-150,"Plano: "+ TRIM(ITEMCODE->ITEM07), oFon2) oPrn:Say( (nRow*(wBase+6.5)),(nTab+(4*nSpc))-150,Padc("("+ALLTRIM( ITEMCODE->ITEM06 )+")",17), oSayBar) ITEMCODE->(DBSKIP(1)) wBase:=(wBase+11) if wBase >= 79 wBase:=02 oPrn:EndPage() oPrn:StartPage() endif end oPrn:EndPage() oPrn:Preview() RELEASE FONT oFon1, oFon2, oFon3, oFon4, oFon5, oFon6 ITEMCODE->(DBCLEARFIL(NIL)) ITEMCODE->(DbGoTop()) oCt3:UpStable() oCt3:Refresh() Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org) Editado por - wmsoft on 09/04/2009 19:46:42

Muito show, gostei do visual Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Também não posso ficar de fora, Gilmer prestou um excelente suporte. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)

Boa tarde, conseguiram achar uma solução para esse dilema entre os programas em 32Bits e programas do banco? Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org)