sig_gilberto

Completando, caso algum dos colegas tenha algo parecido: O Cliente nos manda um arquivo ASCII/TXT tabulado, onde eu o leio/carrego uma pequena parte dele no ListBox. Estes arquivos podem ter até +- 1000 caracteres de comprimento. Eu preciso visualizar/localizar dentro deste arquivo, onde começa e acaba os campos CEP e UF, isso através da "regua" que fiz.. Este campos poderão esta no começo ou mesmo no final da linha do arquivo... Pra isso eu precisava carrega e visualizar a linha. Nem todos os arquivos de clientes, têm o mesmo LayOut, por isso preciso visualizar a linha inteira.. Este é o meu dilêma!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Amigos, eu não posso utilizar de uma tecla para exibir a outra parte faltante. Eu preciso que o usuário veja a linha toda da coluna 01 até a coluna X. Eu coloco uma "regua" como se fosse dos editores "1234567890..." para que ele veja onde começa e termina tal campo. Deste jeito até aparece a barra horizontal mas...não mostra os dados.: @ 14.0,04.0 LISTBOX oLBX FIELDS MLBX HEADERS "COD","LINHA DO ARQUIVO TXT" FIELDSIZES 050,200 Of oDLG Size 1200,300 ; FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255) ; MESSAGE "Navega pelos registros..." UPDATE oLbx:aJustify := { .T., .F., .F., .F., .F., .F. } ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 19/08/2010 14:41:36

Defeito na versão ? Legal heim... Bem, realizar outros testes até conseguir. O engraçado é que se eu vou popular um LixtBox mesmo sendo de uma tabela dbf, por exemplo, seu o campo tiver o tamanho maior que a tela/listbox, ele deveria me dar opção automaticamente de poder rolar a direta/esqueda com a barra na horizontal. Quando populo o ListBox com mais de um campo, ai ele me dá esta opção de barra. O problema é que eu estou populando cada linha do ListBox com uma única linha de +- 500 caracteres que é linha-a-linha que leio de um arquivo TXT. É que eu quero dar uma prévia do arquivo TXT para o usuário antes dele tomar a próxima decisão. Mas..vou fazer mais teste... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Não consegui a barra de rolagem horizontal do ListBox mediante a minha situação acima. Vou ter que fazer em C# pois lá tem o DataGrid. Vlw ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Alguém poderia dar uma pequeno palpite neste caso ?? Por favor ! Deste jeito até aparece a barra horizontal, mas não popula o ListBox : @ 14.0,04.0 LISTBOX oLBX FIELDS MLBX HEADERS "COD","LINHA DO ARQUIVO TXT" FIELDSIZES 050,200 Of oDLG Size 1200,300 ; FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255) ; MESSAGE "Navega pelos registros..." UPDATE ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 18/08/2010 17:53:38

