coutinho.amauri

meus caros amigos programadores TA DANDO UM ERRO QUE NÃO CONSIGO SOLUCIONAR Aplicacao ========== Nome e Caminho: D:\SISTER\SISTERMA.EXE Tamanho: 1,245,760 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 255 Ocorreu erro em: 08/11/2007, 11:52:13 Descricao: Erro Objects/8 No Object Msg.: UNDEFINED:DEFCONTROL Chamadas ao Stack ================= CHAMADA DE LOCKERRHAN(0) CHAMADA DE (b)INITHANDL$(0) CHAMADA DE DEFCONTROL(0) CHAMADA DE TWBROWSE:REDEFINE(0) CHAMADA DE TRF(77) CHAMADA DE (b)MAIN(53) CHAMADA DE TBTNBMP:CLICK(0) CHAMADA DE TBTNBMP:LBUTTONUP(0) CHAMADA DE TBTNBMP:HANDLEEVEN(0) CHAMADA DE WINRUN(0) CHAMADA DE TWINDOW:ACTIVATE(0) CHAMADA DE MAIN O CODIGO FONTE #include 'fivewin.ch' #include "richtext.ch" #include "image.ch" STATIC mIt20 //*************************************************************************\\ FUNCTION TRF() LOCAL oDlg , lSave , xtrans , xitem , xdest local aHBitMaps:= { ReadBitmap( 0, ".\BITMAPS\True.bmp" ),; ReadBitmap( 0, ".\BITMAPS\False.bmp") } aIngre := {} xtrans := .F. lSave := .F. xItem := 0 mIt20 := 0 xdest := 0 IF ! MsgGet("Armario Remetente","Informe",@mIt20) RETURN NIL ENDIF IF EMPTY(mIt20) RETURN NIL ENDIF USE QUARTOS SHARED NEW OrdListAdd( "QUARTOS", "QUARCODI", "QUARDESC" ) QUARTOS->( DBSETORDER(1) ) QUARTOS->( DBGOTOP() ) IF ! QUARTOS->( DBSEEK(mIt20) ) MsgStop(OemToAnsi("Armario Nao Localizado"),OemToAnsi("Atencao")) RETURN NIL ENDIF * preenche o vetor com os itens consumidos FOR Y := 1 TO 20 IF &("QUARTOS->ITEM11_"+STRZERO(Y,2)) > 0 AADD(aIngre,{ &("QUARTOS->ITEM32_"+STRZERO(Y,2)) ,; &("QUARTOS->ITEM11_"+STRZERO(Y,2)) ,; &("QUARTOS->ITEM12_"+STRZERO(Y,2)) ,; &("QUARTOS->ITEM15_"+STRZERO(Y,2)) }) ENDIF NEXT IF LEN( aIngre ) = 0 aIngre := {} AADD(aIngre,{.F.,0,SPACE(40),0}) ENDIF nLinha := 1 REDEFINE LISTBOX oIngre ; FIELDS aHBitmaps[ IIF(aIngre[nLinha,1] = .T. , 1 , 2 ) ] ,; STR(aIngre[nLinha,2] , 5 ) ,; aIngre[nLinha,3] ,; TRANSFORM( aIngre[nLinha,4] ,"@E 999.999" ) ; ID 52 OF oDlg ; ALIAS NIL ; COLORS CLR_BLACK, CLR_WHITE oIngre:aHeaders := {"T" ,; "Qtde." ,; "Descricao",; "Total" } oIngre:aColSizes := {50,100,300,100} oIngre:bLogicLen := {|| len(aIngre)} oIngre:bGoTop := {|| nLinha := 1 } oIngre:bGoBottom := {|| nLinha := Eval( oIngre:bLogicLen ) } oIngre:bLogicLen := {|| Len( aIngre ) } oIngre:bSkip := { | nWant, nDo |nDo := Min( Max( nWant, 1 - nLinha ), ; Len( aIngre ) - nLinha ), ; nLinha += nDo, nDo } oIngrebChange := {|| oSay:Refresh() } DEFINE DIALOG oDlg RESOURCE "TRANSF" REDEFINE BUTTON oBt1 ID 108 OF oDlg ACTION (SelTudo(),oIngre:UpStable(),oIngre:Refresh()) REDEFINE CHECKBOX oGt1 VAR xtrans ID 106 REDEFINE GET oGt2 VAR xdest PICTURE "999" ID 11 OF oDlg REDEFINE BUTTON oBt2 ID 12 OF oDlg ACTION ( lSave := .T. , oDlg:End()) REDEFINE BUTTON oBt3 ID 102 OF oDlg ACTION ( lSave := .F. , oDlg:End()) ACTIVATE DIALOG oDlg CENTERED IF lSave IF LEN(aIngre) > 0 FOR nX := 1 TO LEN(aIngre) IF ! EMPTY(aIngre[nX,1]) QUARTOS->( DBAPPEND() ) * GRAVAR CAMPOS ENDIF NEXT ENDIF FERRAGE->(DbCommitAll()) SysRefresh() ENDIF CLOSE QUARTOS oIngre:bGoTop() oIngre:Refresh() RETURN NIL fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com

