Helio_hbinfo

Pessoal bom dia. Muito obrigado a todos. Aparentemente esta OK agora. So mais uma duvida. Desde que montaram este novo FORUM os meus caracteres de acentuacao estao desconfigurados. Alguem pode me indicar a fonte para resolver isso? Mais uma vez grato a todos.

Boa noite Eu usei esta rotina para capturar dados da balanca TOLEDO, espero que ajude //-----------------------------------------------// // Modulo : TOLEDO.PRG // // Comentário : Acesso a balanca toledo // // Data : 24/08/2004 - Sandro // // Atualização : // // Comentário : os Parametros Peso e // // Tara devem ser fornecidos por referencia // // Exemplo : // // Peso := 0 // // Tara := 0 // // Erro := Toledo("9091","COM1",@Peso, @tara) // // Msginfo( "Peso: "+str(Peso) ) // //-----------------------------------------------// //#include "fivewin.ch" //------------------------------------------ FUNCTION Toledo( Modelo, Porta, Peso, Tara ) //------------------------------------------ STATIC TamPacote := 100 LOCAL Com, baudRate, databits, parity, stopbit, TamBuff, Bytes, buffer, x, erro LOCAL l_Erro := .F., time_out:=0 LOCAL c_Peso, c_Tara, c_liq, l_tara, l_check, c_check LOCAL swa, swa_bit0, swa_bit1, swa_bit2, swa_bit3, swa_bit4, swa_bit5, swa_bit6, swa_bit7 LOCAL swb, swb_bit0, swb_bit1, swb_bit2, swb_bit3, swb_bit4, swb_bit5, swb_bit6, swb_bit7 //----- Se Nao especificar modelo, encerra comunicação IF ValType( Modelo ) <> "C" //IF isWorking() // UnInt_Port() // ENDIF Peso := NIL RETURN( 0 ) ENDIF IF ! Upper( Modelo ) $ '9091,9094,8132,8510,8530,ID1,2090' Peso := NIL RETURN( - 1 ) ENDIF IF ! Upper( Porta ) $ 'COM1,COM2,COM3,COM4' Peso := NIL RETURN( - 2 ) ENDIF Com := Porta //"COM1" baudRate := 4800 databits := 7 parity := 2 stopbit := 2 TamBuff := 8000 DADOS :="" // NHANDLE:=Init_Port( Porta, baudRate , databits , parity , stopbit , TamBuff ) IF EMPTY(NHANDLE) Peso := NIL UnInt_Port(nhandle) RETURN( - 16 ) ? 'ERRO DE LEITURA NA BALANÇA' ENDIF // OutBufClr(NHANDLE) // Limpa o Buffer de Saida l_Erro := .T. time_out := 0 DO WHILE l_ErrO=.T. Buffer := "" DO WHILE time_out < 100000 //IF(NETNAME()='DAF',60000,40000) // Bytes := InbufSize(NHANDLE) IF Bytes >= TamPacote // Buffer := InChr( NHANDLE, Bytes, @DADOS) IF Len( DADOS) - Len( StrTran( DADOS, Chr( 13 ), "" ) ) >= 2 EXIT ENDIF ENDIF time_out:= time_out+1 ENDDO IF time_out >= 100000 //IF(NETNAME()='DAF',60000,40000) IF TamPacote = 100 Peso := NIL UnInt_Port(nhandle) RETURN( - 30 ) ELSE TamPacote := 100 LOOP ENDIF ENDIF l_Erro := .F. DADOS := SubStr( DADOS, At( Chr( 13 ), DADOS) + 1 ) TamBuff := At( Chr( 13 ), DADOS) IF Upper( Modelo ) $ '9091,8132,8510,2090' DO WHILE .T. IF SubStr( DADOS, 1, 1 ) <> Chr( 2 ) .and. SubStr( DADOS, 2, 1 ) <> Chr( 2 ) Peso := NIL UnInt_Port(nhandle) RETURN( - 34 ) ENDIF IF SubStr( DADOS, 2, 1 ) = Chr( 2 ) DADOS:= SubStr( DADOS, 2 ) l_check := .T. ELSE l_check := .F. ENDIF Bytes := At( Chr( 13 ), DADOS) IF Bytes = 0 Peso := NIL UnInt_Port(nhandle) RETURN( - 34 ) ENDIF IF l_check c_check := SubStr( DADOS, Bytes + 1, 1 ) IF c_check <> checksum( SubStr( DADOS, 1, Bytes ) ) Peso := NIL UnInt_Port(nhandle) RETURN( - 35 ) ENDIF ENDIF DADOS := SubStr( DADOS, 1, Bytes - 1 ) swa := AscBin( Asc( SubStr( DADOS, 2, 1 ) ) ) swb := AscBin( Asc( SubStr( DADOS, 3, 1 ) ) ) swa_bit7 := SubStr( swa, 1, 1 ) swa_bit6 := SubStr( swa, 2, 1 ) swa_bit5 := SubStr( swa, 3, 1 ) swa_bit4 := SubStr( swa, 4, 1 ) swa_bit3 := SubStr( swa, 5, 1 ) swa_bit2 := SubStr( swa, 6, 1 ) swa_bit1 := SubStr( swa, 7, 1 ) swa_bit0 := SubStr( swa, 8, 1 ) swb_bit7 := SubStr( swb, 1, 1 ) swb_bit6 := SubStr( swb, 2, 1 ) swb_bit5 := SubStr( swb, 3, 1 ) swb_bit4 := SubStr( swb, 4, 1 ) swb_bit3 := SubStr( swb, 5, 1 ) swb_bit2 := SubStr( swb, 6, 1 ) swb_bit1 := SubStr( swb, 7, 1 ) swb_bit0 := SubStr( swb, 8, 1 ) IF Upper( Modelo ) = '2090' IF swa_bit6 <> '0' .or. swa_bit5 <> '1' Peso := NIL UnInt_Port(nhandle) RETURN( - 34 ) ENDIF ELSE IF swa_bit6 <> '0' .or. swa_bit5 <> '1' .or. swb_bit4 <> '1' .or. swb_bit5 <> '1' Peso := NIL UnInt_Port(nhandle) RETURN( - 34 ) ENDIF ENDIF IF swb_bit2 = '1' Peso := NIL UnInt_Port(nhandle) RETURN( - 32 ) ENDIF c_Peso := SubStr( DADOS, 5, 6 ) IF swb_bit0 = '1' c_Tara := SubStr( DADOS, 11, 6 ) IF Empty( c_Tara ) c_Tara := '000000' ENDIF l_tara := .T. ELSE c_Tara := '000000' l_tara := .F. ENDIF IF swa_bit2 = '0' .and. swa_bit1 = '0' .and. swa_bit0 = '1' c_Peso := SubStr( c_Peso, 1, 6 ) c_Tara := SubStr( c_Tara, 1, 6 ) ELSEIF swa_bit2 = '0' .and. swa_bit1 = '1' .and. swa_bit0 = '0' c_Peso := SubStr( c_Peso, 1, 6 ) c_Tara := SubStr( c_Tara, 1, 6 ) ELSEIF swa_bit2 = '0' .and. swa_bit1 = '1' .and. swa_bit0 = '1' c_Peso := SubStr( c_Peso, 1, 5 ) + '.' + SubStr( c_Peso, 6, 1 ) c_Tara := SubStr( c_Tara, 1, 5 ) + '.' + SubStr( c_Tara, 6, 1 ) ELSEIF swa_bit2 = '1' .and. swa_bit1 = '0' .and. swa_bit0 = '0' c_Peso := SubStr( c_Peso, 1, 4 ) + '.' + SubStr( c_Peso, 5, 2 ) c_Tara := SubStr( c_Tara, 1, 4 ) + '.' + SubStr( c_Tara, 5, 2 ) ELSEIF swa_bit2 = '1' .and. swa_bit1 = '0' .and. swa_bit0 = '1' c_Peso := SubStr( c_Peso, 1, 3 ) + '.' + SubStr( c_Peso, 4, 3 ) c_Tara := SubStr( c_Tara, 1, 3 ) + '.' + SubStr( c_Tara, 4, 3 ) ELSEIF swa_bit2 = '1' .and. swa_bit1 = '1' .and. swa_bit0 = '0' c_Peso := SubStr( c_Peso, 1, 2 ) + '.' + SubStr( c_Peso, 3, 4 ) c_Tara := SubStr( c_Tara, 1, 2 ) + '.' + SubStr( c_Tara, 3, 4 ) ELSE l_Erro := .T. EXIT ENDIF IF swb_bit1 = '1' c_Peso := '-' + AllTrim( c_Peso ) ENDIF IF swb_bit0 = '1' c_liq := c_Peso c_Peso := "" ELSE c_liq := "" ENDIF EXIT ENDDO IF ! l_Erro c_Peso := AllTrim( c_Peso ) c_liq := AllTrim( c_liq ) c_Tara := AllTrim( c_Tara ) IF ! Empty( c_Peso ) FOR x = 1 TO Len( c_Peso ) IF ! SubStr( c_Peso, x, 1 ) $ '0123456789.-' l_Erro := .T. Erro := - 31 EXIT ENDIF NEXT ELSE IF ! Empty( c_liq ) FOR x = 1 TO Len( c_liq ) IF ! SubStr( c_liq, x, 1 ) $ '0123456789.-' l_Erro := .T. Erro := - 31 EXIT ENDIF NEXT ELSE l_Erro := .T. ENDIF ENDIF IF l_tara .and. ! l_Erro FOR x = 1 TO Len( c_Tara ) IF ! SubStr( c_Tara, x, 1 ) $ '0123456789.-' l_Erro := .T. Erro := - 31 EXIT ENDIF NEXT ENDIF IF ! Empty( c_liq ) .and. Empty( c_Peso ) .and. ! l_Erro IF ! Empty( c_Tara ) c_Peso := AllTrim( Str( Val( c_liq ) + Val( c_Tara ) ) ) ELSE c_Peso := c_liq ENDIF ENDIF ENDIF ELSEIF Upper( Modelo ) $ '9096,8530' DO WHILE .T. IF SubStr( DADOS, 1, 1 ) <> Chr( 2 ) .and. SubStr( DADOS, 2, 1 ) <> Chr( 2 ) Peso := NIL UnInt_Port(nhandle) RETURN( - 34 ) ENDIF IF SubStr( DADOS, 2, 1 ) = Chr( 2 ) DADOS:= SubStr( DADOS, 2 ) l_check := .T. ELSE l_check := .F. ENDIF Bytes := At( Chr( 13 ), DADOS) IF Bytes = 0 Peso := NIL UnInt_Port(nhandle) RETURN( - 34 ) ENDIF IF l_check c_check := SubStr( DADOS, Bytes + 1, 1 ) IF c_check <> checksum( SubStr( DADOS, 1, Bytes ) ) Peso := NIL UnInt_Port(nhandle) RETURN( - 35 ) ENDIF ENDIF DADOS := SubStr( DADOS, 1, Bytes - 1 ) swa := AscBin( Asc( SubStr( DADOS, 2, 1 ) ) ) swb := AscBin( Asc( SubStr( DADOS, 3, 1 ) ) ) swa_bit7 := SubStr( swa, 1, 1 ) swa_bit6 := SubStr( swa, 2, 1 ) swa_bit5 := SubStr( swa, 3, 1 ) swa_bit4 := SubStr( swa, 4, 1 ) swa_bit3 := SubStr( swa, 5, 1 ) swa_bit2 := SubStr( swa, 6, 1 ) swa_bit1 := SubStr( swa, 7, 1 ) swa_bit0 := SubStr( swa, 8, 1 ) swb_bit7 := SubStr( swb, 1, 1 ) swb_bit6 := SubStr( swb, 2, 1 ) swb_bit5 := SubStr( swb, 3, 1 ) swb_bit4 := SubStr( swb, 4, 1 ) swb_bit3 := SubStr( swb, 5, 1 ) swb_bit2 := SubStr( swb, 6, 1 ) swb_bit1 := SubStr( swb, 7, 1 ) swb_bit0 := SubStr( swb, 8, 1 ) IF swa_bit6 <> '1' .or. swa_bit5 <> '1' .or. swb_bit5 <> '1' UnInt_Port(nhandle) RETURN(-33) ENDIF IF swb_bit2 = '1' UnInt_Port(nhandle) RETURN(-32) ENDIF c_Peso := SubStr( DADOS, 6, 5 ) IF swb_bit0 = '1' c_Tara := SubStr( DADOS, 11, 5 ) IF Empty( c_Tara ) c_Tara := '00000' ENDIF l_tara := .T. ELSE c_Tara := '00000' l_tara := .F. ENDIF IF swa_bit2 = '0' .and. swa_bit1 = '0' .and. swa_bit0 = '0' c_Peso := c_Peso + "0" c_Tara := c_Tara + "0" ELSEIF swa_bit2 = '0' .and. swa_bit1 = '0' .and. swa_bit0 = '1' c_Peso := SubStr( c_Peso, 1, 5 ) c_Tara := SubStr( c_Tara, 1, 5 ) ELSEIF swa_bit2 = '0' .and. swa_bit1 = '1' .and. swa_bit0 = '0' c_Peso := SubStr( c_Peso, 1, 4 ) + '.' + SubStr( c_Peso, 5, 1 ) c_Tara := SubStr( c_Tara, 1, 4 ) + '.' + SubStr( c_Tara, 5, 1 ) ELSEIF swa_bit2 = '0' .and. swa_bit1 = '1' .and. swa_bit0 = '1' c_Peso := SubStr( c_Peso, 1, 3 ) + '.' + SubStr( c_Peso, 4, 2 ) c_Tara := SubStr( c_Tara, 1, 3 ) + '.' + SubStr( c_Tara, 4, 2 ) ELSEIF swa_bit2 = '1' .and. swa_bit1 = '0' .and. swa_bit0 = '0' c_Peso := SubStr( c_Peso, 1, 2 ) + '.' + SubStr( c_Peso, 3, 3 ) c_Tara := SubStr( c_Tara, 1, 2 ) + '.' + SubStr( c_Tara, 3, 3 ) ELSE l_Erro := .T. EXIT ENDIF IF swb_bit1 = '1' c_Peso := '-' + AllTrim( c_Peso ) ENDIF IF swb_bit0 = '1' c_liq := c_Peso c_Peso := "" ELSE c_liq := "" ENDIF EXIT ENDDO IF ! l_Erro c_Peso := AllTrim( c_Peso ) c_liq := AllTrim( c_liq ) c_Tara := AllTrim( c_Tara ) IF ! Empty( c_Peso ) FOR x = 1 TO Len( c_Peso ) IF ! SubStr( c_Peso, x, 1 ) $ '0123456789.-' l_Erro := .T. Erro := - 31 EXIT ENDIF NEXT ELSE IF ! Empty( c_liq ) FOR x = 1 TO Len( c_liq ) IF ! SubStr( c_liq, x, 1 ) $ '0123456789.-' l_Erro := .T. Erro := - 31 EXIT ENDIF NEXT ELSE l_Erro := .T. ENDIF ENDIF IF l_tara .and. ! l_Erro FOR x = 1 TO Len( c_Tara ) IF ! SubStr( c_Tara, x, 1 ) $ '0123456789.-' l_Erro := .T. Erro := - 31 EXIT ENDIF NEXT ENDIF IF ! Empty( c_liq ) .and. Empty( c_Peso ) .and. ! l_Erro IF ! Empty( c_Tara ) c_Peso := AllTrim( Str( Val( c_liq ) + Val( c_Tara ) ) ) ELSE c_Peso := c_liq ENDIF ENDIF ENDIF ELSE Peso := NIL UnInt_Port(nhandle) RETURN( - 1 ) ENDIF ENDDO Peso := Val( c_Peso ) Tara := Val( c_Tara ) UnInt_Port(nhandle) msgalert(peso,tara) TamPacote := TamBuff * 2 RETURN ( 0 ) //---------------------------- FUNCTION Toledo_erro( Erro ) //---------------------------- LOCAL mens := "" IF Erro = - 1 mens := 'Erro de parametros (Toledo)' ELSEIF Erro = - 2 mens := 'Canal de comunicacao invalido (Toledo)' ELSEIF Erro = - 3 mens := 'Numero de interrupcao invalido (Toledo)' ELSEIF Erro = - 4 mens := 'Numero de Bits invalido (Toledo)' ELSEIF Erro = - 5 mens := 'Taxa de comunicacao invalida (Toledo)' ELSEIF Erro = - 6 mens := 'Numero de stop Bits invalido (Toledo)' ELSEIF Erro = - 7 mens := 'Paridade invalida (Toledo)' ELSEIF Erro = - 8 mens := 'Tamanho de buffer invalido (Toledo)' ELSEIF Erro = - 9 mens := 'Tipo de controle de fluxo invalido (Toledo)' ELSEIF Erro = - 10 mens := 'Canal de comunicacao ja está aberto (Toledo)' ELSEIF Erro = - 11 mens := 'Canal de comunicacao nao esta aberto (Toledo)' ELSEIF Erro = - 12 mens := 'Memoria insuficiente para a operacao (Toledo)' ELSEIF Erro = - 13 mens := 'Buffer de Transmissao cheio (Toledo)' ELSEIF Erro = - 14 mens := 'Buffer de recepcao vazio (Toledo)' ELSEIF Erro = - 15 mens := 'Estado de sinal invalido (Toledo)' ELSEIF Erro = - 16 mens := 'Porta invalida ou erro de hardware (Toledo)' ELSEIF Erro = - 17 mens := 'Codigo de configuracao invalido (Toledo)' ELSEIF Erro = - 18 mens := 'Erro de recepcao (Toledo)' ELSEIF Erro = - 19 mens := 'Erro no Fechamento do canal (Toledo)' ELSEIF Erro = - 20 mens := 'Erro na transmissao (Toledo)' ELSEIF Erro = - 30 mens := 'Erro de Time-out Balanca (Toledo)' ELSEIF Erro = - 31 mens := 'Erro de Comunicacao na Balanca. Dados nao numericos (Toledo)' ELSEIF Erro = - 32 mens := 'Balanca excedeu a faixa de peso suportada. (Toledo)' ELSEIF Erro = - 33 mens := 'Erro de Comunicacao na Balanca (Toledo)' ELSEIF Erro = - 34 mens := 'Protocolo de balança inválido (Toledo)' ELSEIF Erro = - 35 mens := 'Erro de consistência de CheckSum (Toledo)' ELSE mens := 'Erro desconhecido (Toledo)' ENDIF mens := '(' + AllTrim( Str( Erro ) ) + ')' + ' -> ' + mens RETURN( mens ) //---------------------------------- STATIC FUNCTION Checksum( Pacote ) //---------------------------------- LOCAL f_tam := 0, f_asc := 0, f_bin := "", f_co2 := "" , f_pos f_tam := Len( Pacote ) FOR f_pos = 1 TO f_tam f_asc := f_asc + Asc( SubStr( Pacote, f_pos, 1 ) ) NEXT f_bin := AscBin( f_asc ) f_co2 := f_bin f_co2 := StrTran( f_co2, '1', '2' ) f_co2 := StrTran( f_co2, '0', '1' ) f_co2 := StrTran( f_co2, '2', '0' ) f_co2 := AscBin( BinAsc( f_co2 ) + 1 ) f_co2 := '0' + SubStr( f_co2, ( Len( f_co2 ) - 7 ) + 1, 7 ) RETURN( Chr( BinAsc( f_co2 ) ) ) //------------------------------- STATIC FUNCTION ascbin( f_asc ) //------------------------------- priv f_bin, f_tam IF ValType( f_asc ) # "N" msgstop( "erro de parametros. Funcção AscBin" ) quit ENDIF IF f_asc < 0 msgstop( "erro de parametros. Funcção AscBin" ) quit ENDIF f_bin = "" DO WHILE f_asc >= 2 f_bin = Str( ( f_asc % 2 ), 1 ) + f_bin f_asc = Int( f_asc / 2 ) ENDDO f_bin = Str( f_asc, 1 ) + f_bin IF ( Len( f_bin ) % 8 ) <> 0 f_tam := ( Int( Len( f_bin ) / 8 ) + 1 ) * 8 f_bin = repl( "0", f_tam - Len( f_bin ) ) + f_bin ENDIF RETURN( ( f_bin ) ) //------------------------------- STATIC FUNCTION binasc( f_bin ) //------------------------------- PRIVATE f_asc, f_tam, f_pot, p IF ValType( f_bin ) # "C" msgstop( "erro de parametros. Função BinAsc" ) quit ENDIF f_asc := 0 f_pot := 0 FOR p = Len( f_bin ) TO 1 STEP - 1 IF subst( f_bin, p, 1 ) = "1" f_asc := f_asc + ( 2 ** f_pot ) ELSEIF subst( f_bin, p, 1 ) <> "0" msgstop( "erro de parametros. Função BinAsc" ) quit ENDIF f_pot := f_pot + 1 NEXT RETURN f_asc //--------------------------- Final da rotina -----------------------------------

