pasim

Bem vinda Jack! Aqui vc terá toda a atenção do mundo! Ninguém fica sem resposta neste fórum...!!! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Boa tarde! Seja bem vindo ao melhor fórum de Fivewin do mundo! Tem uma versão demo neste site É só baixar e tirar suas dúvidas aqui mesmo, a galera aqui não te deixa na mão nunca. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 25/04/2005 17:20:57 Editado por - pasim on 25/04/2005 17:21:22

Olá Hélio esse aqui é dez! http://www.crimsoneditor.com/ Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

aspq21, obrigado pela atenção, já encontrei o erro, coloquei um picture ctod(' / / ') numa variável de data e não sei pq tava dando este erro, tirei o picture e não deu mais, só não descobri a razão. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

(b)ONERROR (0) Unrecoverable error 667: Eval stack fault (b)ONERROR 0000 ASCAN 0000 TSTRUCT:ONERROR 0000 TSTRUCT:_NSIZE 0000 NEXTMEM 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 CGETINFO 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 GET:BADDATE 0000 CORGET:LVALID 0000 CORGET:FWLOSTFOCU 0000 CORGET:HANDLEEVEN 0000 DIALOGBOXI 0000 TDIALOG:ACTIVATE 0000 ERRORDIALO 0000 (b)ERRORSYS 0000 LOCKERRHAN 0000 (b)INITHANDL$ 0000 GET:BADDATE 0000 CORGET:LOSTFOCUS 0000 CORGET:LOSTFOCUS 0048 CORGET:KILLFOCUS 0000 CORGET:HANDLEEVEN 0000 SETFOCUS 0000 TDIALOG:GONEXTCTRL 0000 TDIALOG:COMMAND 0000 TDIALOG:HANDLEEVEN 0000 DIALOGBOX 0000 TDIALOG:ACTIVATE 0000 CARTACOB 5600 (b)BUILDMENU 0501 TMENU:COMMAND 0000 TWINDOW:COMMAND 0000 TWINDOW:HANDLEEVEN 0000 WINRUN 0000 TWINDOW:ACTIVATE 0000 MAIN 0424 Este erro acontece quando minha variável não tem valores e navego entre os get's com as setas, mas quando as mesmas tem valores não dá erro. Alguém sabe porque está dando este erro? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 22/04/2005 17:31:21

citação: LBOX:nClrPane := { || if(clien->(OrdKeyNo())%2=0, RGB( 182,218,218 ),RGB( 255,255,2552 ) ) }Não entendi??? Voce vinha com outro nome de banco e de repente mudou para CLIEN????? Explique! Clien é o Alias??? id=quote>id=quote>Desculpe pela minha falta de atenção, é que troquei o alias sem perceber, tavez esteja aí o erro. De qualquer forma obrigado, meu rei! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 22/04/2005 08:55:18

SELE APOCB SET ORDER TO 1 DBGOTOP() TWBrowse():lHScroll:=.f. REDEFINE Listbox LBOX FIELDS APOCB->CLICB,APOCB->NOMCB,APOCB->DOCCB,dtoc(APOCB->VENCB),TRANS(APOCB->VALCB,"@e 9,999.99") headers "Codigo","Cliente","Documento","Vencimento","Valor" Id 107 of T_CARTA on click Carta(6) color CLR_BLACK,nrgb(255,255,235) LBOX:nClrPane := { || if(clien->(OrdKeyNo())%2=0, RGB( 182,218,218 ),RGB( 255,255,2552 ) ) } LBOX:nClrForeFocus:={||branco } // cor da letra barra ativa LBOX:nClrBackFocus:={||azul } // cor do fundo barra ativa ACTIVATE DIALOG T_CARTA centered Amigos montei meu listbox assim. Não estava usando a classe em questão, comecei a usar e Tá dando o seguinte erro: Error description: Error BASE/1004 No exported method: EVAL Args: [ 1] = U Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from EVAL(0) Called from (b)TWBROWSE(199) Called from TWBROWSE:PAINT(526) Called from TWBROWSE:DISPLAY(1802) Called from TWBROWSE:HANDLEEVEN(0) Called from DIALOGBOX(0) Called from TDIALOG:ACTIVATE(0) Called from SELFI(65) Called from DANGER(1031) Called from (b)MAIN(337) Called from TWINDOW:ACTIVATE(0) Called from MAIN(337) HELP-ME, PLEASE! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Olá Kapiaba bom dia! Podes me dizer como faço isso... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Funciona sim Elias. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

include "fivewin.ch" /*----------------------------------------------------------*/ ***** function main() local oDlg DEFINE DIALOG oDlg TITLE "Controles em uma Dialog" COLOR "N/W*" ACTIVATE DIALOG oDlg CENTERED ON INIT BuildControls( oDlg ) return( 0 ) /*-----------------------------------------------------------*/ static func BuildControls( oDlg ) local oMenu, oBar MENU oMenu MENUITEM "&Opcões" MENU MENUITEM "&Info" MENU MENUITEM "&Informação..." ACTION MsgAbout() ENDMENU SEPARATOR MENUITEM "&Sair" ACTION oDlg:End() ENDMENU ENDMENU oDlg:SetMenu( oMenu ) DEFINE BUTTONBAR oBar OF oDlg 3D DEFINE BUTTON OF oBar PROMPT " Info " ACTION MsgAbout() ; FONT oDlg:oFont NOBORDER DEFINE BUTTON OF oBar PROMPT " Sair " ACTION oDlg:End() ; FONT oDlg:oFont NOBORDER DEFINE MESSAGE OF oDlg PROMPT "Menu, Bar e Barra de mensagem em Dialog" return( 0 ) ******* USEI ESTE EXEMPLO(http://www.fivewin.com.br/exibedicas.asp?id=135) PRA COLOCAR UM MENU NUMA DIALOG. CONSEGUI SÓ QUE ME DEPAREI COM UM PROBLEMA QUANDO COLOCO O NUMERO DO DOCUMENTO E DOU ENTER NÃO ACONTECE NADA NÃO SAI DO GET. ALGUÉM PODE ME AJUDAR Tem uma maneira mais fácil de colocar menu na dialog. usando WORKSHOP? Se tiver por favor me digam. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 19/04/2005 18:17:55

Como faço para maximizar o preview, é que ao terminar alguns relatórios indexo os arquivos abrindo uma barra com meter e o preview sempre fica minimizado após indexar os arquivos. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Olá, seja bem vindo! redefine get ogcp03 var doc id 103 of t_conpa valid(conpa(3,1)) color CLR_BLACK,nrgb(255,255,235) Para deixar o get em foco de outra cor coloque mais informãções e e-mail no seu perfil que a gente manda, valeu!? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 15/04/2005 12:08:07

Kapiaba, você foi um segundo mais rapido... parabéns, vc é o "Cara" deste fórum... não vai explodir(brincadeira). Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Olá... use When (.f.) Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 15/04/2005 09:50:46

Como se diz do vesgo, estou até agora com a "Instalação trocada", faço das palavras do kapiaba as minhas: citação: Jesuuuus... Credo em cruzes... O que é isso??? Socooooorro! heheheheheid=quote>id=quote>Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Oi meu amigo Kapiaba, desculpe por não ter me explicado melhor... Estou usando a vBar do Vagner e somente nela e que não estou conseguindo acessar o meu menu popup. É aquela que ao passar o mouse o cursor vira uma mãozinha. Quando uso a ButtonBar nativa do FW funciona legal. Obrigado pela atenção! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Oi meu amigo Kapiaba, desculpe por não ter me explicado melhor... Estou usando a vBar do Vagner e somente nela e que não estou conseguindo acessar o meu menu popup. É aquela que ao passar o mouse o cursor vira uma mãozinha. Quando uso a ButtonBar nativa do FW funciona legal. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Oi amigos. Estou usando a SbuttonBar. Aciona os actions blz. Mas não estou conseguindo acionar o menu popup, alguém saberia me responder o porquê? Obrigado. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Valdecir, bom dia! Meu amigo, vc postou em dicas um exemplo de boleto bancário com código de barra. Estou tentando imprimir código de barra com uma impressora ALLEGRO 2 (não sei se a conheces), o fato é que não estou conseguindo fazer a impressora imprimí-lo, gostaria de saber se a lib e o include que tem no seu exemplo serve somente para impressoras específicas ou se pode ser usado para qualquer impressora de código de barra. (Detalhe: o fabricante desta impressora é a DATAMAX e não encontrei nenhuma lib no site desta.) Valeu! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 09/04/2005 11:42:44

Olá, no nosso sistema acontece o seguite: Quando ele está sendo executado ao minimizá-lo tento abrir o executável novamente e ele maximiza o programa aberto e minimizado anteriormente, há como eu ter controle sobre isso? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Existe uma forma de verificar pelo programa se o arquivo é maior que espaço em disquete? Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Oh Luiz, manda aí amigo, meu e-mail é este que está no meu perfil. De já te agradeço de montão! Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

Kapiaba meu amigo não me lembro bem mas acho que desitimos de mandar pra lpt1 porque com clipper foi mais fácil com serial... Logo acima coloquei o código como era em clipper. Funcionava bacana. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 31/03/2005 10:42:10

********* RELATORIO DE CODIGO DE BARRAS - ETIQUETA GRANDE proc cere26d save scre to tege tppa = 0 * set color to pas = ' ' lin = 0 pag = 0 quant = 0 nport = 0 serial = '2' if nport = 0 * .and. serial = '2' if com_open(val(serial), 4000) com_init(val(serial), 9600, "n", 8 , 1) com_rts(val(serial), .t.) com_dtr(val(serial), .t.) com_send (val(serial),13) com_send (val(serial),29) com_send (val(serial),5) com_flush(val(serial)) millisec(100) ncaract = com_count(val(serial)) if nCaract > 1 rec_char = com_read (val(serial), 1) if (rec_char = chr(13)) nPort = val(serial) veloc = '9.600' else com_close (val(serial)) endif else com_close (val(serial)) endif endif endif if nport = 0 mens('Porta serial nao inicializada','t') com_close (val(serial)) return endif do while .t. set curso on set devi to scre set color to set color to &cordi sele 8 go top per = papra sele 6 @ 10,10 clear to 12,70 @ 10,10 to 12,70 @ 11,12 say 'Produto :' codp = space(08) preco = 0 @ 11,22 get codp pict '!9999999' read if codp = ' ' exit endif seek codp if !found() mens('Produto nao existe.','t') loop endif save scre to imprime store space(17) to me01,me02,me03,me04 me01 = substr(dtoc(date()),4,5)+' '+codpr me02 = substr(nompr,1,28) me03 = substr(nompr,29,12) store 0 to quant @ 10,23 clear to 17,55 @ 10,23 to 17,55 @ 10,29 say '[ CONTEUDO ]' @ 11,25 get me01 pict '@!' @ 12,25 get me02 pict '@!' @ 13,25 get me03 pict '@!' @ 15,25 say 'Quantidade : ' @ 16,25 say 'Perc. desc.: ' @ 15,38 get quant pict '99,999' @ 16,38 get per pict '999.99' read me04 = ' AV: ' store 0 to pav,pap sele 6 seek codp if venpr # 0 pap = venpr pav = venpr-((venpr/100)*per) endif if substr(codp,1,1) = 'A' codp = '1'+substr(codp,2,7) elseif substr(codp,1,1) = 'B' codp = '2'+substr(codp,2,7) elseif substr(codp,1,1) = 'C' codp = '3'+substr(codp,2,7) elseif substr(codp,1,1) = 'D' codp = '4'+substr(codp,2,7) elseif substr(codp,1,1) = 'E' codp = '5'+substr(codp,2,7) elseif substr(codp,1,1) = 'F' codp = '6'+substr(codp,2,7) elseif substr(codp,1,1) = 'G' codp = '7'+substr(codp,2,7) elseif substr(codp,1,1) = 'H' codp = '8'+substr(codp,2,7) elseif substr(codp,1,1) = 'I' codp = '9'+substr(codp,2,7) * elseif substr(codp,1,1) = 'G' * codp = '7'+substr(codp,2,7) * elseif substr(codp,1,1) = 'G' * codp = '7'+substr(codp,2,7) endif * me04 = ' AV: ' me04 = ' AV:'+substr(str(pav),7,7) * AP:'+substr(str(pap),7,7) perg('Confirma informacoes ?') if rep # 's' exit endif if quant = 0 rest scre from tege return endif mens('Imprimindo etiquetas.','f') toen() do while quant > 0 com_flush(1) ini = chr(2)+'L'+chr(13) com_send(nport,ini) ini = 'H07'+chr(13) com_send(nport,ini) ini = 'D11'+chr(13) com_send(nport,ini) ini = '131100002500015 BRASIL TECIDOS'+chr(13) com_send(nport,ini) ini = '131100002500215 BRASIL TECIDOS'+chr(13) com_send(nport,ini) ini = '131100002300015 Sempre Novidades'+chr(13)+'131100002300215 Sempre Novidades'+chr(13) com_send(nport,ini) ini = '131100002050015'+me01+chr(13)+'131100002050215'+me01+chr(13) com_send(nport,ini) ini = '121100001850015'+me02+chr(13)+'121100001850215'+me02+chr(13) com_send(nport,ini) ini = '121100001700015'+me03+chr(13)+'121100001700215'+me03+chr(13) com_send(nport,ini) ini = '1D9304001100030'+codp+chr(13)+'1D9304001100230'+codp+chr(13) com_send(nport,ini) ini = '131100000900015'+me04+chr(13)+'131100000900215'+me04+chr(13) com_send(nport,ini) ini = '131100000700015'+me01+chr(13)+'131100000700215'+me01+chr(13) com_send(nport,ini) ini = '1D9304000150030'+codp+chr(13)+'1D9304000150230'+codp+chr(13) com_send(nport,ini) ini = '131100000000015'+me04+chr(13)+'131100000000215'+me04+chr(13) com_send(nport,ini) ini = 'E' com_send(nport,ini) quant = quant - 2 enddo rest scre from imprime enddo set devi to scre tosa() rest scre from tege com_close (val(serial)) return Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com

citação:Paulo... Porque você está tentando imprimir na porta serial? Porque não manda imprimir em LPT1? id=quote>id=quote>Porque temos duas Impressora no mesmo computador e somente uma saida lpt1. Desculpe acho que esquecí de dizer que estou imprimindo código de barras, e essa impressora permite, pois funcionava com clipper. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 31/03/2005 10:25:55 Editado por - pasim on 31/03/2005 10:33:09 Editado por - pasim on 31/03/2005 10:35:55