silvanof

Ana, se vc trabalha com matriz no Browse eu acho que vai resolver pq vc copia e cola em qualquer posição independente do número de linhas. Att., Silvano.

Ana, tenho um sistema de agenda médica, onde a prática de mudar as informações de linha no Browse são comuns. Utilizo um listbox com matriz e tenho rotinas de copiar e colar que são ativadas com o botão direito do mouse (oBrw:bRClicked). Seguem as funções para sua análise: STATIC FUNCTION RecortarItemAgenda() IF aMtz[oBrw:nAt,7] aMtz[oBrw:nAt,8]:=.T. nItemRecortado := oBrw:nAt dDataRecortada := dCalendario aMtzTra:=aMtz oBrw:Refresh() ELSE MSG('Horário bloqueado') END RETURN NIL STATIC FUNCTION ColarItemAgenda() IF aMtz[oBrw:nAt,7] IF PedeSenhaAnt() aMtz[oBrw:nAt,2]:=aMtzTra[nItemRecortado,2] aMtz[oBrw:nAt,3]:=aMtzTra[nItemRecortado,3] aMtz[oBrw:nAt,4]:=aMtzTra[nItemRecortado,4] aMtz[oBrw:nAt,5]:=aMtzTra[nItemRecortado,5] IF aMtzTra[nItemRecortado,6]==5 aMtz[oBrw:nAt,6]:=1 ELSEIF aMtzTra[nItemRecortado,6]==10 aMtz[oBrw:nAt,6]:=6 ELSE aMtz[oBrw:nAt,6]:=aMtzTra[nItemRecortado,6] END aMtz[oBrw:nAt,9]:=aMtzTra[nItemRecortado,9] //)+CRLF+'Agenda anterior: '+DToC(dDataRecortada)+' '+aMtzTra[nItemRecortado,1] aMtz[oBrw:nAt,11]:=aMtzTra[nItemRecortado,11] aMtz[oBrw:nAt,12]:=aMtzTra[nItemRecortado,12] aMtz[oBrw:nAt,13]:=aMtzTra[nItemRecortado,13] aMtz[oBrw:nAt,14]:=aMtzTra[nItemRecortado,14] aMtz[oBrw:nAt,15]:=aMtzTra[nItemRecortado,15] aMtz[oBrw:nAt,16]:=Usuarios->CodUsu aMtz[oBrw:nAt,17]:=Hoje() //dCalendario //Hoje() aMtz[oBrw:nAt,18]:=aMtzTra[nItemRecortado,18] aMtz[oBrw:nAt,19]:=aMtzTra[nItemRecortado,19] aMtz[oBrw:nAt,20]:=aMtzTra[nItemRecortado,20] aMtz[oBrw:nAt,21]:=aMtzTra[nItemRecortado,21] aMtz[oBrw:nAt,23]:=aMtzTra[nItemRecortado,23] aMtz[oBrw:nAt,25]:=aMtzTra[nItemRecortado,25]+; DToC(dDataRecortada)+' '+; // data antes do recorte aMtzTra[nItemRecortado,1]+' '+; // horario antes do recorte DToC(Hoje())+' '+; // data do recorte Left(Time(),5)+' '+; // horario do recorte Str(Usuarios->CodUsu,6,0)+' '+; // codigo do usuario que recortou Usuarios->Nome+CRLF // nome do usuario que recortou GravaAgenda() GravaReservaEquipamentos() IF dCalendario==dDataRecortada ExcluiReservaEquipamentos(nItemRecortado) aMtz[nItemRecortado,8]:=.F. aMtz[nItemRecortado,2]:='' aMtz[nItemRecortado,3]:='' aMtz[nItemRecortado,4]:='' aMtz[nItemRecortado,5]:='' aMtz[nItemRecortado,6]:=0 aMtz[nItemRecortado,9]:='' aMtz[nItemRecortado,11]:=0 aMtz[nItemRecortado,12]:=0 aMtz[nItemRecortado,13]:=0 aMtz[nItemRecortado,14]:=0 aMtz[nItemRecortado,15]:=CToD('') aMtz[nItemRecortado,16]:=0 aMtz[nItemRecortado,17]:=CToD('') aMtz[nItemRecortado,18]:=0 aMtz[nItemRecortado,19]:=CToD('') aMtz[nItemRecortado,20]:=0 aMtz[nItemRecortado,21]:='' aMtz[nItemRecortado,23]:=0 aMtz[nItemRecortado,24]:='' aMtz[nItemRecortado,25]:='' GravaAgenda(nItemRecortado) ExcluiEncaixe(aMtz,nItemRecortado) ELSE ExcluiReservaEquipamentos(nItemRecortado,aMtzTra,dDataRecortada) aMtzTra[nItemRecortado,8]:=.F. aMtzTra[nItemRecortado,2]:='' aMtzTra[nItemRecortado,3]:='' aMtzTra[nItemRecortado,4]:='' aMtzTra[nItemRecortado,5]:='' aMtzTra[nItemRecortado,6]:=0 aMtzTra[nItemRecortado,9]:='' aMtzTra[nItemRecortado,11]:=0 aMtzTra[nItemRecortado,12]:=0 aMtzTra[nItemRecortado,13]:=0 aMtzTra[nItemRecortado,14]:=0 aMtzTra[nItemRecortado,15]:=CToD('') aMtzTra[nItemRecortado,16]:=0 aMtzTra[nItemRecortado,17]:=CToD('') aMtzTra[nItemRecortado,18]:=0 aMtzTra[nItemRecortado,19]:=CToD('') aMtzTra[nItemRecortado,20]:=0 aMtzTra[nItemRecortado,21]:='' aMtzTra[nItemRecortado,23]:=0 aMtzTra[nItemRecortado,24]:='' aMtzTra[nItemRecortado,25]:='' GravaAgenda(nItemRecortado,aMtzTra,dDataRecortada) ExcluiEncaixe(aMtzTra,nItemRecortado) END nItemRecortado := 0 dDataRecortada := CToD('') aMtzTra:={} oBrw:Refresh() END ELSE MSG('Horário bloqueado') END RETURN NIL STATIC FUNCTION CancelaRecortarItemAgenda() IF dCalendario==dDataRecortada aMtz[nItemRecortado,8]:=.F. ELSE aMtzTra[nItemRecortado,8]:=.F. END nItemRecortado := 0 dDataRecortada := CToD('') aMtzTra:=aMtz oBrw:Refresh() RETURN NIL Att. Silvano Bispo Faria AWS SIstemas Empresairas tel: (15) 3202-4498

Prezados, sou novo aqui o fórum e preciso muito da ajudo de vcs. Venho utilizando ha um bom tempo uma classe para facilitar a confecção de relatórios através da classe nativa Tprinter. Até a versão 8 do Fivewin funcionava normalmente, depois que fiz upgrade para a versão 12 e 13 parou de funcionar. Da erro no retorno Self da classe Tprinter metodo New,(o sistema aborta sem acusar erro de execução), quando chamada através da minha classe, se uso direto a classe Tprinter o erro não ocorre. Já tentei de tudo e não consigo resolver. As DLLs estão de acordo com a última versão. Segue minha classe pra vcs verem, inclusive ela facilita muito da vida de quem quer fazer relatórios.: #include "FiveWin.ch" #include "Print.ch" //----------------------------------------------------------------------------// // Classe criada para padronizar os relatorio feitos através da classe Print STATIC lCabWordExcel := .T. STATIC oDoc STATIC cArqDoc STATIC aColunas STATIC nContador //STATIC oRelatorio CLASS TRelatorio DATA oRelatorio DATA oFonte DATA oLogoRel DATA oTexto DATA nLin DATA nCol DATA nLinStep DATA nColStep DATA nPagina DATA nLinTot DATA nNumCol DATA nNumLin DATA nAltura DATA nLargura DATA nFontePadrao DATA lCab DATA lRod DATA lPaisagem DATA cTipo DATA cTitulo DATA cTitulo2 DATA cTitulo3 DATA cTitulo4 DATA cTitulo5 DATA cTitulo6 DATA cTituloEmp DATA cTituloCNPJ DATA cTituloIE DATA cCabPagina DATA cCabEmissao DATA cCabPeriodo DATA cPagina DATA aTituloCab DATA aTituloCab2 DATA aTituloCab3 DATA aCabAdicional DATA bCondicao DATA bContador METHOD New( cTitulo, lPaisagem, cTipo, lVisualizar, nFonte, lQuieto ) CONSTRUCTOR METHOD Cabecalho(nSaltoLinha) METHOD Rodape() METHOD SaltaLinha(nNumeroDeLinhas) METHOD SaltaPagina() METHOD IniciaPagina() METHOD FinalizaPagina() METHOD Escreva( cTexto, nColuna, nLinha, nTamanhoFonte, lBold, nCor ) METHOD Caixa( nColunas, nColunaInicial, nColInicial, nLinInicial, nColFinal, nLinFinal, nCorDoFundo, nRecuo ) METHOD Linha( nColunas, nColunaInicial, nColInicial, nLinInicial, nColFinal, nLinFinal ) METHOD PosicionaLinha( nLinha ) METHOD Alinhar( nAlinhamento ) METHOD Fonte( oFonte, nTamanho ) METHOD Cancelado() METHOD Zoom() METHOD End() ENDCLASS //----------------------------------------------------------------------------// METHOD New( cTitulo, lPaisagem, cTipo, lVisualizar, nFonte, lQuieto ) CLASS TRelatorio LOCAL oDlgLogo local oX DEFAULT cTitulo := "Seu titulo" DEFAULT lPaisagem := .f. DEFAULT cTipo := "PRINT" DEFAULT lVisualizar := .T. DEFAULT nFonte := 8 DEFAULT lQuieto := .F. ::cTitulo := cTitulo ::nFontePadrao := nFonte ::lPaisagem := lPaisagem ::cTipo := cTipo ::aTituloCab := {} ::aTituloCab2 := {} ::aTituloCab3 := {} ::aCabAdicional := {} ::bCondicao := {|| .f. } ::cTitulo2 := '' ::cTitulo3 := '' ::cTitulo4 := '' ::cTitulo5 := '' ::cTitulo6 := '' ::cTituloEmp := '' ::cTituloCNPJ := '' ::cTituloIE := '' ::oRelatorio:='' nContador := 0 ? 'Metodo New - Classe Trelatorio' //,::oRelatorio,::cTitulo IF ::cTipo = "PRINT" if lVisualizar=nil lVisualizar:=.f. endif try // Invoca a classe TPrinter IF lVisualizar PRINT ::oRelatorio NAME ::cTitulo PREVIEW ELSE PRINT ::oRelatorio NAME ::cTitulo END CATCH oErr ? 'Erro no Print' MsgErro() end DEFINE FONT ::oFonte NAME "Arial" SIZE 0, nFonte*-1 OF ::oRelatorio DEFINE DIALOG oDlgLogo // janela utilizada somente para evitar erro defcontrol para imprimir varios relatorios simultaneamente REDEFINE Image ::oLogoRel FILENAME "logorel.jpg" OF oDlgLogo IF ::lPaisagem ::nNumLin := 43.04932735 ::nNumCol := 41.8125 ::oRelatorio:SetLandscape() ELSE ::nNumLin := 60 ::nNumCol := 30 END ::nAltura := ::oRelatorio:nVertRes() ::nLargura := ::oRelatorio:nHorzRes() ::nLinStep := ::nAltura / ::nNumLin ::nColStep := ::nLargura / ::nNumCol ::nCol := ::nColStep ::nLin := ::nLinStep/2 /* FOR nE:=-20 TO 50 IF ! Empty(ProcName( nE ) ) MsgAlert(Str(nE,10,0)+CRLF+ProcName(nE)+CRLF+ProcFile(nE)) ENDIF NEXT */ ::oRelatorio:cFunRel := ProcName(1) ELSEIF ::cTipo = "PDF" //? 'pdf' ::cTitulo := StrTran(::cTitulo,'/','_') ::cTitulo := StrTran(::cTitulo,':','_') IF lQuieto cArqDoc := cPath+'temp\'+::cTitulo+".pdf" ELSE cArqDoc := cGetFile32( ::cTitulo+".pdf", "Exportar para PDF", , , .t., , ) END IF Empty(cArqDoc) RETURN self END SysRefresh() ::oRelatorio := tpdf():new(cArqDoc) ::oRelatorio:Pdfsetfont("Arial",,8) IF ::lPaisagem ::nAltura := 560 //1169 ::nLargura := 700 //827 ::nNumLin := 43.04932735 ::nNumCol := 36 //41.8125 ::oRelatorio:Pdfpageorient("L") ELSE ::nAltura := 825//1169 ::nLargura := 480 //827 ::nNumLin := 60 ::nNumCol := 30 ::oRelatorio:Pdfpageorient("P") END ::nLinStep := ::nAltura / ::nNumLin //60 // 800 1169 ::nColStep := ::nLargura / ::nNumCol //30 //480 827 ::nLin := ::nAltura ::nCol := ::nColStep ELSEIF ::cTipo = "WORD" TRY ::oRelatorio := GetActiveObject( "Word.Application" ) CATCH TRY ::oRelatorio := CreateObject( "Word.Application" ) CATCH MsgAlert( "Word não disponível. [" + Ole2TxtError()+ "]", 'Word não pode ser aberto!' ) RETURN self END END ::cTitulo := StrTran(::cTitulo,'/','_') ::cTitulo := StrTran(::cTitulo,':','_') cArqDoc := cGetFile32( ::cTitulo, "Exportar para Word", , , .t., , ) IF Empty(cArqDoc) ::oRelatorio := Nil RETURN self END ::oRelatorio:Documents:Add() oDoc := ::oRelatorio:Documents:Add() ::oTexto := ::oRelatorio:Selection() ::oTexto:Font:Name := "Arial" ::oTexto:Font:Size := 8 IF ::lPaisagem ::nNumLin := 43.04932735 ::nNumCol := 41.8125 // ::oRelatorio:SetLandscape() ELSE ::nNumLin := 60 ::nNumCol := 30 END ::nAltura := 0 ::nLargura := 0 ::nLinStep := 1 ::nColStep := 1 ::nCol := 0 ::nLin := 0 ::cPagina := "" ELSEIF ::cTipo = "EXCEL" //MsgAlert('EXCEL') TRY ::oRelatorio := GetActiveObject( "Excel.Application" ) CATCH TRY ::oRelatorio := CreateObject( "Excel.Application" ) CATCH MsgAlert( "Excel não disponível. [" + Ole2TxtError()+ "]", 'Excel não pode ser aberto!' ) RETURN self END END ::cTitulo := StrTran(::cTitulo,'/','_') ::cTitulo := StrTran(::cTitulo,':','_') // MsgAlert('abrir arquivo') cArqDoc := cGetFile32( ::cTitulo, "Exportar para Excel", , , .t., , ) // MsgAlert(cArqDoc) IF Empty(cArqDoc) ::oRelatorio := Nil RETURN self END oDoc := ::oRelatorio:WorkBooks:Add() ::oTexto := ::oRelatorio:ActiveSheet() ::oTexto:Cells:Font:Name := "Arial" ::oTexto:Cells:Font:Size := 8 IF ::lPaisagem ::nNumLin := 43.04932735 ::nNumCol := 41.8125 // ::oRelatorio:SetLandscape() ELSE ::nNumLin := 60 ::nNumCol := 30 END ::nAltura := 0 ::nLargura := 0 ::nLinStep := 1 ::nColStep := 1 ::nCol := 0 ::nLin := 0 ::cPagina := "" aColunas := {} END ::lCab:=.T. ::lRod:=.F. ::nPagina := 0 CursorWait() RETURN Self //----------------------------------------------------------------------------// METHOD End() CLASS TRelatorio IF ::nPagina = 0 MsgAlert('Nenhum dado selecionado!') lgImpAnd := .F. RETURN nil END IF ::cTipo = "PRINT" IF ::nLin <= (::nNumLin-3) * ::nLinStep ::Rodape() ::FinalizaPagina() END ENDPRINT //PrintEnd() lgImpAnd := .F. ELSEIF ::cTipo = "PDF" ::nLin := 29 IF ::nLin < 30 ::Rodape() ::FinalizaPagina() END ::oRelatorio:pdfclose() //WinExec("C:\Arquivos de programas\Adobe\Acrobat 7.0\Reader\AcroRd32.exe c:\temp\Relação de Centro de Custos.pdf") ELSEIF ::cTipo = "WORD" //::oRelatorio:Visible := .T. //::oRelatorio:WindowState := 1 // Maximize //::oRelatorio:Save()//As('c:\temp\doc4.doc') TRY oDoc:SaveAs(cArqDoc) oDoc:Close() CATCH MsgAlert('Documento não pode ser salvo!'+CRLF+cArqDoc) END //::Relatorio:Quit() ELSEIF ::cTipo = "EXCEL" ::oTexto:Cells( 1, 1 ):Select() TRY oDoc:SaveAs(cArqDoc) oDoc:Close() CATCH MsgAlert('Documento não pode ser salvo!'+CRLF+cArqDoc) END END CursorArrow() RETURN nil //----------------------------------------------------------------------------// METHOD Cabecalho(nSaltoLinha) CLASS TRelatorio LOCAL nE LOCAL nN LOCAL aE LOCAL oFont8,oFont8n,oFont9n,oFont10,oFont12n,oFontCab,oFontCabCo,oFont9 LOCAL oJanela LOCAL oVisao ? 'Trelatorio - Cabecalho' IF ::lCab ::IniciaPagina() ::nPagina++ IF ::cTipo = "PRINT" ::nLin := ::nLinStep/2 DEFINE FONT oFont8 NAME "Arial" SIZE 0, -8 OF ::oRelatorio DEFINE FONT oFont8n NAME "Arial" SIZE 0, -8 OF ::oRelatorio BOLD DEFINE FONT oFont9 NAME "Arial" SIZE 0, -9 OF ::oRelatorio DEFINE FONT oFont9n NAME "Arial" SIZE 0, -9 OF ::oRelatorio BOLD DEFINE FONT oFont10 NAME "Arial" SIZE 0, -10 OF ::oRelatorio DEFINE FONT oFont12n NAME "Arial" SIZE 0, -12 OF ::oRelatorio BOLD DEFINE FONT oFontCab NAME "Arial" SIZE 0, ::nFontePadrao*-1 OF ::oRelatorio BOLD // Logo tipo ::oRelatorio:SayImage( ::nLin,::nCol,::oLogoRel, 2.5*(::oRelatorio:nLogPixely()/2.54), 1.7*(::oRelatorio:nLogPixelx()/2.54) ) IF Empty(::cTituloEmp) ::oRelatorio:Say( ::nLin,::nCol*5,"EMPRESA:",oFont8n) ::oRelatorio:Say( ::nLin,::nCol*7.5,cgEmpresa,oFont9n) ELSE ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTituloEmp,oFont9n))/2, ::cTituloEmp, oFont9n) END IF ::cCabPagina = Nil ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*8,"PÃGINA:",oFont8n) ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*6,LTrim(Str(::nPagina,5,0)),oFont10) ELSE ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*8,::cCabPagina,oFont8n) END ::nLin += (::nLinStep/4)*3 IF Empty(::cTituloCNPJ) ::oRelatorio:Say( ::nLin,::nCol*5,"CNPJ:",oFont8n) ::oRelatorio:Say( ::nLin,::nCol*7.5,Transform(cgCNPJ,'@R 99.999.999/9999-99'),oFont9) ELSE // ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTituloCNPJ,oFont9n))/2, ::cTituloCNPJ, oFont9n) ::oRelatorio:Say( ::nLin,::nCol*5, ::cTituloCNPJ, oFont8n) END IF ::cCabEmissao = NIL ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*8,"EMISSÃO:",oFont8n) ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*5.5,DToC(Date())+" - "+Left(Time(),5),oFont9) ELSE ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*8,::cCabEmissao,oFont8n) END ::nLin += (::nLinStep/4)*3 IF Empty(::cTituloIE) IF !Empty(cgIE) ::oRelatorio:Say( ::nLin,::nCol*5,"INSCRIÇÃO:",oFont8n) ::oRelatorio:Say( ::nLin,::nCol*7.5,cgIE,oFont9) END ELSE // ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTituloIE,oFont9n))/2, ::cTituloIE, oFont9n) ::oRelatorio:Say( ::nLin,::nCOL*5, ::cTituloIE, oFont8n) END // IF ::cCabPeriodo = NIL // ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*8,"Período:",oFont8n) // ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*6,MesExtenso(Month(Date()))+"/"+Str(Year(Date()),4,0),oFont10) // ELSE // ::oRelatorio:Say( ::nLin,::nLargura-::nColStep*8,::cCabPeriodo,oFont8n) // END ::nLin += (::nLinStep/4)*3 ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTitulo,oFont12n))/2, ::cTitulo, oFont12n) ::nLin += ::nLinStep+::nLinStep/2 IF !Empty(::cTitulo2) ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTitulo2,oFont12n))/2, ::cTitulo2, oFont12n) ::nLin += ::nLinStep+::nLinStep/2 END IF !Empty(::cTitulo3) ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTitulo3,oFont12n))/2, ::cTitulo3, oFont12n) ::nLin += ::nLinStep+::nLinStep/2 END IF !Empty(::cTitulo4) ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTitulo4,oFont12n))/2, ::cTitulo4, oFont12n) ::nLin += ::nLinStep+::nLinStep/2 END IF !Empty(::cTitulo5) ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTitulo5,oFont12n))/2, ::cTitulo5, oFont12n) ::nLin += ::nLinStep+::nLinStep/2 END IF !Empty(::cTitulo6) ::oRelatorio:Say( ::nLin,(::nLargura- ::oRelatorio:GetTextWidth(::cTitulo6,oFont12n))/2, ::cTitulo6, oFont12n) ::nLin += ::nLinStep+::nLinStep/2 END // Cabecalho adicional IF Len(::aCabAdicional)>0 FOR nE:=1 TO Len(::aCabAdicional) aE := ::aCabAdicional[nE] FOR nN:=1 TO Len(aE) ::oRelatorio:Say( ::nLin,IIf(aE[nN][2]<50,::nColStep*aE[nN][2],aE[nN][2]),aE[nN][1], oFont8) NEXT ::nLin += ::nLinStep NEXT END ::oRelatorio:Line( ::nLin,::nCol,::nLin,::nLargura-::nColStep) ::nLin += ::nLinStep //------- Cabecalho das COLUNAS, tem que seguir o tamanho das colunas p/não ficar esquisito // Cabecalho 1 IF Len(::aTituloCab)>0 FOR nE:=1 TO Len(::aTituloCab) IF Len(::aTituloCab[nE]) = 3 ::oRelatorio:nPad := ::aTituloCab[nE][3] END ::oRelatorio:Say( ::nLin,IIf(::aTituloCab[nE][2]<50,::nColStep*::aTituloCab[nE][2],::aTituloCab[nE][2]),::aTituloCab[nE][1], oFontCab) ::oRelatorio:nPad := 0 NEXT ::nLin += ::nLinStep IF Len(::aTituloCab2)>0 // Cabecalho 2 FOR nE:=1 TO Len(::aTituloCab2) IF Len(::aTituloCab2[nE]) = 3 ::oRelatorio:nPad := ::aTituloCab2[nE][3] END ::oRelatorio:Say( ::nLin,IIf(::aTituloCab2[nE][2]<50,::nColStep*::aTituloCab2[nE][2],::aTituloCab2[nE][2]),::aTituloCab2[nE][1], oFontCab) ::oRelatorio:nPad := 0 NEXT ::nLin += ::nLinStep // Cabecalho 3 IF Len(::aTituloCab3)>0 FOR nE:=1 TO Len(::aTituloCab3) IF Len(::aTituloCab3[nE]) = 3 ::oRelatorio:nPad := ::aTituloCab3[nE][3] END ::oRelatorio:Say( ::nLin,,::aTituloCab3[nE][1], oFontCab) ::oRelatorio:nPad := 0 NEXT ::nLin += ::nLinStep END END END // nSaltoLinha ELSEIF ::cTipo = "PDF" // 470 150 IF File("logorel.jpg") ::oRelatorio:PdfImage( "logorel.jpg", ::nAltura*2-40, ::nCol*2, 94, 45,,.5,.5 ) END IF Empty(::cTituloEmp) ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::oRelatorio:PdfAtSay( "EMPRESA:", ::nLin, ::nCol*5, .t. ) ::oRelatorio:Pdfsetfont("ARIAL",,10) ::oRelatorio:PdfAtSay( cgEmpresa,::nLin,::nCol*8,.t.) ELSE ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::oRelatorio:PdfAtSay( ::cTituloEmp,::nLin,::nCol*12, .t.) END IF ::cCabPagina = NIL ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::oRelatorio:PdfAtSay( "PÃGINA.:",::nLin,::nLargura-::nColStep*4,.t.) ::oRelatorio:Pdfsetfont("ARIAL",,10) ::oRelatorio:PdfAtSay( LTrim(Str(::nPagina,5,0)),::nLin,::nLargura-::nColStep,.t.) ELSE ::oRelatorio:Pdfsetfont("ARIAL",,8) ::oRelatorio:PdfAtSay( ::cCabPagina,::nLin,::nLargura-::nColStep*4,.t.) END ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::nLin -= (::nLinStep/4)*3 IF Empty(::cTituloCNPJ) ::oRelatorio:PdfAtSay( "CNPJ",::nLin,::nCol*5,.t.) ::oRelatorio:Pdfsetfont("ARIAL",,10) ::oRelatorio:PdfAtSay( Transform(cgCNPJ,'@R 99.999.999/9999-99'),::nLin,::nCol*8,.t.) ELSE ::oRelatorio:PdfAtSay( ::cTituloCNPJ,::nLin,::nCol*5, .t.) END IF ::cCabEmissao = NIL ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::oRelatorio:PdfAtSay( "EMISSÃO:",::nLin,::nLargura-::nColStep*4,.t.) ::oRelatorio:Pdfsetfont("ARIAL",,10) ::oRelatorio:PdfAtSay( DToC(Date())+" - "+Left(Time(),5),::nLin,::nLargura-::nColStep,.t.) ELSE ::oRelatorio:Pdfsetfont("ARIAL",,8) ::oRelatorio:PdfAtSay( ::cCabEmissao,::nLin,::nLargura-::nColStep*4,.t.) END ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::nLin -= (::nLinStep/4)*3 IF Empty(::cTituloIE) IF !Empty(cgIE) ::oRelatorio:PdfAtSay( "INSCRIÇÃO:",::nLin,::nCol*5,.t.) ::oRelatorio:Pdfsetfont("ARIAL",,10) ::oRelatorio:PdfAtSay( cgIE,::nLin,::nCol*8,.t.) END ELSE ::oRelatorio:PdfAtSay( ::cTituloIE,::nLin,::nCol*5, .t.) END // IF ::cCabPeriodo = NIL // ::oRelatorio:Pdfsetfont("ARIAL",1,8) // ::oRelatorio:PdfAtSay( "Período:",::nLin,::nLargura-::nColStep*4,.t.) // ::oRelatorio:Pdfsetfont("ARIAL",,10) // ::oRelatorio:PdfAtSay( MesExtenso(Month(Date()))+"/"+Str(Year(Date()),4,0),::nLin,::nLargura-::nColStep,.t.) // ELSE // ::oRelatorio:Pdfsetfont("ARIAL",,8) // ::oRelatorio:PdfAtSay( ::cCabPeriodo,::nLin,::nLargura-::nColStep*4,.t.) // END ::oRelatorio:Pdfsetfont("ARIAL",1,8) ::nLin -= (::nLinStep/3)*3 ::oRelatorio:Pdfsetfont("ARIAL",1,12) ::oRelatorio:PdfAtSay( ::cTitulo,::nLin,::nCol*12, .t.) ::nLin -= ::nLinStep IF !Empty(::cTitulo2) ::oRelatorio:PdfAtSay( ::cTitulo2,::nLin,::nCol*12, .t.) ::nLin -= ::nLinStep END IF !Empty(::cTitulo3) ::oRelatorio:PdfAtSay( ::cTitulo3,::nLin,::nCol*12, .t.) ::nLin -= ::nLinStep END IF !Empty(::cTitulo4) ::oRelatorio:PdfAtSay( ::cTitulo4,::nLin,::nCol*12, .t.) ::nLin -= ::nLinStep END IF !Empty(::cTitulo5) ::oRelatorio:PdfAtSay( ::cTitulo5,::nLin,::nCol*12, .t.) ::nLin -= ::nLinStep END IF !Empty(::cTitulo6) ::oRelatorio:PdfAtSay( ::cTitulo6,::nLin,::nCol*12, .t.) ::nLin -= ::nLinStep END //::oRelatorio:PdfAtSay( ::cTitulo,::nLin,(::nLargura - ::oRelatorio:Pdf_Str_Width( ::cTitulo, Len(::cTitulo), "ARIAL", 12 ))/2, .t.) ::oRelatorio:Pdfsetfont("ARIAL",,8) //::nLin -= ::nLinStep+::nLinStep/2 //::oRelatorio:PdfLineTo( ::nLin,::nCol*5) // Cabecalho adicional IF Len(::aCabAdicional)>0 FOR nE:=1 TO Len(::aCabAdicional) aE := ::aCabAdicional[nE] FOR nN:=1 TO Len(aE) ::oRelatorio:PdfAtSay( aE[nN][1],::nLin,IIf(aE[nN][2]<50,::nColStep*aE[nN][2],aE[nN][2]), .t.) NEXT ::nLin -= ::nLinStep NEXT END //------- Cabecalho das COLUNAS, tem que seguir o tamanho das colunas p/não ficar esquisito // Cabecalho 1 IF Len(::aTituloCab)>0 FOR nE:=1 TO Len(::aTituloCab) ::oRelatorio:Pdfsetfont("ARIAL",1,::nFontePadrao) // ALTERADO EM JUL/2012 ::oRelatorio:PdfAtSay( ::aTituloCab[nE][1],::nLin,IIf(::aTituloCab[nE][2]<50,::nColStep*::aTituloCab[nE][2],::aTituloCab[nE][2]), .t.) NEXT ::nLin -= ::nLinStep END IF Len(::aTituloCab2)>0 FOR nE:=1 TO Len(::aTituloCab2) ::oRelatorio:Pdfsetfont("ARIAL",1,::nFontePadrao) ::oRelatorio:PdfAtSay( ::aTituloCab2[nE][1],::nLin,IIf(::aTituloCab2[nE][2]<50,::nColStep*::aTituloCab2[nE][2],::aTituloCab2[nE][2]), .t.) NEXT ::nLin -= ::nLinStep END IF Len(::aTituloCab3)>0 FOR nE:=1 TO Len(::aTituloCab3) ::oRelatorio:Pdfsetfont("ARIAL",1,::nFontePadrao) ::oRelatorio:PdfAtSay( ::aTituloCab3[nE][1],::nLin,IIf(::aTituloCab3[nE][2]<50,::nColStep*::aTituloCab3[nE][2],::aTituloCab3[nE][2]), .t.) NEXT ::nLin -= ::nLinStep END //------------------------------------------------------------------------------------------ ELSEIF ::cTipo = "WORD" IF lCabWordExcel //------------------------------------------------------------------------------ // Cabecalho oJanela := ::oRelatorio:Get( "ActiveWindow" ) oVisao := oJanela:Get( "View" ) oVisao:Set( "SeekView", 9 ) ::oTexto:Font:Name := "Arial" ::oTexto:Font:Size := 10 IF Empty(::cTituloEmp) ::oTexto:Text := "EMPRESA: " ::oTexto:Text += cgEmpresa+Chr(9)+Chr(9) ELSE ::oTexto:Text := ::cTituloEmp END IF ::cCabPagina = NIL ::oTexto:Text += "PÃGINA.: "+CRLF // falta pagina //::oTexto:Text += "Página: "+Chr(19)+' PAGE '+Chr(20)+'1'+Chr(21)+' '+CRLF // falta pagina ELSE ::oTexto:Text += ::cCabPagina+CRLF // falta pagina END IF Empty(::cTituloCNPJ) ::oTexto:Text += "CNPJ: " ::oTexto:Text += Transform(cgCNPJ,'@R 99.999.999/9999-99')+Chr(9)+Chr(9) ELSE ::oTexto:Text := ::cTituloCNPJ END IF ::cCabEmissao = NIL ::oTexto:Text += "EMISSÃO: "+DToC(Date())+" - "+Left(Time(),5)+CRLF ELSE ::oTexto:Text += ::cCabEmissao+CRLF END IF Empty(::cTituloIE) IF !Empty(cgIE) ::oTexto:Text += "INSCRIÇÃO: " ::oTexto:Text += cgIE+Chr(9)+Chr(9) END ELSE ::oTexto:Text := ::cTituloIE END IF ::cCabPeriodo = NIL ::oTexto:Text += "PERÃODO: "+MesExtenso(Month(Date()))+"/"+Str(Year(Date()),4,0)+CRLF ELSE ::oTexto:Text += ::cCabPeriodo+CRLF END ::oTexto:Text += Chr(9)+::cTitulo+CRLF IF !Empty(::cTitulo2) ::oTexto:Text += Chr(9)+::cTitulo2+CRLF END IF !Empty(::cTitulo3) ::oTexto:Text += Chr(9)+::cTitulo3+CRLF END IF !Empty(::cTitulo4) ::oTexto:Text += Chr(9)+::cTitulo4+CRLF END IF !Empty(::cTitulo5) ::oTexto:Text += Chr(9)+::cTitulo5+CRLF END IF !Empty(::cTitulo6) ::oTexto:Text += Chr(9)+::cTitulo6+CRLF END ::oTexto:Text += CRLF FOR nE:=1 TO Len(::aTituloCab) ::oTexto:Text += ::aTituloCab[nE][1]+" " NEXT ::oTexto:Text += CRLF //------------------------------------------------------------------------------ // Rodape oVisao:Set( "SeekView", 10 ) ::oTexto:Font:Name := "Arial" ::oTexto:Font:Size := 8 ::oTexto:Text := "AWS ("+cgVersao+") USUÃRIO: "+cgUsuario + CRLF //------------------------------------------------------------------------------ // Corpo do relatorio oVisao:Set( "SeekView", 0 ) lCabWordExcel := .F. END ELSEIF ::cTipo = "EXCEL" IF lCabWordExcel //------------------------------------------------------------------------------ // Cabecalho FOR nE:=1 TO Len(::aTituloCab) ::oTexto:Cells(1,nE):Value := ::aTituloCab[nE][1] ::oTexto:Columns( nE ):AutoFit() NEXT lCabWordExcel := .F. END END ::lCab:=.F. ::lRod := .T. END RETURN SELF //----------------------------------------------------------------------------// METHOD Rodape() CLASS TRelatorio IF ::lRod IF ::cTipo = "PRINT" ::nLin := ::nLinStep/2 ::oRelatorio:Say( ::nLinStep*(::nNumLin-1)+::nLinStep/3,::nLargura-::nColStep*9,"AWS ("+cgVersao+") usuário: "+cgUsuario, ::oFonte) ELSEIF ::cTipo = "PDF" ::nLin := ::nAltura ::oRelatorio:PdfAtSay( "AWS ("+cgVersao+") usuário: "+cgUsuario, 5, ::nCol*20, .t. ) ELSEIF ::cTipo = "WORD" // o rodape do word é construido junto com o cabecalho ELSEIF ::cTipo = "EXCEL" // o rodape no excel não é impresso END ::lRod := .F. END RETURN Self //----------------------------------------------------------------------------// METHOD SaltaLinha(nNumeroDeLinhas) CLASS TRelatorio LOCAL nE LOCAL cMasc DEFAULT nNumeroDeLinhas := 1 IF ::cTipo = "PRINT" ::nLin += ::nLinStep*nNumeroDeLinhas IF ::nLin > (::nNumLin-3) * ::nLinStep .or. Eval(::bCondicao) ::Rodape() ::FinalizaPagina() ::lCab:=.T. ::Cabecalho() ENDIF ELSEIF ::cTipo = "PDF" ::nLin -= ::nLinStep*nNumeroDeLinhas IF ::nLin < 30 .or. Eval(::bCondicao) ::Rodape() ::FinalizaPagina() ::lCab:=.T. ::Cabecalho() ENDIF ELSEIF ::cTipo = "WORD" ::nLin += ::nLinStep*nNumeroDeLinhas ::cPagina += CRLF IF ::nLin > ::nNumLin-3 .or. Eval(::bCondicao) ::Rodape() ::FinalizaPagina() ::lCab:=.T. ::nLin := 0 ::Cabecalho() END ELSEIF ::cTipo = "EXCEL" ::nLin += ::nLinStep*nNumeroDeLinhas FOR nE:=1 TO Len(aColunas) IF ValType(aColunas[nE])='N' cMasc:='@E 999999999999999' IF aColunas[nE]-Int(aColunas[nE])>0 cMasc:='@E 999999999999999.999999' END ::oTexto:Cells( ::nLin+1, nE ):Value := Transform(aColunas[nE],cMasc) ELSE ::oTexto:Cells( ::nLin+1, nE ):Value := aColunas[nE] END ::oTexto:Columns( nE ):AutoFit() NEXT aColunas := {} //IF ::nLin > ::nNumLin-3 .or. Eval(::bCondicao) // ::Rodape() // ::FinalizaPagina() // ::lCab:=.T. // ::Cabecalho() //END END IF ::bContador = Nil oWnd:oMsgBar:SetMsg(Str(++nContador,10,0)) ELSE oWnd:oMsgBar:SetMsg(Eval(::bContador)) END SysRefresh() RETURN nil //------------------------------------------------------------------------------ METHOD SaltaPagina() CLASS TRelatorio IF ::cTipo = "PRINT" ::Rodape() ::FinalizaPagina() ::lCab:=.T. ::Cabecalho() ELSEIF ::cTipo = "PDF" ::Rodape() ::FinalizaPagina() ::lCab:=.T. ::Cabecalho() ELSEIF ::cTipo = "WORD" ::Rodape() ::FinalizaPagina() ::lCab:=.T. ::nLin := 0 ::Cabecalho() ELSEIF ::cTipo = "EXCEL" END RETURN nil //----------------------------------------------------------------------------// METHOD PosicionaLinha( nLinha ) CLASS TRelatorio IF ::cTipo = "PRINT" ::nLin := ::nLinStep*nLinha ELSEIF ::cTipo = "PDF" ::nLin := ::nAltura - ::nLinStep*nLinha ELSEIF ::cTipo = "WORD" ::nLin := ::nLinStep*nLinha ELSEIF ::cTipo = "EXCEL" END RETURN nil //----------------------------------------------------------------------------// METHOD IniciaPagina() CLASS TRelatorio ? 'IniciaPagina()' IF ::cTipo = "PRINT" PAGE ELSEIF ::cTipo = "PDF" ::oRelatorio:PdfNewPage("A4") ELSEIF ::cTipo = "WORD" ELSEIF ::cTipo = "EXCEL" END RETURN nil //----------------------------------------------------------------------------// METHOD FinalizaPagina() CLASS TRelatorio IF ::cTipo = "PRINT" ENDPAGE ELSEIF ::cTipo = "PDF" ::oRelatorio:PdfClosePage() ELSEIF ::cTipo = "WORD" ::oTexto:Text := ::oTexto:Text + ::cPagina ::cPagina := "" ::oTexto:EndKey() ::oTexto:InsertBreak() ELSEIF ::cTipo = "EXCEL" END RETURN nil //----------------------------------------------------------------------------// METHOD Escreva( cTexto, nColuna, nLinha, nTamanhoFonte, lBold, nCor ) CLASS TRelatorio LOCAL oFonte DEFAULT cTexto := "",; nColuna := 1,; nLinha := ::nLin,; nTamanhoFonte := ::nFontePadrao,; lBold := .F.,; nCor := CLR_BLACK //? ctexto,lbold IF ::cTipo = "PRINT" IF nTamanhoFonte = nil oFonte := ::oFonte ELSE IF lBold DEFINE FONT oFonte NAME "Arial" SIZE 0, nTamanhoFonte*(-1) OF ::oRelatorio BOLD ELSE DEFINE FONT oFonte NAME "Arial" SIZE 0, nTamanhoFonte*(-1) OF ::oRelatorio END END ::oRelatorio:Say( nLinha, ::nCol*nColuna, cTexto, oFonte, , nCor ) ELSEIF ::cTipo = "PDF" IF lBold ::oRelatorio:Pdfsetfont("TIMES",1,nTamanhoFonte-1) // DIMINUI 1 NO TAMANHO DA FONTE P/TIRAR DIFERENCA DE ESPAÇAMENTO P/RELATORIO P/IMPRESSORA - JUL/2012 ELSE ::oRelatorio:Pdfsetfont("TIMES",,nTamanhoFonte-1) // DIMINUI 1 NO TAMANHO DA FONTE P/TIRAR DIFERENCA DE ESPAÇAMENTO P/RELATORIO P/IMPRESSORA - JUL/2012 ENDIF ::oRelatorio:PdfAtSay( cTexto, nLinha, ::nCol*nColuna, .F. ) // ::oRelatorio:Pdfsetfont("ARIAL",,8) ELSEIF ::cTipo = "WORD" ::cPagina := ::cPagina + " " + cTexto ELSEIF ::cTipo = "EXCEL" AAdd( aColunas, cTexto ) END RETURN nil //----------------------------------------------------------------------------// METHOD Caixa( nColunas, nColInicial, nLinInicial, nColFinal, nLinFinal, nCorDoFundo, nRecuo ) CLASS TRelatorio LOCAL oPen1 LOCAL nI LOCAL nColF LOCAL nColI DEFAULT nColunas := 0,; nColInicial := 0,; nLinInicial := ::nLin,; nColFinal := ::nCol+::nColStep,; nLinFinal := ::nLin+::nLinStep,; nRecuo := 0 IF ::cTipo = "PRINT" IF nColunas = 0 nColInicial := ::nCol ::oRelatorio:Box( nLinInicial-nRecuo, nColInicial-nRecuo, nLinFinal-nRecuo, nColFinal-nRecuo ) nColI := nColInicial-nRecuo nColF := nColFinal-nRecuo ELSE ::oRelatorio:Box( nLinInicial-nRecuo, ::nCol+::nColStep*nColInicial-nRecuo, nLinFinal-nRecuo, ::nCol+::nColStep*(nColunas+nColInicial)-nRecuo ) nColI := ::nCol+::nColStep*nColInicial-nRecuo nColF := ::nCol+::nColStep*(nColunas+nColInicial)-nRecuo END IF nCorDoFundo != Nil DEFINE PEN oPen1 COLOR nCorDoFundo OF ::oRelatorio FOR nI := 6 to nLinFinal-nLinInicial-1 ::oRelatorio:Line( nLinInicial+nI-nRecuo, nColI+5, nLinInicial+nI-nRecuo, nColF-2, oPen1 ) NEXT END END RETURN nil //----------------------------------------------------------------------------// METHOD Linha( nColunas, nColInicial, nLinInicial, nColFinal, nLinFinal ) CLASS TRelatorio DEFAULT nColunas := 0,; nColInicial := 0,; nLinInicial := ::nLin,; nColFinal := ::nCol+::nColStep,; nLinFinal := ::nLin IF ::cTipo = "PRINT" IF nColunas = 0 nColInicial := ::nCol ::oRelatorio:Line( nLinInicial, nColInicial, nLinFinal, nColFinal ) ELSE ::oRelatorio:Line( nLinInicial, ::nCol+::nColStep*nColInicial, nLinFinal, ::nCol+::nColStep*(nColunas+nColInicial) ) END END RETURN NIL //----------------------------------------------------------------------------// METHOD Fonte( oFonte, nTamanho ) CLASS TRelatorio LOCAL oNovaFonte IF ::cTipo = "PRINT" IF oFonte!=NIL ::oFonte := oFonte END IF nTamanho !=NIL DEFINE FONT oNovaFonte NAME ::oFonte:cFaceName SIZE 0, nTamanho*-1 OF ::oRelatorio ::oFonte := oNovaFonte END END RETURN NIL //----------------------------------------------------------------------------// METHOD Alinhar( nAlinhamento ) CLASS TRelatorio // 0 = Esquerda // 1 = Direita // 2 = Centro IF ::cTipo = "PRINT" ::oRelatorio:nPad := nAlinhamento END RETURN NIL //----------------------------------------------------------------------------// METHOD Cancelado() CLASS TRelatorio LOCAL lCancelado := .F. //? 'Cancelado' IF ValType(::oRelatorio)='U' lCancelado := .T. END RETURN lCancelado //----------------------------------------------------------------------------// METHOD Zoom() CLASS TRelatorio IF ::cTipo = "PRINT" IF ::oRelatorio:lIniZoom ::oRelatorio:lIniZoom := .F. ELSE ::oRelatorio:lIniZoom := .T. END END RETURN NIL //----------------------------------------------------------------------------// CLASSE TPRINTER COM ALGUNS PONTOS DE CHECAGEM METHOD New( cDocument, lUser, lMeta, cModel, lModal, lSelection ) CLASS TPrinter local aOffset local cPrinter DEFAULT cDocument := "FiveWin Report" ,; lUser := .f., lMeta := .f., lModal := .f., lSelection := .f. ? 'Metodo New - Classe Tprinter','lUser',lUser,'lMeta',lMeta,'cModel',cModel if lUser ::hDC := GetPrintDC( GetActiveWindow(), lSelection, PrnGetPagNums() ) if ::hDC != 0 cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort() endif elseif cModel == nil //? 'cModel=empty()' ::hDC := GetPrintDefault( GetActiveWindow() ) //? '::hDc',::hDc if ::hDC != 0 cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort() endif //? 'cModel',cModel else cPrinter := GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", cModel ) SysRefresh() PrinterInit() ::hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) // PrinterInit() // DeleteDC( ::hDC ) // ::hDC = PrinterDCfromName( cModel ) endif //? '1' if ::hDC != 0 aOffset = PrnOffset( ::hDC ) ::nXOffset = aOffset[ 1 ] ::nYOffset = aOffset[ 2 ] ::nOrient = ::GetOrientation() //? '2' elseif ComDlgXErr() != 0 MsgStop( "There are no printers installed!" + CRLF + ; "Please exit this application and install a printer." ) ::nXOffset = 0 ::nYOffset = 0 //? '3' else ::nXOffset = 0 ::nYOffset = 0 ::nOrient = DMORIENT_PORTRAIT //? '4' endif //? '5' ::cDocument = cDocument ::cModel = cModel ::nPage = 0 ::nPad = 0 ::lMeta = lMeta ::lStarted = .F. ::lModified = .F. ::lPrvModal = lModal // ? '6' if !lMeta ::hDcOut = ::hDC //? 'lMeta - .f.',lMeta else //? 'lMeta - .t.',lMeta ::aMeta = {} ::cDir = GetEnv( "TEMP" ) //? '7' if Empty( ::cDir ) ::cDir = GetEnv( "TMP" ) endif //? 'cDir',::cDir if Right( ::cDir, 1 ) == "\" ::cDir = SubStr( ::cDir, 1, Len( ::cDir ) - 1 ) endif if ! Empty( ::cDir ) if ! lIsDir( ::cDir ) ::cDir = GetWinDir() endif else ::cDir := GetWinDir() endif endif ? 'Saindo do New da Classe TPrinter' ? 'Self',valtype(Self) return Self -- >NESTE PONTO DA O ERRO Silvano Bispo Faria AWS Sistemas Empresariais (15)3202-4498 FWH 13.02/xHabour.com/Pelles/xMate

Olá Leonardo. Estou estreando aqui no Forum. Eu utilizo o xHarbour Comercial e as vezes acontece isso tb. No compilador dele tem uma opção para forçar o link (Force Re-link), daí costuma funcionar. Veja se no seu compilador ou linkeditor existe esta opção tb. Silvano Bispo Faria xHarbour.com/SQLRdd/FWH 13.02