evertonlb

AI pessoal, ja esta funcionando.. eu usei a TDosPrn, e ta td beleza... obrigado a todos que me mandaram dicas... Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Bom Luiz.... no fundo quase igual o que eu faço, mas mesmo colocando teu codigo nao funcionou.. continua mandando par o vídeo, e nao cria o TXT. Testei tambem o código do Evaldo, compilei junto um TDosPrn.Prg mas da um erro primeido dizendo euq nao existe a "lZeraBfr", qdo tiro este comendo fora da um erro que dizendo que nao existe "nClrText" Evaldno c nao poderia me enviar teu TDosPrn.PRG? evertonlb@uol.com.br Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Mas Luiz.. eu só quero criar o TXT mesmo... o lance é que nao cria o arquivo, as informacoes vao pro vídeo.. e precisava criar o "bendito" do TXT e nao aparecer no video! o código que eu coloquei, é o mesmo código que eu tenho no outro "programinha" e que funciona legal.. mas neste da NFE nao ta funcionando! entende?!?! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

É bem isso mesmo... Tenho um "programinha" que só pega dados do DBF e manda pra TXT e que funciona perfeitamente, porem, agora estou as voltas com a NFe e qdo mando as informacoes para gerar o TXT as informacoes vão pro video!! O que eu fiz de errado será? segue o código. set device to printer set printer to "EXPORTNFE.TXT" * nLinhaF := 0 @ nLinhaF,00 say "NOTA FISCAL|1" nLinhaF += 1 @ nLinhaF,00 say "A|2.00|NFe|" nLInhaF += 1 @ nLinhaF,00 say "B||" set device to screen id=code>id=code>Sim, eu sei que é coisa boba!!! Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 11/04/2011 09:32:58

É bem isso mesmo... Tenho um "programinha" que só pega dados do DBF e manda pra TXT e que funciona perfeitamente, porem, agora estou as voltas com a NFe e qdo mando as informacoes para gerar o TXT as informacoes vão pro video!! O que eu fiz de errado será? segue o código. set device to printer set printer to "EXPORTNFE.TXT" * nLinhaF := 0 @ nLinhaF,00 say "NOTA FISCAL|1" nLinhaF += 1 @ nLinhaF,00 say "A|2.00|NFe|" nLInhaF += 1 @ nLinhaF,00 say "B||" set device to screen id=code>id=code>Sim, eu sei que é coisa boba!!! Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 11/04/2011 09:32:58

Mas cara, tu não faz idéia doque o cara me encheu o saco com estes pontos e virgulas... ele, a esposa, e a secretária... todo o dia me ligando e pedindo se eu ja tinha "arrumado". Arrumado??? como se fosse algum erro do sistema digitar um ponto ou uma virgula pra colocar as decimais!!! Essa azedou o pato todo cara!!! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

AMigo, a uns 4 meses atras eu precisei testar uma 2100 na USB, minha saida foi ligar no 0800 da Bematech. Se nao estou muito confuso, tem que colocar outra DLL. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Beleza cara, muito legal esta solução... apesar de nao ser exatamente isso que eu quero, pois o cara nao quer digitar nem o ponto nem a virgula e quer que começe pela direita.. mas ja "Ari sorvi" deixei a variavel como Alfa, tirei da picture os pontos e virgulas, e num Valid eu arrumo a mascara e mostro no video de novo... tá uns 95%...Vou deixar assim. Obrigado mesmo Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

AMigos.. tenho um get com uma variavel alfanumerica, e gostaria que a digitaçao começasse pela direita, como faço isso? Procurei alguma picture que faz isso e nao encontrei. tambem pesquisei no forum e infelizmente nao encontrei nada. Alguem poderia me ajudar? Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

