#Include 'Report.Ch' // Cabezera de Reportes
STATIC FUNCTION ImprimeAGE( oLbx )
LOCAL oPen1, oPen2
LOCAL oFon1, oFon2, oFon3
LOCAL oReport
LOCAL nRegistro:=RecNo()
MEMVAR GRUPOINICIAL, GRUPOFINAL
DEFINE PEN oPen1 WIDTH 2
DEFINE PEN oPen2 WIDTH 1
DEFINE FONT oFon1 NAME "Arial" SIZE 0,-11
DEFINE FONT oFon2 NAME "Arial" SIZE 0,-11
DEFINE FONT oFon3 NAME "COURIER NEW" SIZE 0, 10 // Para Imprimir MEMOS
dbSelectArea("AGENDA")
DbGoTop()
//-> Se for por grupo
IF nOpcaoRadio == 4 .AND. lImprimeGrp
SET FILTER TO
SET FILTER TO ( VAL( AGENDA->AGE_GRUPO ) ) >= VAL( GRUPOINICIAL ).AND.;
( VAL( AGENDA->AGE_GRUPO ) ) <= VAL( GRUPOFINAL ).AND.;
.NOT. EOF()
GO TOP
IF EOF()
MsgStop( OemToAnsi( "Desculpe, NÆo Localizei Nenhum " ) +CRLF+ ;
OemToAnsi( "Grupo Para Imprimir. Tente Outro." ), ;
OemToAnsi( "Intervalo de Grupo(s) NÆo Licalizado" ) )
SET FILTER TO
RETURN NIL
ENDIF
ENDIF
REPORT oReport TITLE "Listagem da AGENDA TELEFONICA";
CAPTION "Catálogo: AGENDA TELEFONICA";
HEADER "AGENDA TELEFONICA", ;
"Data: "+DToC(DATE()),;
"Página: "+STR(oReport:nPage,3);
FOOTER "- AGENDA TELEFONICA -" CENTER;
FONT oFon1, oFon2, oFon3 ;
PEN oPen1, oPen2; // Tipo de linea a usar en Cabezera
PREVIEW
// look: Use google translator please:
//-> Para o Preview Maximizar e Nao Ficar no Rodape do Windows
oReport:oDevice:lPrvModal := .T.
oReport:oDevice:SetPage(9) //-> A4 //9
COLUMN TITLE "CODIGO " DATA AGENDA->AGE_CODIGO FONT 2 CENTER
COLUMN TITLE "NOME " DATA AGENDA->AGE_NOME, ;
+ "FANTASIA: " + AGENDA->AGE_APELID, ;
+ "ENDERECO: " + AGENDA->AGE_ENDERE, ;
+ "COMPL.: " + AGENDA->AGE_COMPLE, ;
+ "BAIRRO: " + AGENDA->AGE_BAIRRO, ;
+ "CIDADE: " + AGENDA->AGE_CIDADE, ;
+ "UF: " + AGENDA->AGE_UF, ;
+ "CEP: " + AGENDA->AGE_CEP, ;
+ "OBS1: " + AGENDA->AGE_OBS1, ;
+ "OBS2: " + AGENDA->AGE_OBS2, ;
+ "CADASTRO: " + (DTOC(AGENDA->AGE_CADAST)) FONT 2
COLUMN TITLE "DESC. GRUPO " DATA AGENDA->AGE_DESCGR, ;
+ "ANIVERSARIO: " + (DTOC(AGENDA->AGE_NIVER)), ;
+ "FONE: " +"("+ AGENDA->AGE_DDD1 +")-"+ ;
AGENDA->AGE_FONE +"-"+ ;
AGENDA->AGE_COMRE1, ;
+ "FONE: " +"("+ AGENDA->AGE_DDD2 +")-"+ ;
AGENDA->AGE_FONE2 +"-"+ ;
AGENDA->AGE_COMRE2 +" - "+;
"("+ AGENDA->AGE_DDD5 +")-"+ ;
AGENDA->AGE_FONE3 +"-"+ ;
AGENDA->AGE_COMRE5, ;
+ "CELULAR: " +"("+ AGENDA->AGE_DDD3 +")-"+ ;
AGENDA->AGE_CELULA, ;
+ "FAX: " +"("+ AGENDA->AGE_DDD4 +")-"+ ;
AGENDA->AGE_FAX, ;
+ "EMAIL: " + AGENDA->AGE_EMAIL, ;
+ "HOME PAGE: " + AGENDA->AGE_HOMEP, ;
+ "OBS3: " + AGENDA->AGE_OBS3, ;
+ "OBS4: " + AGENDA->AGE_OBS4, ;
+ "CONTATO: " + AGENDA->AGE_CONTAT FONT 2
END REPORT
IF !oReport:lCreated
RETURN NIL
ENDIF
oReport:CellView()
ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }
oPen1:End()
oPen2:End()
oFon1:End()
oFon2:End()
oFon3:End()
dbGoTo(nRegistro)
//-> Se for por grupo
IF nOpcaoRadio == 4 .AND. lImprimeGrp
SET FILTER TO
ENDIF
RETURN NIL