Boa noite desculpe, eh w7 professional.

Muito obrigado pela atencao, mas continua do mesmo jeito. fiz o exeplo que vc me indicou e outro prueba.prg, mas acontece o erro (LME288) Warning error detected (LME288) ERROR : Unable to perform link * Linking errors * Pesquisei na internet e fiz o procedimento para : Lo primero que hice fue limpiar temps y registro con la Herramienta de BitdefenderLuego ejecutar bcdedit / set IncreaseUserVa 3072reinicie... recompilé y... nada!, errorEntonces utilicé CCleanerLuego ejecutar bcdedit / set IncreaseUserVa 3072reinicie... recompilé y... nada!, Horror!!Entonces ejecuté un buscador de Malware, bajado desde InfoSpyware, JRT (Junkware Removal Tool)Luego ejecutar bcdedit / set IncreaseUserVa 3072Y... voilá!!! recompilo!! e nao deu certo Sera que pode me ajudar?

eu coloquei todas que acompanham o arquivo zip da fivewin (gilmer) enviou Grato

Bom tarde a todos, a um mes eu fiz a aquisicao de um upgrade da versao 12.03 para a versao 17.04 fiz as instalacoes, mas quando vou compilar os meus programas ocorre este erro. Ja fiz um monte de pesquisar e alteracoes mas nao tive exito. Sera que alguem pode me ajudar? Eu ainda nao consegui utilizar a versao adquirida. Esta ocorrendo este erro e ja fiz varia tentativas e sem sucesso. Helio Tsuyama tentando usar 17.04 - xDEV 0.7 - workshop 4.5

Bom dia João Podem contar comigo. Infelizmente nos últimos 3 anos tive problemas de doença na família. Qualquer dia de Novembro. Acredito que este ano da. Abraços Helio Tsuyama Santo André - SP

1 - João Santos - Email: joao@pleno.com.br 2 - Luiz Fernando - Email: empresoft@globo.com 3 - Alexandre Serafini - alexandre@polirep.com.br 4 - Nárlem - narlem@nagas.com.br 5 - Gilmer - gilmer@fivewin.com.br 6 - Alexandre Pereira - alexandre@declatecnologia.com.br 7 - Evandro G. de Paula - imortal@skillnet.com.br 8 - Vailton Renato - contato@vailton.com.br 9 - Rubens Martins - rumarti@gmail.com 10 - Cleber Conde - cleber@krcsistemas.com.br 11 - Decker - Carlos E. Decker 12 - Vagner Wirts - vwirts@ig.com.br 13 - Antenor Trufelli Filho - trufelli@uol.com.br 14 - José Carlos R Leoner - Guaruhos - SP - josecarlos@vimatec.com.br 15 - Luis Antonio da Paixao - Sao Sebastiao do Paraiso - Minas Gerais - luispaixao13@hotmail.com 16 - Valdir - Jundiaí - valdir@fivesolution.com.br 17 - Luiz Antonio de Oliveira - Santa fe do Sul - SP luizantoniooliveira@hotmail.com - LUIZ53 18 - Giovanny Vecchi - Santa Fé do Sul - SP - 19 - Claudio de Oliveira - claliveira@ig.com.br 20 - Ailton - Syspel 21 - José Maria da Silva - saa50@bol.com.br 22 - Helio Tsuyama - hbinfo.br@gmail.com Estaremos la este ano

1 - João Santos - Email: joao@pleno.com.br 2 - Luiz Fernando - Email: empresoft@globo.com 3 - Alexandre Serafini - alexandre@polirep.com.br 4 - Nárlem - narlem@nagas.com.br 5 - Gilmer - gilmer@fivewin.com.br 6 - Alexandre Pereira - alexandre@declatecnologia.com.br 7 - Evandro G. de Paula - imortal@skillnet.com.br 8 - Vailton Renato - contato@vailton.com.br 9 - Rubens Martins - rumarti@gmail.com 10 - Cleber Conde - cleber@krcsistemas.com.br 11 - Decker - Carlos E. Decker 12 - Vagner Wirts - vwirts@ig.com.br 13 - Antenor Trufelli Filho - trufelli@uol.com.br 14 - José Carlos R Leoner - Guaruhos - SP - josecarlos@vimatec.com.br 15 - Luis Antonio da Paixao - Sao Sebastiao do Paraiso - Minas Gerais - luispaixao13@hotmail.com 16 - Valdir - Jundiaí - valdir@fivesolution.com.br 17 - Luiz Antonio de Oliveira - Santa fe do Sul - SP luizantoniooliveira@hotmail.com - LUIZ53 18 - Giovanny Vecchi - Santa Fé do Sul - SP - 19 - Claudio de Oliveira - claliveira@ig.com.br 20 - Ailton - Syspel 21 - José Maria da Silva - saa50@bol.com.br 22 - Helio Tsuyama - hbinfo.br@gmail.com Vamos este ano

Guilmer, ficou muito legal. Passei um email para a cheila, eu fiz a atualizacao para a versao 12.01 em 27/02/2012 e nao recebi o numero de serie, coloque o da versao anterior para poder me cadastrar. Sao detalhes que acertaremos. Abracos Helio Tsuyama Santo Andre - SP fw12.01-xhb1.2.1-xDev0.7 - bcc 5.82 hbinfo.br@gmail.com

Erro de logica, o Rikko estava certo. cpdf_file := wFilePdf + STRZERO(cessao->documento,6,0) + ".PDF" DO WHILE .NOT.EOF() wtotal := 0.00 wdocumento := cessao->documento wdata := DTOC(data) wrazao := razao wtotal := wtotal +( qdade10*valor10 ) Relat43() cpdf_file := wFilePdf + STRZERO(cessao->documento,6,0) + ".PDF" SKIP ENDDO Relat43() CLOSE Cessao Muito Obrigado a todos. O Bullzip eh muito facil de usar. Helio Tsuyama Santo Andre - SP fw12.01-xhb1.2.1-xDev0.7 - bcc 5.82 hbinfo.br@gmail.com

Bom dia Rikko O conteudo do wdocumento esta correto, tanto que ele gera o relatorio com o numero correto, mas ele coloca o nome do arquivo com o documento seguinte. Eh como ele gerasse o nome do arquivo somente depois de ler o registro seguinte. Em que momento eh gerado o arquivo? Grato pela atencao Helio Tsuyama Santo Andre - SP fw12.01-xhb1.2.1-xDev0.7 - bcc 5.82 hbinfo.br@gmail.com