AMigos.. tenho um get com uma variavel alfanumerica, e gostaria que a digitaçao começasse pela direita, como faço isso? Procurei alguma picture que faz isso e nao encontrei. tambem pesquisei no forum e infelizmente nao encontrei nada. Alguem poderia me ajudar? Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Puxa cara... novamente a solução esta nas coisas simples... isso ai... Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Amigos, tenho um cliente que ta me enchendo para que eu faça numa digitacçao de valor (em R$) que ele digite somente os numeros, sem precisar digitar o ponto para colocar os centavos. Como faço isso? Tentei deixar a variavel como alfa e usar o transform, mas nao consegui deu certo... O cara quer digitar 1132517 e o sistema tem que entender R$ 11.325,17... se digitar somente 17 o sistema tem que entender R$ 0,17. Tem alguma funcao pronta pra isso eu terei que fazer usando left(), substr() e rigth()? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Amigos, tenho um cliente que ta me enchendo para que eu faça numa digitacçao de valor (em R$) que ele digite somente os numeros, sem precisar digitar o ponto para colocar os centavos. Como faço isso? Tentei deixar a variavel como alfa e usar o transform, mas nao consegui deu certo... O cara quer digitar 1132517 e o sistema tem que entender R$ 11.325,17... se digitar somente 17 o sistema tem que entender R$ 0,17. Tem alguma funcao pronta pra isso eu terei que fazer usando left(), substr() e rigth()? Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Perfeito... Infelizmente não testei a dica do Gilmar, para tentar nao reescrever, testei a dica do Eduardo.. funcionou perfeitamente,'realmente é só colocar no On Init que funciona mesmo! Obrigado pessoal. Att Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Pessoal... acabei fazendo um software, que ainda nao esta totalmente pronto, usando tudo Window, mas agora quero trocar as Window por Dialog. O que acontece é que tenho uma ButtonBar que faço desta maneira DEFINE BRUSH oBrush STYLE TILED DEFINE CURSOR oHand HAND DEFINE BUTTONBAR OF oForm_pgto _3Dlook SIZE 28, 34 CURSOR oHand DEFINE BUTTON OF oForm_pgto:oBar NOBORDER ACTION NovoReg(); FILENAME "bitmaps\novo.bmp" ; MESSAGE "Abre um registro novo" DEFINE BUTTON OF oForm_pgto:oBar NOBORDER; FILENAME "bitmaps\vazio.bmp" DEFINE BUTTON OF oForm_pgto:oBar NOBORDER ACTION GravaReg(); FILENAME "bitmaps\grava.bmp" ; MESSAGE "Grava os dados digitados" id=code>id=code>mas agora, como estou trocando para Dialog, na funciona mais.. Da um erro dizendo: Cannot create window or control Class:TBar caption System Error: Nao é possivel criar uma janela filha de primeiro nivel Ja procurei por esta descrição de erro, e tambem ja vi as centenas de duvidas a respeito da buttonbar, porem continua dando o erro.. o que eu devo fazer?!?!? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 25/01/2011 09:21:13

Pessoal... acabei fazendo um software, que ainda nao esta totalmente pronto, usando tudo Window, mas agora quero trocar as Window por Dialog. O que acontece é que tenho uma ButtonBar que faço desta maneira DEFINE BRUSH oBrush STYLE TILED DEFINE CURSOR oHand HAND DEFINE BUTTONBAR OF oForm_pgto _3Dlook SIZE 28, 34 CURSOR oHand DEFINE BUTTON OF oForm_pgto:oBar NOBORDER ACTION NovoReg(); FILENAME "bitmaps\novo.bmp" ; MESSAGE "Abre um registro novo" DEFINE BUTTON OF oForm_pgto:oBar NOBORDER; FILENAME "bitmaps\vazio.bmp" DEFINE BUTTON OF oForm_pgto:oBar NOBORDER ACTION GravaReg(); FILENAME "bitmaps\grava.bmp" ; MESSAGE "Grava os dados digitados" id=code>id=code>mas agora, como estou trocando para Dialog, na funciona mais.. Da um erro dizendo: Cannot create window or control Class:TBar caption System Error: Nao é possivel criar uma janela filha de primeiro nivel Ja procurei por esta descrição de erro, e tambem ja vi as centenas de duvidas a respeito da buttonbar, porem continua dando o erro.. o que eu devo fazer?!?!? Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 25/01/2011 09:21:13

