rubensma

Bom-dia Alguém já fez DARF com código de barras via programa? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Bom-dia Alguém já fez DARF com código de barras via programa? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

João, também me interessa o curso, se conseguir fechar e tiver vaga eu vou. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Tião, bom dia Copiei as pastas e parece que é o caminho, ainda tem erro mas vou acertando. Grato Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Bom-dia! Não tentei assim, estava executando o instalador, mas nem inicia. Vou copias as pastas p/ver no que dá e amanhã reporto (estão lá em casa). Abraços e obrigado pela atenção. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Pessoal, não estou conseguindo instalar a versão free 6.12 no windows 7 ultimate de 64 bits, vou ter que reinstalar em o SO 32 bits? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Pessoal, não estou conseguindo instalar a versão free 6.12 no windows 7 ultimate de 64 bits, vou ter que reinstalar em o SO 32 bits? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

citação:agora o link do meu XARà vai te dar mais informações sobre esse browse, tb indico estudar \fwh\samples\testxbrw3.prg lá tem tudo o que ela pode oferecer.id=quote>id=quote>Alessandro, utilizo a versão FWH 6.12 é não tem esse "testxbrw3.prg". Teria como disponibilizar?? Agradeço, rumarti@gmail.com Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Fiz uma função que registra todos os movimentos, onde achar necessário. Vc pode passar por parametro dos dados antigos e os novos, que ficarão gravados no arquivo de registro. Assim fico sabendo quem entrou e o que fez. ******************************** function registra( cMod , cSer ) ******************************** // registra os parâmetros do sistema para controle sis->( dbAppend() ) sis->( Rlock() ) sis->data := date() sis->hora := time() sis->modulo := cMod sis->servico := cSer sis->usuario := senhas->usuari sis->( dbUnlock() ) return nil Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Dê uma olhada, veja se ajuda; REDEFINE LISTBOX oLbx ; FIELDS &cAlia->data , &cAlia->hora , &cAlia->usuario , ; strzero(&cAlia->lote,3) , ; strzero(&cAlia->quant,5) , ; strzero(&cAlia->docini,5) , ; strzero(&cAlia->docfim,5) , ; transform(&cAlia->valor , "9,999,999,999.99" ) , ; &cAlia->histor ; ALIAS cAlia ; HEADER " DATA" , " HORA" , " USUARIO" , ; "LOTE " , "QUANT " , "DOC 1º " , ; "DOC FIM" , "VALOR " , ; space(15)+"HISTORICO" ; FIELDSIZES 60,60,80,60,60,60,60,120,300 ; ID 100 OF oDlg ; ON DBLCLICK (if ( &cAlia->usuario = cUsuario , acertacampo(oLbx) , ),oLbx:refresh()) ; ON CLICK if( ( cAlia )->usuario=cUsuario .and. &cAlia->lote = nUltimo , btnDel:enable() , btnDel:disable() ) oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho oLbx:nClrText = { || IIF(( cAlia )->usuario=cUsuario,sColor(0), sColor(1)) } oLbx:nClrBackFocus := CLR_BOMBOM // Cor do Cursor Em Cima do Ötem oLbx:nClrForeFocus := CLR_AMARELO // Cor da letra da barra ativa oLbx:nClrForeHead := CLR_BLACK // Cor nos Cabeçalhos oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } // cor na grade do browse // oLbx:nColAct := 2 // Onde o Cursor Vai Iniciar na coluna - esta dando erro no scroll c/roda do mause oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse oLbx:lCellStyle := .f. // Somente pinta a c‚lula em que o cursor esta no momento oLbx:aJustify := { .F., .F., .F., .T., .T., .T., .T., .T., .F. } // .F. = Esquerda .T. = Centro //oLbx:lMChange := .T. // Desabilita Mousemove - Movimentos do Mouse Congelam. oLbx:SetFocus() // Refocus on The Browse - Ativa o Foco na ListBox(Browse) oLbx:Refresh() // Estabiliza o Browse/Listbox - Refresca os Dados. // Pinta os Dados Novamente oLbx:aActions :={ {||Ordena("cNome",olbx)},{||Ordena("cLote",olbx)} } nQuant := 1 REDEFINE GET oGet1 VAR nQuant ID 101 OF oDlg picture "@E 99999" VALID nQuant > 0; ON CHANGE ( oBmp1:enable() , oGet1:setfocus() ) oGet1:cTooltip := "Informe a quantidade de documentos que irá compor o Lote" oGet1:bGotFocus := { || oGet1:SelectAll() } // manter selecionado REDEFINE GET oGet2 VAR nValor ID 102 OF oDlg UPDATE picture "@E 9999,999,999.99"; ON CHANGE ( oBmp1:enable() , oGet2:setfocus() ) oGet2:cTooltip := "Informe o valor do Lote" oGet2:bGotFocus := { || oGet2:SelectAll() } // manter selecionado REDEFINE GET oGet3 VAR cHistor ID 103 OF oDlg UPDATE ; ON CHANGE ( oBmp1:enable() , oGet3:setfocus() ) oGet3:cTooltip := "Escreva um breve historico do Lote" REDEFINE BUTTON oBmp1 ID 210 OF oDlg ACTION ( geralote( Olbx ) , oBmp1:disable() ) oBmp1:disable() REDEFINE BUTTON oBmp2 ID 220 OF oDlg ACTION ( lAtiva := .f. , oDlg:End() ) REDEFINE BUTTON btnDel ID 230 OF oDlg btnDel:disable() oLbx:bKeyDown := { |nKey| if (nKey == 13 .and. &cAlia->usuario = cUsuario , acertacampo(oLbx) , ) } oDlg:bGotFocus := { || oGet2:disable() , oGet2:refresh() , oGet2:enable() , oGet2:setfocus() } btnDel:bAction = if( bDel != NIL , {|| Eval( bDel ) , oLbx:Refresh() , oLbx:SetFocus() , btnDel:disable() , ajustar() } , ) Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Olá, bom-dia Essa função traz a calculadora para cima, modifique e tente ai, talvez funcione ********************** function calculadora() ********************** // funcao para abrir a calculadora apenas uma vez local hWnd if (hWnd:=SeekCalculadora()) == 0 WinExec( 'Calc.exe',SW_NORMAL) else BringWindowToTop(hWnd) // aqui traz para cima ShowWindow(hWnd,SW_RESTORE) endif return nil ********************************* static function SeekCalculadora() ********************************* local aCaptions:= {'Calc','Calculator','Calculadora'} local nPos, hWnd for nPos = 1 to len(aCaptions) if (hWnd:= FindWindow(0,aCaptions[nPos])) > 0 return hWnd endif next return hWnd Espero que ajude abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Marcelo, a versão free FWH 6.12, que eu saiba não tem restrição, e atende perfeitamente. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Ok João, O programa da DIRF contempla ambos, funcionários e fornecedores (pelo menos sempre foi assim). Quanto ao FAQ, já li todas as perguntas e não encontrei informação. Mas vendo seu arquivo entendi que o RTRT é o valor total do mês e o INSS é o RTPO, certo. Grato pela ajuda, espero ve-lo no próximo encontro no Rio. Abraços. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