meus caros amigos programadores TA DANDO UM ERRO QUE NÃO CONSIGO SOLUCIONAR Aplicacao ========== Nome e Caminho: D:\SISTER\SISTERMA.EXE Tamanho: 1,245,760 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 255 Ocorreu erro em: 08/11/2007, 11:52:13 Descricao: Erro Objects/8 No Object Msg.: UNDEFINED:DEFCONTROL Chamadas ao Stack ================= CHAMADA DE LOCKERRHAN(0) CHAMADA DE (b)INITHANDL$(0) CHAMADA DE DEFCONTROL(0) CHAMADA DE TWBROWSE:REDEFINE(0) CHAMADA DE TRF(77) CHAMADA DE (b)MAIN(53) CHAMADA DE TBTNBMP:CLICK(0) CHAMADA DE TBTNBMP:LBUTTONUP(0) CHAMADA DE TBTNBMP:HANDLEEVEN(0) CHAMADA DE WINRUN(0) CHAMADA DE TWINDOW:ACTIVATE(0) CHAMADA DE MAIN O CODIGO FONTE #include 'fivewin.ch' #include "richtext.ch" #include "image.ch" STATIC mIt20 //*************************************************************************\\ FUNCTION TRF() LOCAL oDlg , lSave , xtrans , xitem , xdest local aHBitMaps:= { ReadBitmap( 0, ".\BITMAPS\True.bmp" ),; ReadBitmap( 0, ".\BITMAPS\False.bmp") } aIngre := {} xtrans := .F. lSave := .F. xItem := 0 mIt20 := 0 xdest := 0 IF ! MsgGet("Armario Remetente","Informe",@mIt20) RETURN NIL ENDIF IF EMPTY(mIt20) RETURN NIL ENDIF USE QUARTOS SHARED NEW OrdListAdd( "QUARTOS", "QUARCODI", "QUARDESC" ) QUARTOS->( DBSETORDER(1) ) QUARTOS->( DBGOTOP() ) IF ! QUARTOS->( DBSEEK(mIt20) ) MsgStop(OemToAnsi("Armario Nao Localizado"),OemToAnsi("Atencao")) RETURN NIL ENDIF * preenche o vetor com os itens consumidos FOR Y := 1 TO 20 IF &("QUARTOS->ITEM11_"+STRZERO(Y,2)) > 0 AADD(aIngre,{ &("QUARTOS->ITEM32_"+STRZERO(Y,2)) ,; &("QUARTOS->ITEM11_"+STRZERO(Y,2)) ,; &("QUARTOS->ITEM12_"+STRZERO(Y,2)) ,; &("QUARTOS->ITEM15_"+STRZERO(Y,2)) }) ENDIF NEXT IF LEN( aIngre ) = 0 aIngre := {} AADD(aIngre,{.F.,0,SPACE(40),0}) ENDIF nLinha := 1 REDEFINE LISTBOX oIngre ; FIELDS aHBitmaps[ IIF(aIngre[nLinha,1] = .T. , 1 , 2 ) ] ,; STR(aIngre[nLinha,2] , 5 ) ,; aIngre[nLinha,3] ,; TRANSFORM( aIngre[nLinha,4] ,"@E 999.999" ) ; ID 52 OF oDlg ; ALIAS NIL ; COLORS CLR_BLACK, CLR_WHITE oIngre:aHeaders := {"T" ,; "Qtde." ,; "Descricao",; "Total" } oIngre:aColSizes := {50,100,300,100} oIngre:bLogicLen := {|| len(aIngre)} oIngre:bGoTop := {|| nLinha := 1 } oIngre:bGoBottom := {|| nLinha := Eval( oIngre:bLogicLen ) } oIngre:bLogicLen := {|| Len( aIngre ) } oIngre:bSkip := { | nWant, nDo |nDo := Min( Max( nWant, 1 - nLinha ), ; Len( aIngre ) - nLinha ), ; nLinha += nDo, nDo } oIngrebChange := {|| oSay:Refresh() } DEFINE DIALOG oDlg RESOURCE "TRANSF" REDEFINE BUTTON oBt1 ID 108 OF oDlg ACTION (SelTudo(),oIngre:UpStable(),oIngre:Refresh()) REDEFINE CHECKBOX oGt1 VAR xtrans ID 106 REDEFINE GET oGt2 VAR xdest PICTURE "999" ID 11 OF oDlg REDEFINE BUTTON oBt2 ID 12 OF oDlg ACTION ( lSave := .T. , oDlg:End()) REDEFINE BUTTON oBt3 ID 102 OF oDlg ACTION ( lSave := .F. , oDlg:End()) ACTIVATE DIALOG oDlg CENTERED IF lSave IF LEN(aIngre) > 0 FOR nX := 1 TO LEN(aIngre) IF ! EMPTY(aIngre[nX,1]) QUARTOS->( DBAPPEND() ) * GRAVAR CAMPOS ENDIF NEXT ENDIF FERRAGE->(DbCommitAll()) SysRefresh() ENDIF CLOSE QUARTOS oIngre:bGoTop() oIngre:Refresh() RETURN NIL fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com

urgente !!!!! fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com

caros amigos tenho que montar a impressão de dois formatos de etiquetas na impressora argox , e não tenho a mínima ideia de como fazer. se alguem puder me ajudar agradeço. solicitar o a quantidade de etiquetas 1 etiqueta largura 5 cm = 500 mm altura 1 cm = 100 mm dados nome do produto ||||||||||||||||||| valor 99 obs : uma etiqueta por linha 2 - etiqueta altura 2 cm = 200 mm largura 3 cm = 300 mm dados nome do produto valor codigo do produto codigo de barra xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 999,99 99999999999999 ||||||||||||||||||| solicitar quantidade de etiquetas obs : 3 etiquetas por linha Atenciosamente Amauri fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com

caros amigos tenho que montar a impressão de dois formatos de etiquetas na impressora argox , e não tenho a mínima ideia de como fazer. se alguem puder me ajudar agradeço. solicitar o a quantidade de etiquetas 1 etiqueta largura 5 cm = 500 mm altura 1 cm = 100 mm dados nome do produto ||||||||||||||||||| valor 99 obs : uma etiqueta por linha 2 - etiqueta altura 2 cm = 200 mm largura 3 cm = 300 mm dados nome do produto valor codigo do produto codigo de barra xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 999,99 99999999999999 ||||||||||||||||||| solicitar quantidade de etiquetas obs : 3 etiquetas por linha Atenciosamente Amauri fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com

e-mail : amauri@cyclonet.com.br msn : coutinho.amauri@hotmail.com desculpe vlw

Estou de um Sistema que controle as correspondencias e documentaçoes. se alguem tiver um , favor entrar em contato Atenciosamente Amauri

Estou de um Sistema que controle as correspondencias e documentaçoes. se alguem tiver um , favor entrar em contato Atenciosamente Amauri

Excelente Ideia coutinho.amauri@hotmail.com Amauri Niteroi -RJ

obrigado.. vlw..

boa tarde five winers quero colocar na tela uma barra de progresso para o seguinte processo to gerando um arquivo texto queria mostrar na tela uma barra de progresso conforme vai gravando o registro. alguem poderia me ajudar amauri clip53 fw24 ws obrigado.

boa tarde five winers quero colocar na tela uma barra de progresso para o seguinte processo to gerando um arquivo texto queria mostrar na tela uma barra de progresso conforme vai gravando o registro. alguem poderia me ajudar amauri clip53 fw24 ws obrigado.