Boa Tarde a todos Estou tentando usar o BULLZIP, e esta ocorrendo o seguinte erro. Tenho que imprimir um DBF com numero pedido, cliente e itens. O programa gera conteudo do relatorio correto, porem o nome do arquivo PDF eh gerado com o numero do segundo pedido. O nome do arquivo PDF eh deslocado de 1 registro. Alguem pode me ajudar? Grato Helio Tsuyama Santo Andre - SP fw12.01-xhb1.2.1-xDev0.7 - bcc 5.82 hbinfo.br@gmail.com ///////////////////////////////////// FUNCTION Relat43() && Imprime Recibo LOCAL oPrn, oFont, oFont1, oFont2, oFont3, oFont8, oFont9, oFont10, oFont11, oFont12 LOCAL oPrinter, oReport LOCAL oBrush, oPen1, oPen2 LOCAL nlines, wlinha, i, cline LOCAL wln, winc LOCAL wFileWmf := "cessao.WMF" //"STD_INJ.EMF" cPDF := "C:\TEMP\TESTEBULZIP.PDF" nArea := Select() cpdf_File := "C:\TEMP\TESTEBULZIP.PDF" cpdf_file := wFilePdf + STRZERO(wdocumento,6,0) + ".PDF" // initialize Bullzip PDF settings ************************************************************ oPdf := TOleAuto():New( "Bullzip.PDFPrinterSettings" ) oPdf:SetValue("Output",cpdf_File) oPdf:SetValue("ConfirmOverwrite", "no") oPdf:SetValue("ShowSaveAS", "never") oPdf:SetValue("ShowSettings", "never") oPdf:SetValue("ShowPDF", "no") oPdf:SetValue("RememberLastFileName", "no") oPdf:SetValue("RememberLastFolderName", "no") oPdf:WriteSettings := .T. PRINTER oPrn NAME "Gerandopdf" ; to "Bullzip PDF Printer" //modal DEFINE FONT oFont8 NAME "Arial" SIZE 0, -8 OF oPrn DEFINE FONT oFont NAME "Arial" BOLD SIZE 0, -8 OF oPrn DEFINE FONT oFont1 NAME "Arial" BOLD ITALIC SIZE 0,-20 OF oPrn DEFINE FONT oFont2 NAME "Arial" BOLD ITALIC UNDERLINE SIZE 0, -8 OF oPrn DEFINE FONT oFont3 NAME "Arial" BOLD SIZE 0,-11 OF oPrn oPrn:StartPage() oPrn:ImportWMF( wFileWmf ) wln := 3.3 winc := .404 oPrn:CmSay( wln, 19.0, TRANSFORM(wdocumento, "@E 999,999"), oFont3,,,2,1) oPrn:CmSay( wln+(winc* 0.0), 12.0, wdata, oFont3) wln := 4.23 oPrn:CmSay( wln+(winc* 1.0), 3.5, wrazao, oFont3) wln := 7.50 IF !EMPTY(wfilme1) oPrn:CmSay( wln+(winc* 1.0), 1.0, wfilme1, oFont3) oPrn:CmSay( wln+(winc* 1.0), 13.5, TRANSFORM(wqdade1, "@E 999,999"), oFont3,,,2,1) oPrn:CmSay( wln+(winc* 1.0), 16.5, TRANSFORM(wvalor1, "@E 999,999.99"), oFont3,,,2,1) oPrn:CmSay( wln+(winc* 1.0), 20.0, TRANSFORM((wqdade1*wvalor1), "@E 999,999.99"), oFont3,,,2,1) ENDIF oPrn:CmSay( 23.40, 20.0, TRANSFORM(wTotal, "@E 999,999.99"), oFont3,,,2,1) oPrn:EndPage() SysWait(.5) oFont8:end() oFont:end() oFont1:end() oFont2:end() oFont3:end() ENDPRINTER oPdf := NIL RELEASE oPdf RETURN(NIL) Editado por - hinfo on 23/07/2012 18:49:42 Editado por - hinfo on 24/07/2012 09:42:56