AI Amigo, este código eu uso no Clipper, ta imprimindo certinho, ja fazem alguns anos! hehehe Espero que te ajude. _cNomEmp := padc( alltrim( left( cEmpresa, 16 ) ), 16 ) _dDtaEti := right( dtoc( date() ), 2 ) + substr( dtoc( date() ), 4, 2 ) _cNomTel := _cNomEmp + " - " + cTelEmp _cPreEti := padl( alltrim( transform( PD_GRUP, "@E 99,999.99" ) ), 8, "*" ) _cPrePra := padl( alltrim( transform( val( PD_CULE ), "@E 99,999.99" ) ), 8, "*" ) if !C_Grd // colocar aqui uma variavel tipo C_Grd para etiquetas // grande - modelo 01 _cQtdEti := alltrim( str( ceiling( _nQtdPro / 2 ), 5, 0 ) ) // INICIALIZA A IMPRESSORA ? "^XA" // NUMERO DE ETIQUETAS PARA SE IMPRIMIR ? "^PQ"+_cQtdEti // IMPRIME A PRIMEIRA LINHA : NOME DA EMPRESA COM 16 CARACTERES ? "^CFR" ? "^FO10,25" ? "^FD " + _cNomEmp + " ^FS" ? "^FO400,25" ? "^FD " + _cNomEmp + " ^FS" // IMPRIME A SEGUNDA LINHA : SECAO/TIPO/MARCA COM 5 CARACTERES // ANO/MES DA IMPRESSAO COM 4 CARACTERES ? "^CFQ" ? "^FO10,65" ? "^FD" + PD_STMA + " " + _dDtaEti + " " + PD_CULE + "^FS" ? "^FO400,65" ? "^FD" + PD_STMA + " " + _dDtaEti + " " + PD_CULE + "^FS" // IMPRIME DUAS LINHAS HORIZONTAIS SO PARA FRESCURA ? "^FO10,115" ? "^GB345,0,5^FS" ? "^FO400,115" ? "^GB345,0,5^FS" ? "^CFB" ? "^FO10,122" ? "^FD* * * * SINONIMO DE ECONOMIA * * * *^FS" ? "^FO400,122" ? "^FD* * * * SINONIMO DE ECONOMIA * * * *^FS" ? "^FO10,135" ? "^GB345,0,5^FS" ? "^FO400,135" ? "^GB345,0,5^FS" // IMPRIME A QUARTA LINHA : CODIGO DE BARRAS DO PRODUTO ? "^FO65,160" ? "^BC,110" ? "^FD" + PD_CODI +"^FS" ? "^FO465,160" ? "^BC,110" ? "^FD" + PD_CODI + "^FS" // IMPRIME UMA LINHAS HORIZONTAIS SO PARA FRESCURA ? "^FO10,292" ? "^GB345,0,2^FS" ? "^FO400,292" ? "^GB345,0,2^FS" // IMPRIME A QUINTA LINHA : DESCRICAO DO PRODUTO COM 30 CARACTERES ? "^CFB" ? "^FO45,307" ? "^FD" + PD_DESC + "^FS" ? "^FO445,307" ? "^FD" + PD_DESC + "^FS" // IMPRIME A SEXTA LINHA : MENSAGEM DA TROCA COM TRACOS ? "^FO10,330" ? "^GB345,0,5^FS" ? "^FO400,330" ? "^GB345,0,5^FS" ? "^CFB" ? "^FO40,345" ? "^FD PARA EFETUAR TROCAS, FAVOR^FS" ? "^FO440,345" ? "^FD PARA EFETUAR TROCAS, FAVOR^FS" ? "^FO40,365" ? "^FDDEIXAR ESSA ETIQUETA DE CONTROLE^FS" ? "^FO440,365" ? "^FDDEIXAR ESSA ETIQUETA DE CONTROLE^FS" ? "^FO10,390" ? "^GB345,0,5^FS" ? "^FO400,390" ? "^GB345,0,5^FS" // IMPRIME A ULTIMA LINHA DA PRIMEIRA PARTE : NOME DA LOJA COM 16 CARACTERES // TELEFONE DA LOJA ? "^CFB" ? "^FO20,410" ? "^FD" + _cNomTel + "^FS" ? "^FO420,410" ? "^FD" + _cNomTel + "^FS" // IMPRIME A PARTE DE BAIXO DA ETIQUETA : CODIGO DE BARRA ? "^FO65,440" ? "^BC,90" ? "^FD" + PD_CODI + "^FS" ? "^FO465,440" ? "^BC,90" ? "^FD" + PD_CODI + "^FS" // IMPRIME A ULTIMA LINHA DA ETIQUETA : DESCRICAO COM 30 CARACTERES ? "^CFB" ? "^FO45,560" ? "^FD" + PD_DESC + "^FS" ? "^FO445,560" ? "^FD" + PD_DESC + "^FS" // IMPRIME UMA LINHA HORIZONTAIL SO PARA FRESCURA ? "^FO10,575" ? "^GB345,0,2^FS" ? "^FO400,575" ? "^GB345,0,2^FS" // IMPRIME A PARTE DE BAIXO DA ETIQUETA : PRECO COM 99,999.99 ? "^CFT" ? "^FO05,580" ? "^FD R$ " + _cPreEti + "^FS" ? "^FO400,580" ? "^FD R$ " + _cPreEti + "^FS" // IMPRIME UMA LINHA HORIZONTAIL SO PARA FRESCURA ? "^FO10,620" ? "^GB345,0,2^FS" ? "^FO400,620" ? "^GB345,0,2^FS" ? "^XZ" id=code>id=code>Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 18/01/2011 20:19:59

