ronaldo

exemplo: se vc colocar a tecla de atalho dentro do proprio Atalho que vc criou para chamar o sistema! veja se funciona.... Ronaldo Minacapelli (11) 6950 3069

use a funcao AT() ... Ronaldo Minacapelli (11) 6950 3069

Nada melhor como o conhecimento. é muito bom aprende-lo, porem, o fivewin eu trabalho com ele e ainda utilizao: winasp, sqllib e não tenho problema em trabalho on line ou fazer o site pegar os dados do sistema... EU CONTINUO COM FIVEWIN e olha que programa no Visual Basic e prefiro FIVEWIN... "acho que a opção de liberdade dos fontes" ... Ronaldo Minacapelli (11) 6950 3069

Isto é intriga... voc~es usam o windows VISTO o dis inteiro, as telas são escuras e ninguem reclama.... manda esta tela que esta show. Ronaldo Minacapelli (11) 6950 3069

Trabalho com sistema para imobiliaria a mais de 12 anos, tenho 4 sistemas o valor varia de 650,00 a 850 isso para 1 computador, pois vendo 160,00 (cada licença) e ainda cobro a manutenção de que varia tb conforme o numero de maquinas, para uma maquina cobro 65,00 (com direito a suporte e atualizacoes) *** Se você levar por esse lado a Microsoft daria de graça o Windows visto que o LINUX é gratuito !mas quase niguem usa" Ronaldo Minacapelli (11) 6950 3069

Na verdade somente quero saber porque não consigo aumentar o tamanho da 2º coluna com o comando informado ColWodth(0)? Ronaldo Minacapelli (11) 6950 3069

No codigo abaix: não esto consegundo alterar o tamanho da 2º coluna. esta como o Visual basic, onde posso ter errado: #include "FiveWin.ch" function Main() local oWnd, oActiveX,nLin, I DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" oActiveX := TActiveX():New( oWnd, "MSFlexGridLib.MSFlexGrid.1" ) oActiveX:nLeft:=10 oActiveX:nWidth := 510 oActiveX:SetProp( "ColWidth(0)",500 ) oActiveX:SetProp( "BackColor", CLR_HRED ) oActiveX:SetProp( "Cols", 2 ) oActiveX:SetProp( "ColWidth(0)", 200 ) oActiveX:SetProp( "ColWidth(1)", 400 ) FOR I=0 TO 5 oActiveX:Do( "AddItem", "") oActiveX:SetProp( "Row", I ) oActiveX:SetProp( "Col", 0 ) oActiveX:SetProp( "Text", "Código "+strzero(I)) oActiveX:SetProp( "Col", 1 ) oActiveX:SetProp( "Text", "Nome "+Str(I,2)) NEXT ACTIVATE WINDOW oWnd return nil Ronaldo Minacapelli (11) 6950 3069

No codigo abaix: não esto consegundo alterar o tamanho da 2º coluna. esta como o Visual basic, onde posso ter errado: #include "FiveWin.ch" function Main() local oWnd, oActiveX,nLin, I DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" oActiveX := TActiveX():New( oWnd, "MSFlexGridLib.MSFlexGrid.1" ) oActiveX:nLeft:=10 oActiveX:nWidth := 510 oActiveX:SetProp( "ColWidth(0)",500 ) oActiveX:SetProp( "BackColor", CLR_HRED ) oActiveX:SetProp( "Cols", 2 ) oActiveX:SetProp( "ColWidth(0)", 200 ) oActiveX:SetProp( "ColWidth(1)", 400 ) FOR I=0 TO 5 oActiveX:Do( "AddItem", "") oActiveX:SetProp( "Row", I ) oActiveX:SetProp( "Col", 0 ) oActiveX:SetProp( "Text", "Código "+strzero(I)) oActiveX:SetProp( "Col", 1 ) oActiveX:SetProp( "Text", "Nome "+Str(I,2)) NEXT ACTIVATE WINDOW oWnd return nil Ronaldo Minacapelli (11) 6950 3069

veja se no win98 esta instalado o protocolo de rede IPX Ronaldo Minacapelli (11) 6950 3069

No meu ramo de imobiliaria. meus clientes fazem normal. para você ter ideia eu somente crio o arquivo e eles entram no site e fazem a importação... Ronaldo Minacapelli (11) 6950 3069

Peguei neste link a opção: RPS em Lote... é como criar um CNAB para remessa bancária. http://ww2.prefeitura.sp.gov.br//nfe/manuais.asp Ronaldo Minacapelli (11) 6950 3069

você precisa mencionar a variavel cFiltro Como PRIVATE no inicio deste programa ou seja antes da DIALOG Ronaldo Minacapelli (11) 6950 3069

utilize timer:deactivate() Ronaldo Minacapelli (11) 6950 3069

isso é simples... vc podera tratar as teclas que não deseja que assuma como alteração... Ronaldo Minacapelli (11) 6950 3069

isso mesmo.. ou seja não pode utilizar nada que trava e volte ao foco.. mas pode usar que funciona normal. Ronaldo Minacapelli (11) 6950 3069

então faça assim: redefine get oget... oget:bGotFocus:={||msgstop("ganhou o foco")} Ronaldo Minacapelli (11) 6950 3069

#include "FiveWin.ch" FUNCTION main() LOCAL oVentHija oCRApp := CreateObject("CrystalRuntime.Application.10") oCrp := oCRApp:OpenReport("caixa3.rpt") oCRReportBlanc := oCRApp:OpenReport("caixa3.rpt") DEFINE Window oVentHija FROM 0,0 TO 30,30 Title "cTitle" // OF oPublic:oWnd oActiveX := TActiveX():New( oVentHija, "CrystalReports10.ActivexReportViewer.1" ) oVentHija:oClient := oActiveX oVentHija:cTitle( "Título de la ventana" ) *oActivex:SetProp( "ReportSource", oCRReportBlanc ) oActivex:SetProp( "ReportSource", oCrp ) oActiveX:SetProp( "EnableStopButton", 1 ) oActiveX:SetProp( "EnableAnimationCtrl", 0 ) oActiveX:SetProp( "EnableCloseButton", 1 ) oActiveX:SetProp( "EnableExportButton", 0 ) oActiveX:SetProp( "EnablePopupMenu", 0 ) oCrp:FormulaFields:GetItemByName( 'Cabec1' ):Text( "'"+"OUTRO TEXTO"+"'" ) oCrp:FormulaFields:GetItemByName( 'Cabec2' ):Text( "'"+"MINACPELLI"+"'" ) oActiveX:bOnEvent = { | event, aParams | EventInfo( event, aParams, oCrp, oActivex ) } ACTIVATE WINDOW oVentHija; ON INIT ( oActiveX:Do( "Viewreport" ), oActivex:Do( "Zoom", '150' ) ); Valid ( oActivex:SetProp( "ReportSource", oCRReportBlanc ), .T. ) return function EventInfo( event, aParams, oCRReport, oActivex ) local cMsg := cValToChar( event ) //+ CRLF return cMsg Ronaldo Minacapelli (11) 6950 3069

#include "FiveWin.ch" FUNCTION main() LOCAL oVentHija oCRApp := CreateObject("CrystalRuntime.Application.10") oCrp := oCRApp:OpenReport("caixa3.rpt") oCRReportBlanc := oCRApp:OpenReport("caixa3.rpt") DEFINE Window oVentHija FROM 0,0 TO 30,30 Title "cTitle" // OF oPublic:oWnd oActiveX := TActiveX():New( oVentHija, "CrystalReports10.ActivexReportViewer.1" ) oVentHija:oClient := oActiveX oVentHija:cTitle( "Título de la ventana" ) *oActivex:SetProp( "ReportSource", oCRReportBlanc ) oActivex:SetProp( "ReportSource", oCrp ) oActiveX:SetProp( "EnableStopButton", 1 ) oActiveX:SetProp( "EnableAnimationCtrl", 0 ) oActiveX:SetProp( "EnableCloseButton", 1 ) oActiveX:SetProp( "EnableExportButton", 0 ) oActiveX:SetProp( "EnablePopupMenu", 0 ) oCrp:FormulaFields:GetItemByName( 'Cabec1' ):Text( "'"+"OUTRO TEXTO"+"'" ) oCrp:FormulaFields:GetItemByName( 'Cabec2' ):Text( "'"+"MINACPELLI"+"'" ) oActiveX:bOnEvent = { | event, aParams | EventInfo( event, aParams, oCrp, oActivex ) } ACTIVATE WINDOW oVentHija; ON INIT ( oActiveX:Do( "Viewreport" ), oActivex:Do( "Zoom", '150' ) ); Valid ( oActivex:SetProp( "ReportSource", oCRReportBlanc ), .T. ) return function EventInfo( event, aParams, oCRReport, oActivex ) local cMsg := cValToChar( event ) //+ CRLF return cMsg Ronaldo Minacapelli (11) 6950 3069

Estive analisando e consegui fazer desta forma: crie no inicio do programa a variavel: lAlterado:=.F. Antes do ACTIVE DIALOG coloque o comando abaixo: aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:bChange:={||lAlterado:=.t.}, NIL) } ) Pronto, vc pode ver a variavel se lAlterado:=.t., então algum mudou algo Ronaldo Minacapelli (11) 6950 3069

è recomendavel que você use o papel A4, muitas vezes Carta ou Officio não é aceito nessa impressoras Ronaldo Minacapelli (11) 6950 3069

Pessoal, no forum Fivetechsoft achei algumas dicas e consegui rodas o Crystal no exmeplo abaixo> Como posso agora fazer as Formulas: tReport := tActiveX( oDlg, "Crystal.CrystalReport") tReport:SetProp("WindowParentHandle", oDlg:hWnd) tReport:SetProp("ReportFileName","caixa5.rpt") tReport:SetProp("WindowTitle","Listado ") tReport:SetProp("WindowState",2) //maximo tReport:SetProp("Action",1) Prciso sometne usar o SetFormulas, para mandar os valores Ronaldo Minacapelli (11) 6950 3069

Pessoal, no forum Fivetechsoft achei algumas dicas e consegui rodas o Crystal no exmeplo abaixo> Como posso agora fazer as Formulas: tReport := tActiveX( oDlg, "Crystal.CrystalReport") tReport:SetProp("WindowParentHandle", oDlg:hWnd) tReport:SetProp("ReportFileName","caixa5.rpt") tReport:SetProp("WindowTitle","Listado ") tReport:SetProp("WindowState",2) //maximo tReport:SetProp("Action",1) Prciso sometne usar o SetFormulas, para mandar os valores Ronaldo Minacapelli (11) 6950 3069

exceto os relatorios que envolvem muitos calculos. aconselho a todos o crystal report... pois é bem profissional e realmente precisamos trabalhar com o Crystal XI, pois isto facilitara a conversar para internet do relatorio. Ronaldo Minacapelli (11) 6950 3069

sempre trabalho com crystal 7 e nunca tive problema. o unico problema é quando se altera a estrutura do banco de dados vc precisa: Verificar a base no crystal... mas preciso urgente trabalhar com crystal 10 ou XI, mas não estou tendo sucesso. Ronaldo Minacapelli (11) 6950 3069

neste forum mesmo, porem somente funciona aco que ate a versao 8. já a versao 10 do crystal trabalha com activex Ronaldo Minacapelli (11) 6950 3069