DougDba

Ola !!! Ao pessoal de plantão. Estou precisando de um exemplo de impressao nota fiscal. Impressão na LPT1 matricial. Obrigado, "enquanto a ajuda não vem... vou garimpando..." "Não subestime seu usuário. Aprenda com ele." IV Encontro de Programadores FiveWin "I´ll be there" Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola !!! Ao pessoal de plantão. Estou precisando de um exemplo de impressao nota fiscal. Impressão na LPT1 matricial. Obrigado, "enquanto a ajuda não vem... vou garimpando..." "Não subestime seu usuário. Aprenda com ele." IV Encontro de Programadores FiveWin "I´ll be there" Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola, Mas qual é a sua duvida ???? Abraços, "Não subestime seu usuário. Aprenda com ele." IV Encontro de Programadores FiveWin "I´ll be there" Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Anderson, Nunca fiz este teste. Boa pergunta. Mas tenho a impressao que não. Mais tarde vou fazer o teste abaixo. _cNome := "Anderson " _cNome2 := "Anderson" _cNome := "Anderson " _cNome2 := "Anderson" If _cNome2 $ _cNome Alert("_cNome2 contido em _cNome") EndIf _cNome := "Anderson " _cNome2 := "Anderson Ol" If _cNome = _cNome2 alert("parecido") Else alert("nao é nem parecido") Endif "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Desculpe, Em relação a sua 2a pergunta a resposta é Não. O que irá ocorrer é que vc póde comparar coisas que não são exatamente iguais. Depende de como vc irá utilizar o recurso. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola Anderson. Sim. Quasndo for comparar algo se usamos == significa exatamente igual. Ex. _cNome := "Anderson " _cNome2 := "Anderson" If _cNome = _cNome2 Alert("Nome Parecido") EndIf If _cNome == _cNome2 Alert("Exatamente Igual") Else Alert("Diferentes") EndIf Repare que _cNome É Igual a palavra Anderson + dois espaços vazio e cNome2 não tem espaços. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Como estou em cliente não tenho tempo pra filtrar muito a informacao, mas o exemplo abaixo posiciona exatamente na ultima coluna do meu browse. Espero que ajude aadd(_aProdItem, { "0001", Space(14), Space(40), 0 } ) DEFINE DIALOG oDlgLbx FROM 5, 3 TO 33, 100 TITLE _cTitulo FONT oFont @ 00, 01 Say "Código:" of oDlgLbx @ 00, 26.5 Say "Descrição" oF oDlgLbx @ 01, 01 GET _oCodigo var _cCodigo SIZE 10,11 PICTURE "@ 99" of oDlgLbx when(_lEditaCpo .and. _cTpManut $ "INCLUIR/GERAR/COPIAR") Valid(ExistCpo("CLI04",1,_cCodigo)) @ 01, 20 GET _oDescricao var _cDescricao SIZE 200,11 PICTURE "@!" of oDlgLbx when(_lEditaCpo .and. _cTpManut $ "INCLUIR/GERAR/COPIAR/ALTERAR") Valid(EdBrowse(oLbx2)) @ 02, 1 LISTBOX oLbx2 FIELDS _aProdItem[oLbx2] ,; _aProdItem[oLbx2] ,; _aProdItem[oLbx2] ,; TransForm(_aProdItem[oLbx2], "@E 99,999,999.99" ) ; HEADERS "Item", "Produto", "Descrição", "Preço" ; SIZE 370,165 Of oDlgLbx // // Define Funcoes Para a ListBox // oLbx2:lCellStyle:=.T. oLBX2:nLineStyle:= 1 oLBX2:SetArray(_aProdItem) oLbx2:bKeyDown:={|nKey| if(nKey=VK_RETURN .OR. (nKey # VK_DELETE .AND. nKey # VK_ESCAPE),EdBrowse(oLbx2,1),If(nKey==VK_DELETE,EdBrowse(oLbx2,2),))} oLbx2:nClrPane:=cCorLinhaFolder If _cTpManut == "VISUALIZAR" @ 11, 1 BUTTON "&Retornar" OF oDlgLbx SIZE 40, 12 ACTION _Grava(oDlgLbx) Else @ 11, 1 BUTTON "&Confirmar" OF oDlgLbx SIZE 40, 12 ACTION _Grava(oDlgLbx) @ 11, 9 BUTTON "&Simular" OF oDlgLbx SIZE 40, 12 ACTION MsgMeter( { | oMeter, oText, oDlg, lEnd | ; _AjPrc( oMeter, oText, oDlg, @lEnd, oDlgLbx ) },; "Aguarde...", "Efetuando Simulação"); When _cTpManut == "AJUSTAR" @ 16.5, 17 BUTTON "&Sair" OF oDlgLbx SIZE 50, 10 ACTION oDlgLbx:End() EndIf ACTIVATE DIALOG oDlgLbx CENTERED return nil /*/ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÃÃÃÃÃÃÃÃÃÃÑÃÃÃÃÃÃÃÃÃÃËÃÃÃÃÃÃÃÑÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃËÃÃÃÃÃÃÑÃÃÃÃÃÃÃÃÃÃÃÃû±± ±±ºPrograma ³ EdBrowse º Autor ³Douglas º Data ³ 07/2006 º±± ±±ÌÃÃÃÃÃÃÃÃÃÃØÃÃÃÃÃÃÃÃÃÃÊÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÊÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃù±± ±±ºDescricao ³ Edicao do Browse º±± ±±ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß /*/ Static Function EdBrowse(oBrw,_nAcao) Local _nCol,_cValor,_cPicture,_bValid,_lRet:=.T., _iii, _nAte,; _nLinAtu := oBrw:nAt, _aProd := {}, _nIt, _xxx // MEMVAR _lEditaCpo, _aProdItem, _lGera, _cFilial If !_lEditaCpo Return(.F.) EndIf If _nAcao == 2 .and. Len(_aProdItem) > 1 If !MsgYesNo( "Excluir Este Item ?", "Selecione uma Opção" ) Return(.F.) EndIf // Excluir Item da Array de Produtos _aProd := _aProdItem _aProdItem := {} _nIt := 1 For _iii := 1 To Len(_aProd) If _iii # _nLinAtu aadd(_aProdItem, { StrZero(_nIt,4), _aProd[_iii,2], _aProd[_iii,3], _aProd[_iii,4] } ) _nIt++ EndIf Next oBrw:SetArray(_aProdItem) //Eval(oBrw:bLogicLen) // Ajusta o tamanho do array vinculado ao browse oBrw:nAt := 1 oBrw:Refresh() Return(.F.) EndIf _nAte := If(oBrw:nColAct # 2,1,3) _nCol := oBrw:nColAct If _nCol < 2 // Nao Permite Digitar Item oBrw:GoRight() Return(.T.) EndIf // Indica Que os produtos ja estao cadastrados e somente havera digitacao de preco If _lGera .and. !Empty(_aProdItem[oBrw]) .and. _nCol # 2 If _nCol < 4 For _iii := _nCol To 1 Step -1 oBrw:GoLeft() Next For _iii := 1 To 4 oBrw:GoRight() Next Return(.T.) EndiF EndIf For _iii := 1 To _nAte If _nCol == 2 _cValor := _aProdItem[oBrw] _cPicture := "@!" _bValid := {|oGet| _ValidCpo(oGet,@_nCol,oBrw, @_cValor) } // Code block para validacao ElseIf _nCol == 3 If !Empty(_aProdItem[oBrw]) (PRO01->(dbSeek(_cFilial+_aProdItem[oBrw]))) _aProdItem[oBrw] := PRO01->DESCRICAO EndIf ElseIf _nCol == 4 _cValor := _aProdItem[oBrw] _cPicture := "@E 99,999,999.99" _bValid := {|oGet| _ValidCpo(oGet,@_nCol,oBrw) } // Code block para validacao EndIf If _nCol # 3 //If oBrw:VolEditCol(_nCol,@_cValor,_cPicture,_bValid) If oBrw:lEditCol(_nCol,@_cValor,_cPicture,_bValid,,,,,_nAcao) _aProdItem[oBrw] :=_cValor Else _lRet := .F. EndIf EndIf oBrw:Refresh() If _lRet .and. _nCol == 4 // Continua a edição do Browse If Len(_aprodItem) == oBrw:nAt .and. !Empty(_aProdItem[oBrw]) .and. ; !Empty(_aProdItem[oBrw]) aadd(_aProdItem, { StrZero(oBrw:nAt+1,4), Space(14), Space(40), 0 } ) Eval(oBrw:bLogicLen) // Ajusta o tamanho do array vinculado ao browse oBrw:SetArray(_aProdItem) oBrw:GoDown() For _xxx :=_nCol To 3 Step -1 oBrw:GoLeft() Next Return(.T.) Else oBrw:GoDown() //If Len(_aprodItem) # oBrw:nAt // KEYB CHR(13) //EndIf EndIf Exit EndIf _nCol++ Next oBrw:SetArray(_aProdItem) Return(_lRet) Static Function _ValidCpo(oGet,nCol,oBrw, _cValor) Local _iii MEMVAR _aProdItem If nCol == 2 // Código do Produto ExistTab("PRO01",1,_cValor,"Nao Encontrado na Tabela de Produtos !","PCAD040P()") For _iii := 1 To Len(_aProdItem) If PRO01->CODIGO == _aProdItem[_iii,2] .and. oBrw:nAt # _iii MsgInfo("Produto Ja Informado no Item "+StrZero(_iii,4),"Atenção!") Return(.F.) EndIf Next _cValor := PRO01->CODIGO oGet :Refresh() ElseIf nCol == 3 EndIf oBrw:Refresh() Return(.T.) "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Pois é Paulo. Quando me cadastrei neste fórum, não sabia ainda de sua seriedade, por isto coloquei um email pessoal. Mas agora ja estou mudando meu email para o email comercial. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Xiiiii !!! Foi mal. Tava correndo aqui no cliente e esqueci de anexar o comprovante....Após que o Kapiaba e uns carinhas por ai ja estavam contanto com esta sobra pra gastar em cerveja...rsrsrsrsrsr....Ja respondi o email e anexo foi o comprovante....mas quem sabe por la ainda sobra uns troco pra pagar umas tbem..... Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola !!! Pelo que entendi vc formatou a maquina, logo vc teve que reinstalar as suas rotinas. Será que vc não esqueceu de alguma biblioteca ou alguma rotina externa ??? Doug "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola, PARA CRIAR O SUBMENU TENTE ISTO MENU MENUITEM "1 menu" MESSAGE "1 menu" ACTION Prg1() MENUITEM "VAMOS PARA O 2 menu" MESSAGE "2 menu" MENU MENUITEM "2 menu" MESSAGE "2 menu" ACTION Prg2() MENUITEM "2 menu" MESSAGE "2 menu" ACTION Prg3() ENDMENU ENDMENU 2 - Verifique as declaracoes das variaveis envolvidas, pode ter algo a ver com isto. Abracos, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola Gilson. Com a dica do Paulo deverá funcionar. Sempre que vc tiver alguma validação no campo é importante prever que o usuário pode não querer informar nada no momento, sendo assim vc deve tratar isto. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola José Carlos. Obrigado pela ajuda. To tendo uma certa dificuldade com relatorios. Os exemplos do fivewin não estão me ajudando muito. Se puder...poderia me enviar um exemplo de relatorio com duas tabelas no minimo ??? Fico agradecido. Obs. Kapiaba...Ja mandei email para o Vagner. Obrigado, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola Kapiaba. Vou verificar com ele. Obrigado. Aproveitando sua experiencia com fwh, vc faz seus relatórios na "unha" ou utiliza alguma outra ferramenta ? Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Pessoal !!! Estive dando uma olhada nos relatorios exemplos do fwh. Existe alguma alternativa ao visualizador do fwh ? Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Pessoal !!! Estive dando uma olhada nos relatorios exemplos do fwh. Existe alguma alternativa ao visualizador do fwh ? Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ok Paulo. Com um indice temporário terei o efeito desejado. Obrigado a você e ao Vagner. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola Vagner. Infelizmente estou usdando ainda o NTX. Como estou atrasado com o desenvolvimnento e sou relativamente novato em fivewin, estou dando prioridade a aplicação. Posteriormente estarei passando para CDX. O OrdKeyNo() utilizo, mas quando tenho um filtro as linhas ficam com mesma cor, pois imagino que o recno(), par e impar, não mantem a sequência. Imagine o exemplo abaixo: recno 1, status := S recno 2, status := N recno 3, status := S recno 4, status := N recno 5, status := S Quando filtro apenas status = S, temos recno 1, status := S recno 3, status := S recno 5, status := S Entao a cor da linha ficara sempre a mesma, uma vez que o resultado de OrdKeyNo() % 2 é o mesmo. (Claro, isto tudo se eu não estiver enganado em relação ao funcionamento) Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Pessoal, Ja a algum tempo venho me matando para que a minha listbox fique com a aparencia "zebrada" (uma linha da cor AAA outra da cor BBB). Até ai nenhuma novidade, pois ja houveram vários foram tratando isto. Acontece que a minha listbox estava filtrada. Então acontecia de ter dois recno´s de numero par. A cor ficava igual em duas ou mais linhas. Para resolver isto, criei um indice na tabela com o campo que efetuo o filtro. Pode até não ser a melhor solução, mas resolveu o problema sem afetar minha aplicação. Se alguem conhecer outra forma de se fazer isto, por favor me avise. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Pessoal, Ja a algum tempo venho me matando para que a minha listbox fique com a aparencia "zebrada" (uma linha da cor AAA outra da cor BBB). Até ai nenhuma novidade, pois ja houveram vários foram tratando isto. Acontece que a minha listbox estava filtrada. Então acontecia de ter dois recno´s de numero par. A cor ficava igual em duas ou mais linhas. Para resolver isto, criei um indice na tabela com o campo que efetuo o filtro. Pode até não ser a melhor solução, mas resolveu o problema sem afetar minha aplicação. Se alguem conhecer outra forma de se fazer isto, por favor me avise. Abraços, "Não subestime seu usuário. Aprenda com ele." Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola Jef, Pois é como havia dito. Pelo pouco que sei sobre sistemas, uma falha de hardware seja estrutural ou lógica, dificilmente interfere na gravação de dados. Quando o cliente tem uma rede ruim e o sistema trata arquivos temporários, é bem comum "misturar os temporários" entre os usuários, então a informação que estava na tela de um usuário vai para a tela de outro, mas para mim ficou claro que este não era no seu sistema. Ainda no exemplo que dei, o problema continua sendo no sistema, só que apenas aparece em uma rede ruim, onde a informação demora a ser processada. Mas o que importa é que vc resolveu o problema. As vezes é assim mesmo, qdo trabalhava na Microsiga (como funcionario, agora sou consultor) o simples fato de trocar umas idéias com o pessoal do suporte ja era o suficiente para descobrirmos o problema. Deve ser pelo fato de por alguns momentos desviarmos o foco e depois voltarmos nele. Abraços, Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Cara !!! Ja tive um problema destes, mas após perder um bom tempo, descobri que era pau no sistema, uma simples condição não elaborada corretamente. Verifique estas variáveis. Acho pouco provavel que indice ou o banco fique duplicado sem uma ação. E a ação sempre esta na aplicação. Abraços. Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Beleza ... Sds, Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola, No picture use... @KE 999,999,999.9999 Abraços, Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com

Ola , Verifiquei em uma de suas postagens que vc assina com o C5MENU. Este recurso é free ou precisamos compra-lo. Tenho os exemplos e gostei muito. Abraços, Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com