João?!?!? Agora que percebi cara.. tu nao fez somente um exemplo, tu escreveu toda a função! Puxa.. valeu mesmo! hehehehe Nem precisava tudo isso! Muito obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Opa.. valeu pessoas... AInda nao testei a dica do João.. vou faze-lo agora. Ja dei uma boa olhada na xBrowse, só tambem nao tenho informações se esta estável, mas vou ver isso. Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Bom.. como postei uma duvida e não consegui uma solução,e ainda temendo uma resposta muito complexa, resolvi parar de usar a ListBox ( por sugestão do Tião ), mas é agora o que seria aconselhável para mim usar e conseguir editar as colunas? a XBrowse? Funciona no FW 6.12? qual minha saida? Conto com a experiencia dos amigos! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Bom.. como postei uma duvida e não consegui uma solução,e ainda temendo uma resposta muito complexa, resolvi parar de usar a ListBox ( por sugestão do Tião ), mas é agora o que seria aconselhável para mim usar e conseguir editar as colunas? a XBrowse? Funciona no FW 6.12? qual minha saida? Conto com a experiencia dos amigos! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

boa tarde pessoal. Ja fiz uma pesquisa no forum, e tambem ja copiei alguns codigos e tenti usa-los, porem sem sucesso. O que eu preciso é liberar duas colunas do browse para o usuário alterar o valor e a data do vencimento das parcelas. esta ai o codigo que eu uso. FIELDS ( _cConArq )->CONT_SEQU,; dtoc( ( _cConArq )->CONT_PGTO ),; str( (_cConArq )->CONT_ORIG ),; ( _cConArq )->CONT_TIPO; HEADERS "Sequencia",; "Vencimento",; "Valor",; "Tipo"; COLSIZES 160,; 86,; 86,; 8; SIZE 554, 208 PIXEL OF oForm44 FONT oFont1 ALIAS ( _cConArq ) oBrw3:nClrText := {|| iif( OrdKeyNo()%2=0, 0, 0 ) } oBrw3:nClrPane := {|| iif( OrdKeyNo()%2=0, 13160660, 16777215 ) } oBrw3:nClrForeHead := 16777215 oBrw3:nClrBackHead := 8421504 oBrw3:nClrForeFocus := 16777215 oBrw3:nClrBackFocus := 8388608 id=code>id=code>Obrigado. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 14/01/2011 14:23:21

boa tarde pessoal. Ja fiz uma pesquisa no forum, e tambem ja copiei alguns codigos e tenti usa-los, porem sem sucesso. O que eu preciso é liberar duas colunas do browse para o usuário alterar o valor e a data do vencimento das parcelas. esta ai o codigo que eu uso. FIELDS ( _cConArq )->CONT_SEQU,; dtoc( ( _cConArq )->CONT_PGTO ),; str( (_cConArq )->CONT_ORIG ),; ( _cConArq )->CONT_TIPO; HEADERS "Sequencia",; "Vencimento",; "Valor",; "Tipo"; COLSIZES 160,; 86,; 86,; 8; SIZE 554, 208 PIXEL OF oForm44 FONT oFont1 ALIAS ( _cConArq ) oBrw3:nClrText := {|| iif( OrdKeyNo()%2=0, 0, 0 ) } oBrw3:nClrPane := {|| iif( OrdKeyNo()%2=0, 13160660, 16777215 ) } oBrw3:nClrForeHead := 16777215 oBrw3:nClrBackHead := 8421504 oBrw3:nClrForeFocus := 16777215 oBrw3:nClrBackFocus := 8388608 id=code>id=code>Obrigado. Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 14/01/2011 14:23:21

Cara.. eu acho que ele nao esta achando o usuário... vi que tu pos um Seek(), bom eu faria o seguinte. colocaria um if neste seek() if dbseek(.... teu codigo else ?? "nao achou" endif id=code>id=code>ai pelo menos tu vai saber se ele acha o usuário... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

Boa tarde. Voce quer imprimir numa Jato/Laser, Matricial ou uma impressora própria para código de barras? Eu faço, em Clipper, impressão na Argox, Metrologic, Rabit, PPLA e PPLB, na Zebra (ZPL) e na CoStar. Ai fiz um programinha em FW para imprimir na Jato e na Laser, a partir de um TXT usando a BARLIB. ficou bacana cara... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS