Theotokos

Boa Tarde Pessoal!!!! Estou precisando de exemplos de programa pra Bina que funciona... quero colocar no programa uma rotina que pegue esta informação e verifique no arquivo de clientes o telefone e mostre na tela os dados da pessoa... Conto com vcs.... expert!!!! Obgdo!!! Fiquem com DEUS... Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:hehehehe os meus relatorios sao assim ! jejejejejeje Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Dá umas dicas aí para nós......id=orange>id=size6> Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:Tem uma LIB criada pelo José Carlos, e usada nos sistemas gerados, que foi criada no FWH 2.7. Eu quero trabalhar com o FWH que comprei, que é mais atualizado, mas não sei como gerar esta LIB atualizada. Falei com ele que me respondeu: "Eu monto uma biblioteca com o xMate" Xmate, aí sou eu que pergunto, é de comer ??!! Estou precisando de help e o José Carlos deve estar ocupado, então preciso me virar sozinha, ou melhor, preciso de ajuda de vocês !! Alguém pode me dar algumas dicas? Ou mesmo o José Carlos, pode me ajudar ??? Fivewin for [x]Harbour 8.06, Pelles, xDev 0.65. id=quote>id=quote>MAS VC NÃO COMPROU O VT..., ELE TEM QUE DAR SUPORTE...id=green>id=size5> Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Como fazer um programa fique residente, igual os que fica na bandeja do windows... É que preciso criar um programa que fique verificando um arquivo, e quando encontrar alguma data vencida, avise o usuário... Obgdo!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Como fazer um programa fique residente, igual os que fica na bandeja do windows... É que preciso criar um programa que fique verificando um arquivo, e quando encontrar alguma data vencida, avise o usuário... Obgdo!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação: citação: citação:Daria certo se fossem poucas pessoas (no máximo 5) que tenha os mesmos ou quase os mesmos pensamentos. Acredito que isso seria interessante, mas para algo novo para nós e uma coisa que acredito que num futuro próximo será muito bom e rentável são os sistemas online.... Tenho estudado bastante o FLEX+PHP, até fiz um sisteminha de fluxo de caixa bem "simprão" mais para testes mesmo que está disponível em http://www.hcaixa.com.br/hcaixa.html Se alguém se interessar por algo nesse sentido eu topo... FWH 2.7, xHarbour 0.99.61, hbMake, ContexT, PellesC 4.00.50, DBF/CDX Editado por - henning on 27/01/2009 10:14:09 id=quote>id=quote>Henning, gracas a Deus voce entrou!! Aleluia! kkkkkkkkkkkkk. Friend, ajuda ahi, estou finalizando meu sistema para comercio, e entrei na area de CONTAS A PAGAR E RECEBER. Nao manjo PUERRA NUNGUNA disto, voce pode me ajudar? Poderia me enviar algo? Um executavel com banco de dados, bem simples, do jeitinho maroto, que so voce sabe programar?? Tens as manhas?? É melhor pedir, do que roubar! Obrigado. Abracos. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Mandei alguma coisa no seu email do Pop... FWH 2.7, xHarbour 0.99.61, hbMake, ContexT, PellesC 4.00.50, DBF/CDX id=quote>id=quote>Amigos, Compartilhe com os amigos tmb!!! DEUS LHES ABENÇOE... Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:Colega estou comparando seu codigo com um meu feito com a PPLB e os comando são totalmente diferente, mesmo assim mandei para seu email, lembro a primeira vez que tentei usar esta impressora, acontecia exatamente isto, jogava papel e não imprimia nada , no meu caso era o drive errado, mais como dize que esta certo o seu... Mais um detalhe tenta imprimir via soft que vem junto com a impressora, se conseguir imprimir por ela, dai o problema realmente esta no seu codigo... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 Editado por - empresoft on 26/01/2009 18:20:16 id=quote>id=quote>Valeu!!! OBGDAO!!!id=red> será que vc pode mandar novamente, para o email ronerli@uol.com.br id=size5>Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) Editado por - Theotokos on 26/01/2009 18:28:18

citação: citação:Luis Fernando, viz isso... esta como PPLA sim... Os comandos são executados mas não imprimi, a folha de etiqueta sai, mas não tem nada impresso.... Obgdo!!!!!!!!!!!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) id=quote>id=quote>Colega mais na pagina de teste, da impressora ou do windows sai alguma coisa impressa? Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 id=quote>id=quote>Sai impressa normalmenteid=red> com as configurações e os testesid=blue> Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Luis Fernando, viz isso... esta como PPLA sim... Os comandos são executados mas não imprimi, a folha de etiqueta sai, mas não tem nada impresso.... Obgdo!!!!!!!!!!!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Estou usando esta rotinas para imprimir Etiqueta na Impressora ARGOX... mas não sai nada na impressora, so puxa a folha... Procedure EtqNormal * Private oPrn PRINT oPrn TITLE "Impressão Etiquetas" * PAGE For nVz := 1 To Len(aConteudo1) For nCol := 1 to 2 PrtArgox( aConteudo1[nVz,nCol], ; aConteudo2[nVz,nCol], ; aConteudo3[nVz,nCol], ; aConteudo4[nVz,nCol], ; aConteudo5[nVz,nCol], "2", Str(nCol,1) ) Next nCol Next nVz ENDPAGE ENDPRINT * Return * * * Procedure EtiqIMerc() * nPres := 1 * aDados := Array(15,3) nSIni := 1 nLIni := 1 Rec1 := 0 Rec2 := 0 Total1 := 0 * For n1 := 1 To 15 aDados[n1,1] := Space(10) aDados[n1,2] := 0 aDados[n1,3] := "0" Next * cVz := "1) Vista" nVz := 1 lImprimir := .F. * DEFINE DIALOG oDlg FROM 03,10 TO 33,60 TITLE "Ente com Código e Qtde" * @ 01 ,01 Say "Iniciar na Coluna :" @ 02 ,01 Say "Iniciar na Linha :" @ 2.8,01 Say "Codigo Qtde" * @ 01.3,08 Get nSIni Pict "99" SIZE 20,10 @ 02.6,08 Get nLIni Pict "99" SIZE 20,10 * @ 04,01 Get aDados[1,1] Pict "@R 99999" SIZE 040,10 @ 04,07 Get aDados[1,2] Pict "@E 9,999" SIZE 020,10 * @ 05,01 Get aDados[2,1] Pict "@R 99999" SIZE 040,10 @ 05,07 Get aDados[2,2] Pict "@E 9,999" SIZE 020,10 * @ 06,01 Get aDados[3,1] Pict "@R 99999" SIZE 040,10 @ 06,07 Get aDados[3,2] Pict "@E 9,999" SIZE 020,10 * @ 07,01 Get aDados[4,1] Pict "@R 99999" SIZE 040,10 @ 07,07 Get aDados[4,2] Pict "@E 9,999" SIZE 020,10 * @ 08,01 Get aDados[5,1] Pict "@R 99999" SIZE 040,10 @ 08,07 Get aDados[5,2] Pict "@E 9,999" SIZE 020,10 * @ 09,01 Get aDados[6,1] Pict "@R 99999" SIZE 040,10 @ 09,07 Get aDados[6,2] Pict "@E 9,999" SIZE 020,10 * @ 10,01 Get aDados[7,1] Pict "@R 99999" SIZE 040,10 @ 10,07 Get aDados[7,2] Pict "@E 9,999" SIZE 020,10 * @ 11,01 Get aDados[8,1] Pict "@R 99999" SIZE 040,10 @ 11,07 Get aDados[8,2] Pict "@E 9,999" SIZE 020,10 * @ 12,01 Get aDados[9,1] Pict "@R 99999" SIZE 040,10 @ 12,07 Get aDados[9,2] Pict "@E 9,999" SIZE 020,10 * @ 13,01 Get aDados[10,1] Pict "@R 99999" SIZE 040,10 @ 13,07 Get aDados[10,2] Pict "@E 9,999" SIZE 020,10 * @ 01, 20 BUTTON oBtn PROMPT "Imprimir" SIZE 050,20 Of oDlg MESSAGE "Clique para Imprimir as Etiqueta" ; ACTION (lImprimir := .T., oDlg:End() ) @ 03, 20 BUTTON oBtn PROMPT "Cancelar" SIZE 050,14 Of oDlg MESSAGE "Clique para Cancelar Impressão" ; ACTION (lImprimir := .F., oDlg:End() ) CANCEL * ACTIVATE DIALOG oDlg CENTERED * If lImprimir nVz := Val(SubStr(cVz,1,1)) * Do Case Case nVz = 1 ; cVz := "R$" Case nVz = 2 ; cVz := "2x" Case nVz = 3 ; cVz := "3x" End * aConteudo1 := Array(300,5) aConteudo2 := Array(300,5) aConteudo3 := Array(300,5) aConteudo4 := Array(300,5) aConteudo5 := Array(300,5) * X := nSIni I := 1 nLinha := nLIni * Sel('BanMerca',1) DbGoTop() For n1 := 1 To 15 If !Empty(aDados[n1,1]) .And. !Empty(aDados[n1,2]) DbGoTop() If DbSeek( aDados[n1,1] ) nQuant := aDados[n1,2] While .t. * dDtEntr := If(Empty(M_DATAENTR),M_DATACADA,M_DATAENTR) * aConteudo1[nLinha,X] := M_DESCRICA aConteudo5[nLinha,X] := Upper(M_CODVENDA)+"-"+aDados[n1,3] aConteudo2[nLinha,X] := M_TAMANHO aConteudo3[nLinha,X] := M_REFERENC aConteudo4[nLinha,X] := Transform(M_PRECO1/nVz,"@E 999.99") * nQuant-- If X >= 2 nLinha++ X := 1 Else X++ End If nQuant <= 0 Exit End End I := 1 End End Next DbCloseAll() * MsgInfo( aConteudo1[1,1], aConteudo2[1,1] ) EtqNormal() * End * Return * * * Function PrtArgox(cLin1, cLin2, cLin3, cLin4, cLin5, cTipoBar, Contador ) // Imprime os textos da etiqueta na "ARGOX" // // CHR(002)+"L"+CHR(13) = Comando de entrada do formato da etiqueta // Formato Texto: // 1.2.1.1.000.0100.0050, onde: // 1 = Orientação da etiqueta // 2 = Fonte (0-8 com Subtipo 000 /ou/ 9 com Subtipo de 000 a 007 /ou/ : com subtipo 000 a 005) // 1 = Multiplicador Horizontal // 1 = Multiplicador Vertical // 000 = Subtipo da Fonte (000 a 007, depende da Fonte) - Quanto maior o número maior a fonte. // 0100 = Posição inicial Y (linha) máximo=101.6 // 0050 = Posição inicial X (coluna) máximo=762 // Exemplo: = oPrn:Say(1,1,CHR(002)+"L"+CHR(13)+"121100001000050"+"Esta é uma etiqueta teste"+CHR(13)+"E"+CHR(13)) // // Formato CodBar: // 1.2.1.1.000.0100.0050, onde: // 1 = Orientação da etiqueta // 2 = Tipo da Barra EAN13, 2-5 // 1 = Largura da Barra Largua // 1 = Largura da Barra Fina // 000 = Altura do Código de Barras // 0100 = Posição inicial Y (linha) máximo=101.6 // 0050 = Posição inicial X (coluna) máximo=762 // msginfo(cLin1+chr(13)+cLin2+chr(13)+cLin3+chr(13)+cLin4+chr(13)+cLin5+chr(13), cBar) if contador=1 oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade oPrn:Say(1, 1, "1X1100300780010L200018" ) // Negrito oPrn:Say(1, 1, "131100000780030"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560030"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540030"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420030"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000320030"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"0001800000030"+cBar +CHR(13) ) // Código de Barras elseif contador=2 oPrn:Say(1, 1, "1X1100300780220L200018" ) // Negrito oPrn:Say(1, 1, "131100000780240"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560240"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540240"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420240"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000320240"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"0001800000240"+cBar +CHR(13) ) // Código de Barras oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta endif Return( nil ) O problema que deveria imprimir algo, mas só passa a folha da etiqueta, mas não sai nenhuma caracter... já verifiquei se tem conteudo no Vetor, tudo OK... mas não imprime... "Mais ou menos, é como se não tivesse mas tinta na impressora..." Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Estou usando esta rotinas para imprimir Etiqueta na Impressora ARGOX... mas não sai nada na impressora, so puxa a folha... Procedure EtqNormal * Private oPrn PRINT oPrn TITLE "Impressão Etiquetas" * PAGE For nVz := 1 To Len(aConteudo1) For nCol := 1 to 2 PrtArgox( aConteudo1[nVz,nCol], ; aConteudo2[nVz,nCol], ; aConteudo3[nVz,nCol], ; aConteudo4[nVz,nCol], ; aConteudo5[nVz,nCol], "2", Str(nCol,1) ) Next nCol Next nVz ENDPAGE ENDPRINT * Return * * * Procedure EtiqIMerc() * nPres := 1 * aDados := Array(15,3) nSIni := 1 nLIni := 1 Rec1 := 0 Rec2 := 0 Total1 := 0 * For n1 := 1 To 15 aDados[n1,1] := Space(10) aDados[n1,2] := 0 aDados[n1,3] := "0" Next * cVz := "1) Vista" nVz := 1 lImprimir := .F. * DEFINE DIALOG oDlg FROM 03,10 TO 33,60 TITLE "Ente com Código e Qtde" * @ 01 ,01 Say "Iniciar na Coluna :" @ 02 ,01 Say "Iniciar na Linha :" @ 2.8,01 Say "Codigo Qtde" * @ 01.3,08 Get nSIni Pict "99" SIZE 20,10 @ 02.6,08 Get nLIni Pict "99" SIZE 20,10 * @ 04,01 Get aDados[1,1] Pict "@R 99999" SIZE 040,10 @ 04,07 Get aDados[1,2] Pict "@E 9,999" SIZE 020,10 * @ 05,01 Get aDados[2,1] Pict "@R 99999" SIZE 040,10 @ 05,07 Get aDados[2,2] Pict "@E 9,999" SIZE 020,10 * @ 06,01 Get aDados[3,1] Pict "@R 99999" SIZE 040,10 @ 06,07 Get aDados[3,2] Pict "@E 9,999" SIZE 020,10 * @ 07,01 Get aDados[4,1] Pict "@R 99999" SIZE 040,10 @ 07,07 Get aDados[4,2] Pict "@E 9,999" SIZE 020,10 * @ 08,01 Get aDados[5,1] Pict "@R 99999" SIZE 040,10 @ 08,07 Get aDados[5,2] Pict "@E 9,999" SIZE 020,10 * @ 09,01 Get aDados[6,1] Pict "@R 99999" SIZE 040,10 @ 09,07 Get aDados[6,2] Pict "@E 9,999" SIZE 020,10 * @ 10,01 Get aDados[7,1] Pict "@R 99999" SIZE 040,10 @ 10,07 Get aDados[7,2] Pict "@E 9,999" SIZE 020,10 * @ 11,01 Get aDados[8,1] Pict "@R 99999" SIZE 040,10 @ 11,07 Get aDados[8,2] Pict "@E 9,999" SIZE 020,10 * @ 12,01 Get aDados[9,1] Pict "@R 99999" SIZE 040,10 @ 12,07 Get aDados[9,2] Pict "@E 9,999" SIZE 020,10 * @ 13,01 Get aDados[10,1] Pict "@R 99999" SIZE 040,10 @ 13,07 Get aDados[10,2] Pict "@E 9,999" SIZE 020,10 * @ 01, 20 BUTTON oBtn PROMPT "Imprimir" SIZE 050,20 Of oDlg MESSAGE "Clique para Imprimir as Etiqueta" ; ACTION (lImprimir := .T., oDlg:End() ) @ 03, 20 BUTTON oBtn PROMPT "Cancelar" SIZE 050,14 Of oDlg MESSAGE "Clique para Cancelar Impressão" ; ACTION (lImprimir := .F., oDlg:End() ) CANCEL * ACTIVATE DIALOG oDlg CENTERED * If lImprimir nVz := Val(SubStr(cVz,1,1)) * Do Case Case nVz = 1 ; cVz := "R$" Case nVz = 2 ; cVz := "2x" Case nVz = 3 ; cVz := "3x" End * aConteudo1 := Array(300,5) aConteudo2 := Array(300,5) aConteudo3 := Array(300,5) aConteudo4 := Array(300,5) aConteudo5 := Array(300,5) * X := nSIni I := 1 nLinha := nLIni * Sel('BanMerca',1) DbGoTop() For n1 := 1 To 15 If !Empty(aDados[n1,1]) .And. !Empty(aDados[n1,2]) DbGoTop() If DbSeek( aDados[n1,1] ) nQuant := aDados[n1,2] While .t. * dDtEntr := If(Empty(M_DATAENTR),M_DATACADA,M_DATAENTR) * aConteudo1[nLinha,X] := M_DESCRICA aConteudo5[nLinha,X] := Upper(M_CODVENDA)+"-"+aDados[n1,3] aConteudo2[nLinha,X] := M_TAMANHO aConteudo3[nLinha,X] := M_REFERENC aConteudo4[nLinha,X] := Transform(M_PRECO1/nVz,"@E 999.99") * nQuant-- If X >= 2 nLinha++ X := 1 Else X++ End If nQuant <= 0 Exit End End I := 1 End End Next DbCloseAll() * MsgInfo( aConteudo1[1,1], aConteudo2[1,1] ) EtqNormal() * End * Return * * * Function PrtArgox(cLin1, cLin2, cLin3, cLin4, cLin5, cTipoBar, Contador ) // Imprime os textos da etiqueta na "ARGOX" // // CHR(002)+"L"+CHR(13) = Comando de entrada do formato da etiqueta // Formato Texto: // 1.2.1.1.000.0100.0050, onde: // 1 = Orientação da etiqueta // 2 = Fonte (0-8 com Subtipo 000 /ou/ 9 com Subtipo de 000 a 007 /ou/ : com subtipo 000 a 005) // 1 = Multiplicador Horizontal // 1 = Multiplicador Vertical // 000 = Subtipo da Fonte (000 a 007, depende da Fonte) - Quanto maior o número maior a fonte. // 0100 = Posição inicial Y (linha) máximo=101.6 // 0050 = Posição inicial X (coluna) máximo=762 // Exemplo: = oPrn:Say(1,1,CHR(002)+"L"+CHR(13)+"121100001000050"+"Esta é uma etiqueta teste"+CHR(13)+"E"+CHR(13)) // // Formato CodBar: // 1.2.1.1.000.0100.0050, onde: // 1 = Orientação da etiqueta // 2 = Tipo da Barra EAN13, 2-5 // 1 = Largura da Barra Largua // 1 = Largura da Barra Fina // 000 = Altura do Código de Barras // 0100 = Posição inicial Y (linha) máximo=101.6 // 0050 = Posição inicial X (coluna) máximo=762 // msginfo(cLin1+chr(13)+cLin2+chr(13)+cLin3+chr(13)+cLin4+chr(13)+cLin5+chr(13), cBar) if contador=1 oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade oPrn:Say(1, 1, "1X1100300780010L200018" ) // Negrito oPrn:Say(1, 1, "131100000780030"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560030"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540030"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420030"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000320030"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"0001800000030"+cBar +CHR(13) ) // Código de Barras elseif contador=2 oPrn:Say(1, 1, "1X1100300780220L200018" ) // Negrito oPrn:Say(1, 1, "131100000780240"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560240"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540240"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420240"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000320240"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"0001800000240"+cBar +CHR(13) ) // Código de Barras oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta endif Return( nil ) O problema que deveria imprimir algo, mas só passa a folha da etiqueta, mas não sai nenhuma caracter... já verifiquei se tem conteudo no Vetor, tudo OK... mas não imprime... "Mais ou menos, é como se não tivesse mas tinta na impressora..." Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Pessoal, Boa Tarde Pesquisei sobre a impressão nesta Impressora aqui no forum e achei tudo sobre PPLA e PPLB, mas alguem sabe como utilizar a impressora pela DLL, ou seja como declara-la, e utilizar as funções... Obgdo!!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Pessoal, Boa Tarde Pesquisei sobre a impressão nesta Impressora aqui no forum e achei tudo sobre PPLA e PPLB, mas alguem sabe como utilizar a impressora pela DLL, ou seja como declara-la, e utilizar as funções... Obgdo!!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação: citação:E esta certo isso??? bmp\\blabla... Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>esta certo!!! funciona sem erro, é a mesma coisa que colocar bmp\blablaid=red> Já testei sem esta parte, mas não adiantou... Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) id=quote>id=quote>Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:E esta certo isso??? bmp\\blabla... Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>esta certo!!! funciona sem erro, é a mesma coisa que colocar bmp\blablaid=red> Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:E esta certo isso??? bmp\\blabla... Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>esta certo!!! funciona sem erro, é a mesma coisa que colocar bmp\blablaid=red> Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:Não entendi direito. Você quer uma BARRA no TOPO com todos os botões a direita, ou você quer a BARRA a direita? id=quote>id=quote>Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) Correto! A BARRA NO TOPO e os botoes a direita...id=red> Editado por - Theotokos on 18/01/2009 22:35:34

Pessoal, Boa Noite, A PAZ DE CRISTO!!! Como faço para que os Botoes da Barra fiquem todas a Direita? Em Cristo! com Maria!!! Rone O. Coura ************************ FOI RESOLVIDO!!! COM A AJUDA DO AMIGO Marcelo Ferro ... E FICOU ASSIM. Sem precisar de preocupar com 140.. oBtn[1]:nLeft := oBarra:nWidth - oBtn[1]:nLeft - oBtn[1]:nRight oBtn[2]:nLeft := oBarra:nWidth - oBtn[2]:nLeft - oBtn[1]:nRight oBtn[3]:nLeft := oBarra:nWidth - oBtn[3]:nLeft - oBtn[1]:nRight oBtn[4]:nLeft := oBarra:nWidth - oBtn[4]:nLeft - oBtn[1]:nRight id=red> xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) Editado por - theotokos on 19/01/2009 14:35:19 Editado por - theotokos on 19/01/2009 14:36:19

Pessoal, Boa Noite, A PAZ DE CRISTO!!! Como faço para que os Botoes da Barra fiquem todas a Direita? Em Cristo! com Maria!!! Rone O. Coura ************************ FOI RESOLVIDO!!! COM A AJUDA DO AMIGO Marcelo Ferro ... E FICOU ASSIM. Sem precisar de preocupar com 140.. oBtn[1]:nLeft := oBarra:nWidth - oBtn[1]:nLeft - oBtn[1]:nRight oBtn[2]:nLeft := oBarra:nWidth - oBtn[2]:nLeft - oBtn[1]:nRight oBtn[3]:nLeft := oBarra:nWidth - oBtn[3]:nLeft - oBtn[1]:nRight oBtn[4]:nLeft := oBarra:nWidth - oBtn[4]:nLeft - oBtn[1]:nRight id=red> xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) Editado por - theotokos on 19/01/2009 14:35:19 Editado por - theotokos on 19/01/2009 14:36:19

citação:O que é isso? LÊ O ARQUIVO BITMAP NA PASTA BMP id=red> BITMAP "BMP\\CADUSE.bmp" Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:VC PODERIA MOSTRA COMO ESTA DEFININDO Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Set Message Of oWndMain To "RL INFORMÃTICA - (35)9986-0695 - ronerli@uol.com.br" CENTERED 2007 O problema acontece nesta linha... o Nome do Usuario aparece mas fica com o fundo Branco... gostaria que ficasse transparente DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "BMP\\CADUSE.bmp" Prompt cUsuario ACTION ( LerSenha() ); PIXEL SIZE Len(AllTrim(cUsuario))*6.5+28 TOOLTIP "Usuário logado no sistema" id=red> DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "PRINTER" ACTION ( PrinterSetup() ) TOOLTIP "Configurar Impressora" DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "LOGORLI" ACTION ( DlgSobre() ) TOOLTIP "Sobre Sistema..." oWndMain:oMsgBar:nHeight := 40.5 oBar:nClrText := 16777215 id=quote>id=quote>Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)id=red> Editado por - Theotokos on 17/01/2009 06:32:10

Bom Dia!!! A PAZ E CRISTO!!! Qdo coloco texto neste comando o fundo fica em Branco, tem como ficar Transparente igual acontece com BMP? N.T.Utilizo o comando com paramentro 2007 Obgdo... Com Deus!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Bom Dia!!! A PAZ E CRISTO!!! Qdo coloco texto neste comando o fundo fica em Branco, tem como ficar Transparente igual acontece com BMP? N.T.Utilizo o comando com paramentro 2007 Obgdo... Com Deus!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

tente redesenhar o Group Box.... Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação: citação:Ola ! Gostaria de saber se é possivel mudar as cores do menu e barra de mensagens no estilo office 2007 do FWH e como ! Obrigado. FWH 8.04+WS id=quote>id=quote>Sim Segue alguns exemplos ** Bege oBarPrinc:bClrGrad = { | lInvert | If( ! lInvert,; { { 1, nRGB( 195, 196, 194 ), nRGB( 151, 149, 150 ) } },; { { 1, nRGB( 254, 255, 232 ), nRGB( 214, 219, 191 ) } } ) } *oBarPrinc:nClrText = { | lInvert | If( ! lInvert, nRGB( 235, 160, 86 ), nRGB( 20, 20, 20 ) ) } oBarPrinc:nClrText = { | lInvert | If( ! lInvert, nRGB( 000, 000, 000 ),nRGB( 155, 155, 155 ) )} oBarPrinc:bClrGrad = { | lInvert | If( ! lInvert,; { { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) },; { 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } },; { { 0.50, nRGB( 139, 166, 193 ), nRGB( 69, 119, 170 ) },; { 0.50, nRGB( 52, 104, 152 ), nRGB( 50, 107, 162 ) } } ) } *oBarPrinc:nClrText = nRGB( 255, 255, 255 ) oBarPrinc:nClrText = { | lInvert | If( ! lInvert, nRGB( 000, 000, 000 ),nRGB( 155, 155, 155 ) )} * preto oBarPrinc:bClrGrad = { | lInvert | If( ! lInvert,; { { 0.25, nRGB( 129, 132, 135 ), nRGB( 54, 58, 62 ) },; { 0.75, nRGB( 20, 40, 60 ), nRGB( 5, 10, 15 ) } },; { { 0.25, nRGB( 160, 173, 174 ), nRGB( 67, 112, 133 ) },; { 0.75, nRGB( 11, 66, 94 ), nRGB( 74, 134, 187 ) } } ) } oBarPrinc:nClrText = { | lInvert | If( ! lInvert, nRGB( 235, 160, 86 ), nRGB( 20, 20, 20 ) ) } * Degrade oBarPrinc:bClrGrad = { | lInvert | If( ! lInvert,; { { 0.30, nRGB( 0, 228, 1 ), nRGB( 168, 231, 38 ) },; { 0.30, nRGB( 168, 231, 38 ), nRGB( 233, 175, 5 ) },; { 0.30, nRGB( 233, 175, 5 ), nRGB( 236, 8, 9 ) } },; { { 1, nRGB( 254, 255, 232 ), nRGB( 214, 219, 191 ) } } ) } oBarPrinc:nClrText = nRGB( 255, 0, 255 ) oBarPrinc:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,8388608,16777215 },; { 0.50,16777215,8388608 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } oBarPrinc:nClrText := 16777215 // Vermelho oBarPrinc:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,128,16777215 },; { 0.50,16777215,128 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } oBarPrinc:nClrText := 16777215 oWnd:oMsgBar:bClrGrad = { | lInvert | If( ! lInvert,; { { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) } ,; { 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } },; { { 0.50, nRGB( 139, 166, 193 ), nRGB( 69, 119, 170 ) },; { 0.50, nRGB( 52, 104, 152 ), nRGB( 50, 107, 162 ) } } ) } oWnd:oMsgBar:nClrText = { | lInvert | If( ! lInvert, nRGB( 000, 000, 000 ),nRGB( 155, 155, 155 ) )} Marcelo Ferro Petrópolis - Rj Fwh8.10/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles id=quote>id=quote>Esta dando este erro: Application =========== Path and name: D:\prg\ShopCell\Grafico.EXE (32 bits) Size: 1,809,920 bytes Time from start: 0 hours 0 mins 0 secs Error occurred at: 03/12/2008, 12:54:38 Error description: Error BASE/1005 Message not found: TBAR:_BCLRGRAD Stack Calls =========== Called from: tobject.prg => TBAR:ERROR(172) Called from: tobject.prg => TBAR:MSGNOTFOUND(205) Called from: tobject.prg => TBAR:_BCLRGRAD(0) Called from: GRAFICO.PRG => MAIN(115) System ====== CPU type: AMD Turion 64 X2 Mobile Technology TL-50 1650 Mhz Hardware memory: 1983 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 1.1.0 Intl. (SimpLex) Windows version: 5.1, Build 2600 Service Pack 3 Windows total applications running: 0 Variables in use ================ Procedure Type Value ========================== TBAR:ERROR Param 1: C "Message not found" Param 2: C "TBAR" Param 3: C "_BCLRGRAD" Param 4: N 1005 Local 1: U Local 2: O Class: TBAR Local 3: N 16 TBAR:MSGNOTFOUND Param 1: C "_BCLRGRAD" Param 2: O Class: TBAR TBAR:_BCLRGRAD Param 1: B {|| ... } MAIN Local 1: U Local 2: U Local 3: O Class: TBAR Local 4: O Class: TBTNBMP Local 5: O Class: TICON Local 6: U Local 7: U Local 8: U Linked RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ Classes in use: =============== 1 HASHENTRY 2 HBCLASS 3 HBOBJECT 4 TWINDOW 5 TCONTROL 6 TICON 7 TBRUSH 8 TBITMAP 9 TMENU 10 TMENUITEM 11 TACCTABLE 12 TFONT 13 TBAR 14 TRECT 15 TBTNBMP 16 TMSGBAR 17 TMSGITEM 18 ERROR 19 TREG32 Memory Analysis =============== 127 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes Como resolver? Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)