Boa Tarde a todos Estou tentando usar o BULLZIP, e esta ocorrendo o seguinte erro. Tenho que imprimir um DBF com numero pedido, cliente e itens. O programa gera conteudo do relatorio correto, porem o nome do arquivo PDF eh gerado com o numero do segundo pedido. O nome do arquivo PDF eh deslocado de 1 registro. Alguem pode me ajudar? Grato Helio Tsuyama Santo Andre - SP fw12.01-xhb1.2.1-xDev0.7 - bcc 5.82 hbinfo.br@gmail.com ///////////////////////////////////// FUNCTION Relat43() && Imprime Recibo LOCAL oPrn, oFont, oFont1, oFont2, oFont3, oFont8, oFont9, oFont10, oFont11, oFont12 LOCAL oPrinter, oReport LOCAL oBrush, oPen1, oPen2 LOCAL nlines, wlinha, i, cline LOCAL wln, winc LOCAL wFileWmf := "cessao.WMF" //"STD_INJ.EMF" cPDF := "C:\TEMP\TESTEBULZIP.PDF" nArea := Select() cpdf_File := "C:\TEMP\TESTEBULZIP.PDF" cpdf_file := wFilePdf + STRZERO(wdocumento,6,0) + ".PDF" // initialize Bullzip PDF settings ************************************************************ oPdf := TOleAuto():New( "Bullzip.PDFPrinterSettings" ) oPdf:SetValue("Output",cpdf_File) oPdf:SetValue("ConfirmOverwrite", "no") oPdf:SetValue("ShowSaveAS", "never") oPdf:SetValue("ShowSettings", "never") oPdf:SetValue("ShowPDF", "no") oPdf:SetValue("RememberLastFileName", "no") oPdf:SetValue("RememberLastFolderName", "no") oPdf:WriteSettings := .T. PRINTER oPrn NAME "Gerandopdf" ; to "Bullzip PDF Printer" //modal DEFINE FONT oFont8 NAME "Arial" SIZE 0, -8 OF oPrn DEFINE FONT oFont NAME "Arial" BOLD SIZE 0, -8 OF oPrn DEFINE FONT oFont1 NAME "Arial" BOLD ITALIC SIZE 0,-20 OF oPrn DEFINE FONT oFont2 NAME "Arial" BOLD ITALIC UNDERLINE SIZE 0, -8 OF oPrn DEFINE FONT oFont3 NAME "Arial" BOLD SIZE 0,-11 OF oPrn oPrn:StartPage() oPrn:ImportWMF( wFileWmf ) wln := 3.3 winc := .404 oPrn:CmSay( wln, 19.0, TRANSFORM(wdocumento, "@E 999,999"), oFont3,,,2,1) oPrn:CmSay( wln+(winc* 0.0), 12.0, wdata, oFont3) wln := 4.23 oPrn:CmSay( wln+(winc* 1.0), 3.5, wrazao, oFont3) wln := 7.50 IF !EMPTY(wfilme1) oPrn:CmSay( wln+(winc* 1.0), 1.0, wfilme1, oFont3) oPrn:CmSay( wln+(winc* 1.0), 13.5, TRANSFORM(wqdade1, "@E 999,999"), oFont3,,,2,1) oPrn:CmSay( wln+(winc* 1.0), 16.5, TRANSFORM(wvalor1, "@E 999,999.99"), oFont3,,,2,1) oPrn:CmSay( wln+(winc* 1.0), 20.0, TRANSFORM((wqdade1*wvalor1), "@E 999,999.99"), oFont3,,,2,1) ENDIF oPrn:CmSay( 23.40, 20.0, TRANSFORM(wTotal, "@E 999,999.99"), oFont3,,,2,1) oPrn:EndPage() SysWait(.5) oFont8:end() oFont:end() oFont1:end() oFont2:end() oFont3:end() ENDPRINTER oPdf := NIL RELEASE oPdf RETURN(NIL) Editado por - hinfo on 23/07/2012 18:49:42 Editado por - hinfo on 24/07/2012 09:42:56

Boa noite a todos Eu estou interessado em participar da coop Tenham uma boa semana Helio Tsuyama Santo Andre - SP fw12.01-xhb1.2.1-xDev0.7 - bcc 5.82 hbinfo.br@gmail.com