Impressora de Cheques... Grr !!! Me Ajudem !!! Urgente !!!
Preciso urgente saber como faço p/ imprimir certo nessa impressora serial
(TSP - Tecnologia - Modelo Slip 80)....
o q consigo imprimir são sóh uns caracteres estranhos....
Ex:
çxxxxçççcccxxxxxcxxxxxxxxxxçççxxxxxçccccccccçccccxxxxxxçççcxxxxxçxxxxçççcccxxxxxxxxxxxxxxçccccxxxxxxçççcxxxxxçxxxxçççcccxxxxxcxxxxxxxxxxçççxxxxxçccccccccçxxxxxxçççcxxxxx
Os procedimentos q jáh usei são os seguintes:
Procedimento 1
VAR I:INTEGER;
DATACHEQUE, BANCO, FAVORECIDO, CIDADE, TOTGE, X_DATA, LIN, FIMLINHA, TEXTO:STRING;
REL:TEXTFILE;
VALOR:DOUBLE;
begin
IF NOT(EDIT17.TEXT=´S´) AND NOT (EDIT17.TEXT=´N´) THEN
BEGIN
EDIT17.SETFOCUS;
EXIT;
END;
IF EDIT17.TEXT=´S´ THEN
BEGIN
VALOR:=1500; /// EXEMPLO DE VALOR R$1.500,00
PORTA:=´COM1´;
// TECLA:=INKEY();
// HA_PAPEL=.F.;
BANCO:=´311´;
DATACHEQUE:=´07/02/2003´;
FAVORECIDO:=´TESTE DE IMPRESSAO´;
CIDADE:=´RAFARD - SP´;
TOTGE:=FLOATTOSTR(VALOR*100);
TOTGE:=MI010101F.STRZERO(TOTGE,14);
X_DATA:=COPY(DATACHEQUE,1,2)+COPY(DATACHEQUE,4,2)+COPY(DATACHEQUE,9,2);
LIN:=CHR(27)+´b´+BANCO+CHR(27)+´f´+FAVORECIDO+´$´+CHR(27)+´c´+CIDADE+´$´+CHR(27)+´d´+X_DATA+CHR(27)+´v´+TOTGE+´$´;
FIMLINHA:=CHR(13)+CHR(10);
// (HANDLE:=FOPEN(PORTA,1));
// IF HANDLE<=0 THEN
// BEGIN
// APPLICATION.MESSAGEBOX(´Erro de abertura da Porta de Comunicação´,´ERRO´,mb_ok+mb_iconerror);
// EXIT;
// END;
TEXTO:=LIN;
TEXTO:=TEXTO+FIMLINHA;
ASSIGNFILE(REL,PORTA);
REWRITE(REL);
FOR I:=1 TO LENGTH(TEXTO) DO
BEGIN
LETRA:=COPY(TEXTO,I,1);
WRITE(REL,LETRA);
END;
CLOSEFILE(REL);
// FCLOSE(HANDLE);
LABEL11.CAPTION:=´Retire o Cheque e insira no verso. (S) Continua (N) Cancela´;
EDIT17.VISIBLE:=FALSE;
EDIT16.VISIBLE:=TRUE;
EDIT16.TEXT:=´S´;
EDIT16.SETFOCUS;
END;
=============================================
Procedimento 2
o mesmo do anterior apenas mudando os parametros da impressora q saum os chrs... (naum sei é a mesma coisa esses chrs com o procedimento acima)
LIN:=CHR(27)+chr(162)+BANCO+CHR(27)+chr(160)+FAVORECIDO+´$´+CHR(27)+chr(161)+CIDADE+´$´+CHR(27)+chr(164)+X_DATA+CHR(27)+chr(163)+TOTGE+´$´;
=============================================
Me ajudem gelera !!!!
(TSP - Tecnologia - Modelo Slip 80)....
o q consigo imprimir são sóh uns caracteres estranhos....
Ex:
çxxxxçççcccxxxxxcxxxxxxxxxxçççxxxxxçccccccccçccccxxxxxxçççcxxxxxçxxxxçççcccxxxxxxxxxxxxxxçccccxxxxxxçççcxxxxxçxxxxçççcccxxxxxcxxxxxxxxxxçççxxxxxçccccccccçxxxxxxçççcxxxxx
Os procedimentos q jáh usei são os seguintes:
Procedimento 1
VAR I:INTEGER;
DATACHEQUE, BANCO, FAVORECIDO, CIDADE, TOTGE, X_DATA, LIN, FIMLINHA, TEXTO:STRING;
REL:TEXTFILE;
VALOR:DOUBLE;
begin
IF NOT(EDIT17.TEXT=´S´) AND NOT (EDIT17.TEXT=´N´) THEN
BEGIN
EDIT17.SETFOCUS;
EXIT;
END;
IF EDIT17.TEXT=´S´ THEN
BEGIN
VALOR:=1500; /// EXEMPLO DE VALOR R$1.500,00
PORTA:=´COM1´;
// TECLA:=INKEY();
// HA_PAPEL=.F.;
BANCO:=´311´;
DATACHEQUE:=´07/02/2003´;
FAVORECIDO:=´TESTE DE IMPRESSAO´;
CIDADE:=´RAFARD - SP´;
TOTGE:=FLOATTOSTR(VALOR*100);
TOTGE:=MI010101F.STRZERO(TOTGE,14);
X_DATA:=COPY(DATACHEQUE,1,2)+COPY(DATACHEQUE,4,2)+COPY(DATACHEQUE,9,2);
LIN:=CHR(27)+´b´+BANCO+CHR(27)+´f´+FAVORECIDO+´$´+CHR(27)+´c´+CIDADE+´$´+CHR(27)+´d´+X_DATA+CHR(27)+´v´+TOTGE+´$´;
FIMLINHA:=CHR(13)+CHR(10);
// (HANDLE:=FOPEN(PORTA,1));
// IF HANDLE<=0 THEN
// BEGIN
// APPLICATION.MESSAGEBOX(´Erro de abertura da Porta de Comunicação´,´ERRO´,mb_ok+mb_iconerror);
// EXIT;
// END;
TEXTO:=LIN;
TEXTO:=TEXTO+FIMLINHA;
ASSIGNFILE(REL,PORTA);
REWRITE(REL);
FOR I:=1 TO LENGTH(TEXTO) DO
BEGIN
LETRA:=COPY(TEXTO,I,1);
WRITE(REL,LETRA);
END;
CLOSEFILE(REL);
// FCLOSE(HANDLE);
LABEL11.CAPTION:=´Retire o Cheque e insira no verso. (S) Continua (N) Cancela´;
EDIT17.VISIBLE:=FALSE;
EDIT16.VISIBLE:=TRUE;
EDIT16.TEXT:=´S´;
EDIT16.SETFOCUS;
END;
=============================================
Procedimento 2
o mesmo do anterior apenas mudando os parametros da impressora q saum os chrs... (naum sei é a mesma coisa esses chrs com o procedimento acima)
LIN:=CHR(27)+chr(162)+BANCO+CHR(27)+chr(160)+FAVORECIDO+´$´+CHR(27)+chr(161)+CIDADE+´$´+CHR(27)+chr(164)+X_DATA+CHR(27)+chr(163)+TOTGE+´$´;
=============================================
Me ajudem gelera !!!!
Marfred
Curtidas 0