AMIGOS TO USANDO A IMPRESSORA ARGOX FIZ A ROTINA DE IMPREESSAO MAS TA FALHANDO NA IMPRESSAO ALGUEM SABE COMO RESOLVER POIS ACHO QUE E NSO COMANDOS. AI VAI A A ROTINA QUE ESTOU USANDO. //-------------------------------------------------------------------------// FUNCTION IMPETIPRO(oCod,oIt02,oIt04,WQTDE) LOCAL nREF1 := SPACE(08), nREF2 :=SPACE(07), nIND :=0 LOCAL nVEND := 0 , nQTD :=0 , nIX :="" , nCob LOCAL nLin := 0 , nCol :=0 nREF1 := LEFT(PRODUTOS->NOME,8) nREF2 := RIGHT(PRODUTOS->NOME,7) nVEND := PRODUTOS->ITEM04 nQTD := wQTDE nCob := PRODUTOS->CODIGO nIX := "R$" oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:StartPage() oPrn:lZeraBuffer:=.T. // Inibe o Pulo da P gina WHIL ! ISPRINTER() IF ! MsgRetryCancel( "Sua Impressora, Não Esta Ligada!!! " + CRLF + ; "Favor Verificar e tente de novo!",; "Erro de Impressora!" ) Return Nil ENDIF ENDDO @ nLin,nCol SAY [FK"*"]+CRLF OF oPrn @ nLin,nCol SAY [FS"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY [V00,08,N,""]+CRLF OF oPrn @ nLin,nCol SAY [V01,08,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V02,07,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V03,02,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V04,10,N,""]+CRLF OF oPrn @ nLin,nCol SAY CRLF OF oPrn @ nLin,nCol SAY [Q104,24+0]+CRLF OF oPrn @ nLin,nCol SAY [R100,0]+CRLF OF oPrn @ nLin,nCol SAY [s2]+CRLF OF oPrn @ nLin,nCol SAY [D8]+CRLF OF oPrn @ nLin,nCol SAY [ZT]+CRLF OF oPrn @ nLin,nCol SAY [TTh]+CRLF OF oPrn @ nLin,nCol SAY [TDy2.mn.dd]+CRLF OF oPrn @ nLin,nCol SAY [b449,8,0,E80,2,2,59,B,V00]+CRLF OF oPrn @ nLin,nCol SAY [A337,6,0,1,1,2,N,V01]+CRLF OF oPrn @ nLin,nCol SAY [A337,31,0,1,1,2,N,V02]+CRLF OF oPrn @ nLin,nCol SAY [A305,53,0,1,1,2,N,V03]+CRLF OF oPrn @ nLin,nCol SAY [A337,57,0,1,1,2,N,V04]+CRLF OF oPrn @ nLin,nCol SAY [FE]+CRLF OF oPrn @ nLin,nCol SAY [FR"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY +CRLF OF oPrn @ nLin,nCol SAY nCOB +CRLF OF oPrn @ nLin,nCol SAY NREF1 +CRLF OF oPrn @ nLin,nCol SAY NREF2 +CRLF OF oPrn @ nLin,nCol SAY NIX +CRLF OF oPrn @ nLin,nCol SAY TRANSFORM(NVEND, "@E 99,999.99") +CRLF OF oPrn @ nLin,nCol SAY "P"+STRZERO(nQTD,4)+CRLF OF oPrn oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem SysRefresh() ImprSpol( "\TICKET.PRN", , .T. ) RETURN NIL //----------------------------------------------------------------------------// STATIC function ImprSpol( cFileTxt, cPorta, lErase ) default cPorta:= Alltrim( PrnGetPort() ), lErase:= .t. if !File( cFileTxt ) return .f. endif if Len( cPorta ) <= 5 .and. Left( Upper(cPorta), 4) = "LPT1" //--- Spool Local cPorta:= "PRN" WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) else //--- Spool Remoto WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) endif if lErase FErase( cFileTxt ) endif return .t.

AMIGOS TO USANDO A IMPRESSORA ARGOX FIZ A ROTINA DE IMPREESSAO MAS TA FALHANDO NA IMPRESSAO ALGUEM SABE COMO RESOLVER POIS ACHO QUE E NSO COMANDOS. AI VAI A A ROTINA QUE ESTOU USANDO. //-------------------------------------------------------------------------// FUNCTION IMPETIPRO(oCod,oIt02,oIt04,WQTDE) LOCAL nREF1 := SPACE(08), nREF2 :=SPACE(07), nIND :=0 LOCAL nVEND := 0 , nQTD :=0 , nIX :="" , nCob LOCAL nLin := 0 , nCol :=0 nREF1 := LEFT(PRODUTOS->NOME,8) nREF2 := RIGHT(PRODUTOS->NOME,7) nVEND := PRODUTOS->ITEM04 nQTD := wQTDE nCob := PRODUTOS->CODIGO nIX := "R$" oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:StartPage() oPrn:lZeraBuffer:=.T. // Inibe o Pulo da P gina WHIL ! ISPRINTER() IF ! MsgRetryCancel( "Sua Impressora, Não Esta Ligada!!! " + CRLF + ; "Favor Verificar e tente de novo!",; "Erro de Impressora!" ) Return Nil ENDIF ENDDO @ nLin,nCol SAY [FK"*"]+CRLF OF oPrn @ nLin,nCol SAY [FS"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY [V00,08,N,""]+CRLF OF oPrn @ nLin,nCol SAY [V01,08,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V02,07,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V03,02,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V04,10,N,""]+CRLF OF oPrn @ nLin,nCol SAY CRLF OF oPrn @ nLin,nCol SAY [Q104,24+0]+CRLF OF oPrn @ nLin,nCol SAY [R100,0]+CRLF OF oPrn @ nLin,nCol SAY [s2]+CRLF OF oPrn @ nLin,nCol SAY [D8]+CRLF OF oPrn @ nLin,nCol SAY [ZT]+CRLF OF oPrn @ nLin,nCol SAY [TTh]+CRLF OF oPrn @ nLin,nCol SAY [TDy2.mn.dd]+CRLF OF oPrn @ nLin,nCol SAY [b449,8,0,E80,2,2,59,B,V00]+CRLF OF oPrn @ nLin,nCol SAY [A337,6,0,1,1,2,N,V01]+CRLF OF oPrn @ nLin,nCol SAY [A337,31,0,1,1,2,N,V02]+CRLF OF oPrn @ nLin,nCol SAY [A305,53,0,1,1,2,N,V03]+CRLF OF oPrn @ nLin,nCol SAY [A337,57,0,1,1,2,N,V04]+CRLF OF oPrn @ nLin,nCol SAY [FE]+CRLF OF oPrn @ nLin,nCol SAY [FR"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY +CRLF OF oPrn @ nLin,nCol SAY nCOB +CRLF OF oPrn @ nLin,nCol SAY NREF1 +CRLF OF oPrn @ nLin,nCol SAY NREF2 +CRLF OF oPrn @ nLin,nCol SAY NIX +CRLF OF oPrn @ nLin,nCol SAY TRANSFORM(NVEND, "@E 99,999.99") +CRLF OF oPrn @ nLin,nCol SAY "P"+STRZERO(nQTD,4)+CRLF OF oPrn oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem SysRefresh() ImprSpol( "\TICKET.PRN", , .T. ) RETURN NIL //----------------------------------------------------------------------------// STATIC function ImprSpol( cFileTxt, cPorta, lErase ) default cPorta:= Alltrim( PrnGetPort() ), lErase:= .t. if !File( cFileTxt ) return .f. endif if Len( cPorta ) <= 5 .and. Left( Upper(cPorta), 4) = "LPT1" //--- Spool Local cPorta:= "PRN" WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) else //--- Spool Remoto WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) endif if lErase FErase( cFileTxt ) endif return .t.

alguem pode me ajudar na compilacao ocorreu este erro alert.prg was compiled by older version , pcode version 5 is no longer supported - please recompile

alguem pode me ajudar na compilacao ocorreu este erro alert.prg was compiled by older version , pcode version 5 is no longer supported - please recompile

Caros Amigos estou convertendo o sistema para 32 e qdo compila esta dando esta mensagem alguem pode me ajudar. Executando: ILINK32 @B32.BC Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_TVGET' referenced from BATPONTO.OBJ Error: Unresolved external '_HB_FUN_TVBTNBMP' referenced from BATPONTO.OBJ Error: Unresolved external '_HB_FUN_DBFCDX' referenced from SISPONTO.OBJ Error: Unresolved external '_HB_FUN_TSSAY' referenced from RESTORE.OBJ xdev 0.65 fwh 2.6 xhb 099.50

Caros Amigos estou convertendo o sistema para 32 e qdo compila esta dando esta mensagem alguem pode me ajudar. Executando: ILINK32 @B32.BC Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_TVGET' referenced from BATPONTO.OBJ Error: Unresolved external '_HB_FUN_TVBTNBMP' referenced from BATPONTO.OBJ Error: Unresolved external '_HB_FUN_DBFCDX' referenced from SISPONTO.OBJ Error: Unresolved external '_HB_FUN_TSSAY' referenced from RESTORE.OBJ xdev 0.65 fwh 2.6 xhb 099.50

ups

Caros Amigos alguem por ai ja trabalhou com a roleta eletronica pois tenho um cliente uma academia que esta implantando a roleta e quer que se comunique com o sistema para validar o cliente , qdo ele passar o cartao. Atenciosamente Amauri

Caros Amigos alguem por ai ja trabalhou com a roleta eletronica pois tenho um cliente uma academia que esta implantando a roleta e quer que se comunique com o sistema para validar o cliente , qdo ele passar o cartao. Atenciosamente Amauri

coutinho.amauri@gmail.com

a finalidade e agenda de consultas e atendimento , orçamentos , relatorio para o sus

alguem por acaso ja fez um sistema com esta finalidade se alguem tiver podemos conversar.. Amauri

alguem por acaso ja fez um sistema com esta finalidade se alguem tiver podemos conversar.. Amauri