Olá Desenvolvedores, Boa Tarde! Ví muito aqui no forum, como DESATIVAR a barra de rolagem tanto vertical como horizontal do ListBox. Agora, como ATIVAR a barra de rolagem Horizontal ? Eu já tentei de tudo em relaçãoa oLBX:AlgumaCoisa=.t. e nada. Abaixo, será que é por que eu carrego o LixtBox com uma linha/coluna inteira que pode chegar ao ter 500 Caracteres ? Function AmostraArqTAB(b_param) Local oGroup1,oLBX,vLBX:="",mLBX:={}, vRc:=0 , vRegua1:="", vRegua2:="", vRegua3:="", vTam:=0 oArqLido:GoTop() While (oArqLido:Eof())=.f. vLhLida =oArqLido:ReadLine() AAdd(mLBX,vLhLida) If Len(Alltrim(vLhLida)) > vTam vTam:= Len(Alltrim(vLhLida)) EndIf oArqLido: Skip() vRc++ If vRC>=050 Exit EndIf EndDo For vC:=1 to vTam vRegua2+=iif(vC=1,"0",Space(08)+Substr(StrZero(vC,3,0),3,1)+" ") vRegua3+=Substr(StrZero(vC,3,0),3,1) Next AAdd(mLBX,vRegua2) AAdd(mLBX,vRegua3) @ 12.0,02.5 GROUP oGroup1 To 37,178 LABEL "Amostra:" OF oDlg FONT oFont0 COLOR RGB(050,150,000) @ 14.0,04.0 LISTBOX oLBX VAR vLBX Of oDLG PROMPTS mLBX Size 1200,300 FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255); MESSAGE "Navega pelos registros..." UPDATE oLBX:Refresh() Return ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Boa Tarde! Ví muito aqui no forum, como DESATIVAR a barra de rolagem tanto vertical como horizontal do ListBox. Agora, como ATIVAR a barra de rolagem Horizontal ? Eu já tentei de tudo em relaçãoa oLBX:AlgumaCoisa=.t. e nada. Abaixo, será que é por que eu carrego o LixtBox com uma linha/coluna inteira que pode chegar ao ter 500 Caracteres ? Function AmostraArqTAB(b_param) Local oGroup1,oLBX,vLBX:="",mLBX:={}, vRc:=0 , vRegua1:="", vRegua2:="", vRegua3:="", vTam:=0 oArqLido:GoTop() While (oArqLido:Eof())=.f. vLhLida =oArqLido:ReadLine() AAdd(mLBX,vLhLida) If Len(Alltrim(vLhLida)) > vTam vTam:= Len(Alltrim(vLhLida)) EndIf oArqLido: Skip() vRc++ If vRC>=050 Exit EndIf EndDo For vC:=1 to vTam vRegua2+=iif(vC=1,"0",Space(08)+Substr(StrZero(vC,3,0),3,1)+" ") vRegua3+=Substr(StrZero(vC,3,0),3,1) Next AAdd(mLBX,vRegua2) AAdd(mLBX,vRegua3) @ 12.0,02.5 GROUP oGroup1 To 37,178 LABEL "Amostra:" OF oDlg FONT oFont0 COLOR RGB(050,150,000) @ 14.0,04.0 LISTBOX oLBX VAR vLBX Of oDLG PROMPTS mLBX Size 1200,300 FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255); MESSAGE "Navega pelos registros..." UPDATE oLBX:Refresh() Return ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Poxa ICO, que legal heim!!! Vou utilizar também! VLW Povo Porreta! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Opá...gostei da dica, vou testar tbém! SUCESSO! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Funcionou assim na linha do GET : Valid(Proc_Clie_Codi(oCDClient:CTitle)=.t.) VLW!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Kapiaba..boa tarde! Assim: @ 02.40,14.0 Get oCDClient VAR vCDClient Pict "@K999999" Of oDLG FONT oFont8 Size 047,14 Valid(Proc_Clie_Codi(vCDClient)=.t.) COLOR RGB(000,000,255) oCDclient:ctooltip="Informe o Codigo do Cliente..." ***************************************************** /* buscar cliente */ Static Function Proc_Clie_Codi() DbUseArea(.t.,"DBFCDX","DBF\TB_CLIEN","TB_CLIEN",.t.,.f.) DBSelectArea("TB_CLIEN") OrdSEtFocus(1,"TB_CLIEN") DBGoTop() vCDClient:=StrZero(Val(vCDClient),6,0) oCDClient:Refresh() DBSeek(vCDClient) If !Found() MsgStop("Cliente Inexistente!","ERRO: "+vCDClient) Use Return .f. Else MsgStop("Cliente Enexistente!",vCDClient) Use Return .t. EndIf Return ********************************************************** Mas como acionar com o ENTER ou com o TextoBox cheio com o 6 caracteres ? Lembrando que a minha tabela de clientes, o campo CODCLIEN tem 06 posições, preenchidos com zeros a esquerda, "000001","000140",... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 17/08/2010 13:38:13

Olá Desenvolvedores, Boa Tarde! Numa Dialog tenho um GET (entre outros GET´s) onde quero digitar o código do cliente e ao teclar , dar um DBSEEK() no banco e achar ou não o referido cliente pelo código digitado... O problema é que usando o ON CHANGE na linha do GET, ele é acionado automaticamente quando digito um único caracter. E se quando o código do cliente for "752698" ? Como resolver isso ? Como fazer com que o GET aguarde eu pressionar ENTER ou preencher todo, neste caso, todo o conteúdo da PICT de 06 posições, para cionar o ON CHANGE ? @ 02.40,14.0 Get oCDClient VAR vCDClient Pict "@K999999" Of oDLG FONT oFont8 Size 047,14 on change(Proc_Clie_Codi(vCDClient)) COLOR RGB(000,000,255) oCDclient:ctooltip="Informe o Codigo do Cliente..." ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 17/08/2010 12:14:07

Olá Desenvolvedores, Boa Tarde! Numa Dialog tenho um GET (entre outros GET´s) onde quero digitar o código do cliente e ao teclar , dar um DBSEEK() no banco e achar ou não o referido cliente pelo código digitado... O problema é que usando o ON CHANGE na linha do GET, ele é acionado automaticamente quando digito um único caracter. E se quando o código do cliente for "752698" ? Como resolver isso ? Como fazer com que o GET aguarde eu pressionar ENTER ou preencher todo, neste caso, todo o conteúdo da PICT de 06 posições, para cionar o ON CHANGE ? @ 02.40,14.0 Get oCDClient VAR vCDClient Pict "@K999999" Of oDLG FONT oFont8 Size 047,14 on change(Proc_Clie_Codi(vCDClient)) COLOR RGB(000,000,255) oCDclient:ctooltip="Informe o Codigo do Cliente..." ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 17/08/2010 12:14:07

É isso ai!! É que da forma que eu fiz, consigo atender todo o meu Aplicativo... Ao passa os parâmetros de titulo, ArqDbf,... eu posso utilizar esta classe em varias outras opções como em funcionarios, clientes, fornecedores, produtos..e por ai vai... Mas é isso ai!! SUCESSO !! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Fiz uma simples função sobre a minha duvida de pesquisa incremental, com DBF/CDX : Vou melhará0-la mais ainda, mas já está funcionando que é uma beleza: x = PesqString("CLIENTES","TB_CLIEN",2,"CodClien+'-'+DsrazSoc") onde... "CLIENTES" é o titulo da Dialog "TB_CLIEN" é o nome do arquivo dbf e do alias() 2 é o número do index que será usado (OrdSEtFocus(X)) "NOME DOS CAMPOS A EXIBIR NO LISTBOX" ========================================================= Function PesqString(b_Titulo,b_arquivo,b_ordindex,b_Campos) Define Dialog oDLG_Pesq Of oWnd Title " " From 00,00 to 056,160 STYLE WS_POPUP @ 001,001 Say oSay1 VAR b_titulo of oDLG_Pesq FONT oFont8 Size 500,20 COLOR RGB(050,150,100) If DBF()#b_Arquivo DbUseArea(.t.,"DBFCDX","DBF\"+b_arquivo,b_arquivo,.t.,.f.) EndIf DBSelectArea(b_arquivo) OrdSEtFocus(b_ordindex,b_arquivo) DBGotOP() PUBLIC oLBX_STR,vLBX_STR:="",mLBX_STR:={} PUBLIC vStringBusca:=Space(50) Public b_LstCampos:=b_campos @ 02.00,02.5 Say "A Pesquisar:" Of oDLG_Pesq FONT oFont10 Size 999,15 COLOR RGB(050,150,100) @ 02.40,10 Get oStringBusca VAR vStringBusca Pict "@K!" ; Of oDLG_Pesq FONT oFont10 Size 255,012 COLOR 0,16777215 ; UPDATE ON CHANGE(PROCURAR(NkEY,oStringBusca),Iif(Len(oStringBusca:CTitle)>0,oLBX_STR:Refresh(),)) @ 007,604 BtnBmp oBtnSair of oDLG_Pesq FILENAME "Icons\BTNSAIR1.BMP" Size 23,23 Action Finalizar() NOBORDER oBtnSair:ctooltip="Encerrar Processo..." oDLG_Pesq:LHELPICON := .F. Activate Dialog oDLG_Pesq Center Return (vLBX_Str) ******************************************************************************** Static FUNCTION PROCURAR(NKEY) If (nKey>=32 .or. nKey<=126) vChave=UPPER(ALLTRIM(oStringBusca:cTITLE)) ElseIf (nKey>=32 .or. nKey<=126) vChave=substr(UPPER(ALLTRIM(oStringBusca:cTITLE)),01,Len(UPPER(ALLTRIM(oStringBusca:cTITLE)))-1) endif vQTAchada=0 GO TOP mLBX_STR:={} vLBX_STR:="" If ValType(oLBX_STR)="O" oLBX_STR:End() OLBX_STR:Refresh() EndIf Public oLBX_STR While OrdWildSeek("*"+vCHAVE+"*",.t.) AAdd(mLBX_STR,&B_LSTCampos) vQTAchada++ EndDo @ 04.20,115 say oSay9 Var iif(vQTAchada>0 .and. !Empty(Alltrim(oStringBusca:CTitle)),StrZero(vQTAchada,6,0)+; " Registro(s) Achado(s)","Nenhum Registro Encontrado") ; Of oDLG_Pesq FONT oFont10 ; Size 999,20 COLOR iif(vQTAchada>0,rgb(000,000,255),rgb(255,000,100)) @ 008,004 LISTBOX oLBX_STR VAR vLBX_STR Of oDLG_Pesq PROMPTS mLBX_STR siZE 1200,730 ; FONT oFont12 ; COLOR RGB(000,000,255), RGB(255,255,255); MESSAGE "Selecione o Cliente e Clique com o Mouse..." ; UPDATE ; ON DBLCLICK(finalizar(),vLBX_STR) OSAY9:REFRESH() vQtAchada:=0 RETURN NIL ******************************************************************************** Static Function Finalizar() oDLG_Pesq:End() Return Nil ********************************************************************************* ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

VLW!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, boa Tarde! Fiz um ensaio de uma pesquisa incremental em DBF/CDX Caso possam, me ajudem : 1º Esta é melhor forma baseado na experiência dos colegas ? 2º Por que que não consigo popular o LixtBox ? Onde errei ? ============================================================ #include "Fivewin.ch" #Include "Directry.ch" Function PESQ() Define Dialog oDLG Of oWnd Title " " From 00,00 to 056,160 STYLE WS_POPUP @ 001,001 Say oSay1 VAR "CLIENTES" of oDLG FONT oFont8 Size 500,20 COLOR RGB(050,150,100) DbUseArea(.t.,"DBFCDX","DBF\TB_CLIEN","TB_CLIEN",.t.,.f.) DBSelectArea("TB_CLIEN") OrdSEtFocus(2,"TB_CLIEN") DBGotOP() PUBLIC vLBX:="",OLBX PUBLIC vStringBusca:=Space(50) @ 02.00,02.5 Say "Razão Social" Of oDLG FONT oFont10 Size 999,15 COLOR RGB(050,150,100) @ 03.20,08.3 Get oStringBusca VAR vStringBusca Pict "@K!" ; Of oDLG FONT oFont10 Size 255,012 COLOR 0,16777215 ; UPDATE ON CHANGE(Olbx:reFRESH(), PROCURAR(NkEY,oStringBusca)) @ 004,001 LISTBOX oLBX VAR vLBX OF ODLG SIZE 614,260 FONT oFont2 UPDATE @ 370,604 BtnBmp oBtnSair of oDLG FILENAME "Icons\BTNSAIR1.BMP" Size 23,23 Action (Odlg:end()) NOBORDER oBtnSair:ctooltip="Encerrar Processo..." oDLG:LHELPICON := .F. Activate Dialog oDLg Center Return Nil ******************************************************************************** FUNCTION PROCURAR(NKEY) If (nKey>=32 .or. nKey<=126) vChave=UPPER(ALLTRIM(oStringBusca:cTITLE)) ElseIf (nKey>=32 .or. nKey<=126) vChave=substr(UPPER(ALLTRIM(oStringBusca:cTITLE)),01,Len(UPPER(ALLTRIM(oStringBusca:cTITLE)))-1) endif X=0 GO TOP While OrdWildSeek("*"+vCHAVE+"*",.t.) vLBX=dsrazsoc X++ EndDo @ 02.00,60 say oSay9 Var "Achados :"+ STRZERO(X,6,0)+" "+vCHAVE Of oDLG FONT oFont10 Size 999,15 COLOR RGB(050,150,100) OSAY9:REFRESH() RETURN NIL ******************************************************************************** ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Obrigado pelo retorno de todos os amigos!! è que aqui na empresa Jà é SQLSERVER.... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Vejo muito se falar em FWH+MySQL e FWH+PostGres... Em minha plena ignorância, posso utilizar a SQLLIB para acessar o SQL SERVER 2002 / SQL SERVER 2005 ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Vejo muito se falar em FWH+MySQL e FWH+PostGres... Em minha plena ignorância, posso utilizar a SQLLIB para acessar o SQL SERVER 2002 / SQL SERVER 2005 ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Pesquise por SCROLLBAR... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 10/08/2010 13:28:21

Olá Desenvolvedores, Bom Dia! Paulo, obrigado pelo retorno. Vou fazer os teste e retorno com meu parecer..VLW!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Kapiaba, primeiramente obrigado pelo retorno. Lá nos SAMPLE, eu não achei, mas.... Achei num manual que tenho aqui datado de 22/11/2005 onde mostra detalhadamente todas as classes. É só colocar o AT e o número da coluna que deseja iniciar a impressão que as outras colunas serão automaticamente "empurradas" para a direita. Column Title "Código" AT 15 Data CodFunci Size 06 oFTPrint0 ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, bom dia! Estou gerando uma relatório onde vou depois imprimir em A4 numa impressora LaserJet... Onde e como eu devo passar o parâmetro para "setar/configurar" as margens da impressão ? Quando imprimo, a não inicia no canto esquerda da folha. como forçar isso ? Olhem só : Function Print_Funcio() DBSelectArea("TB_FUNCI") OrdSEtFocus(nRBX,"TB_FUNCI") DBGoTop() If nRBX=1 vDsOrdem="Ordenado por CÓDIGO" ElseIf nRBX=2 vDsOrdem="Ordenado por NOME" ElseIf nRBX=3 vDsOrdem="Ordenado por ENDEREÇAMENTO" EndIf DEFINE FONT oFTPrint0 NAME "Arial" SIZE 03,04 Report oReport CAPTION WSis ; TITLE "RELAÇÃO DE FUNCIONÃRIOS" ; HEADER WCli ; FOOTER "Página nº "+StrZero(oReport:nPage,3,0)+; " Gerada por : "+Alltrim(vNmUsuar)+" em "+Dtoc(Date())+" à s "+Time()+"hs. ("+; vDsOrdem+")" ; TO PREVIEW Font oFTPrint0 Column Title "Código" Data CodFunci Size 06 oFTPrint0 Column Title "Nome" Data NomFunci Size 30 oFTPrint1 Column Title "Função" Data FunFunci oFTPrint1 Column Title "Admissão" Data Dtoc(DatAdmis) oFTPrint1 Column Title "CTPS/Série" Data Alltrim(numCTPS)+"/"+Alltrim(numSERI) oFTPrint1 Column Title "CPNJ/CPF" Data numCNPJ oFTPrint1 Column Title "IEST/RG" Data numIEST oFTPrint1 Column Title "PIS" Data numPIS oFTPrint1 End Report // oReport:CellView() Activate Report oReport Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, bom dia! Estou gerando uma relatório onde vou depois imprimir em A4 numa impressora LaserJet... Onde e como eu devo passar o parâmetro para "setar/configurar" as margens da impressão ? Quando imprimo, a não inicia no canto esquerda da folha. como forçar isso ? Olhem só : Function Print_Funcio() DBSelectArea("TB_FUNCI") OrdSEtFocus(nRBX,"TB_FUNCI") DBGoTop() If nRBX=1 vDsOrdem="Ordenado por CÓDIGO" ElseIf nRBX=2 vDsOrdem="Ordenado por NOME" ElseIf nRBX=3 vDsOrdem="Ordenado por ENDEREÇAMENTO" EndIf DEFINE FONT oFTPrint0 NAME "Arial" SIZE 03,04 Report oReport CAPTION WSis ; TITLE "RELAÇÃO DE FUNCIONÃRIOS" ; HEADER WCli ; FOOTER "Página nº "+StrZero(oReport:nPage,3,0)+; " Gerada por : "+Alltrim(vNmUsuar)+" em "+Dtoc(Date())+" à s "+Time()+"hs. ("+; vDsOrdem+")" ; TO PREVIEW Font oFTPrint0 Column Title "Código" Data CodFunci Size 06 oFTPrint0 Column Title "Nome" Data NomFunci Size 30 oFTPrint1 Column Title "Função" Data FunFunci oFTPrint1 Column Title "Admissão" Data Dtoc(DatAdmis) oFTPrint1 Column Title "CTPS/Série" Data Alltrim(numCTPS)+"/"+Alltrim(numSERI) oFTPrint1 Column Title "CPNJ/CPF" Data numCNPJ oFTPrint1 Column Title "IEST/RG" Data numIEST oFTPrint1 Column Title "PIS" Data numPIS oFTPrint1 End Report // oReport:CellView() Activate Report oReport Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."