João, mais uma questão. O RTRT é o valor total do rendimento (no seu caso o valor recebido no mês) e o meu caso o valor da NF e as outras siglas o valor calculado, é isso? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Correto, os dados são de PJ que tem RTRT e RTIRF. Qual arquivo vc utilizou para informar os valores, foi o 3.16 ? e a sigla, como saber qual informar Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Ai João, td bem? Estou ajudando o pessoal de sistemas internos a montar a parte de IRRF de fornecedores, tem muitas siglas. Não sei qual arquivo utilizar, vc saberia dizer? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Bom-dia! Alguem montou o arquivo no leiaute desse ano? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Bom-dia! Alguem montou o arquivo no leiaute desse ano? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Valeu, só posso ver amanhã, grato pelas dicas Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Grato pelas respostas, pero somente encontrei a wbrowse e xbrowse em fwh\source\classes, será que posso usar a twbrowse, onde consigo para testar? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Preciso de um browse para editar direto na célula (campo), igual ao excel. Qual o melhor para usar dessa forma? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Preciso de um browse para editar direto na célula (campo), igual ao excel. Qual o melhor para usar dessa forma? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Leandro Procure por biometria que tem vários posts Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Agradecer por mais um ano, mais um dia e sobretudo pelas amizades, pelas ajudas incondicionais, pela paciência em conduzir as dúvidas, enfim agradecer muito ao pessoal do Fivewin Brasil, que vem conseguindo manter esse fórum no ar para podermos continuar aprendendo e trocando idéias. Um forte abraço a todos e feliz ano 2012. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Parabéns Cacau pela iniciativa, alias() suas iniciativas sempre dão certo por aqui. Boa sorte nessa empreitada. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop