impressora sweda IFS 7000 II v1.0

15/12/2003

1

oi eu estou fazendo uma rotina para a impressão de cheques da impressora sweda ifs7000ii mas está dando um ero na data..
Result := EnviaComando(´24´+ Copy(String(Banco), 1, 3)+Direita(´000000000000´ + IntToStr(Round(StrToFloat(String(Valor)) * 100)), 12)+ Copy(String(Verso), 1, 1) + Copy(String(Mensagem), 1, 120)+Copy(String(Ano), 1, 1)+Copy(String(Data), 1, 8));

alguem tem uma rotina pra que eu possa comparar?


Responder