Configurar data/ Impressora Elgin

24/12/2009

2

Pessoal estou fazendo a impementação no meu sistema da impressora Elgin mas m deparei com o problema de Data/hora da impressora estou fazendo da seguinte forma...

para as outras impressas funciona quando nao tenho impressora instalada ela m retorna a mesma tela de seleção de impressora mas quando busco a elgin ela nm fala q a data/hora esta errada mas sendo q nao tem impressora inatalada entao alguma função abaixo esta errada...

==============================================================================
function JBEcf_Verifica_Data_Hora: Boolean;
Var
bHoraAceita,
bDataAceita: Boolean;

jbElgin: begin          for I := 1 to 6 do            ecfData := ecfData + ' ';            for I := 1 to 6 do            ecfHora := ecfHora + ' ';            iRetorno := Elgin_DataHoraImpressora(ecfData, ecfHora);             //Verifica se o retorno é igual a 1 (positivo);              if iRetorno = 1 then                begin                  // Verifica se os dados retornados cotém a quatidade correta de caracteres (6);                  if (Length(Trim(ecfData)) = 6) and (Length(Trim(ecfHora)) = 6) then                  begin                    //Formata Hora e a Data para comparação;                    ecfHora := ecfHora[1]+ecfHora[2]+':'+ecfHora[3]+ecfHora[4]+':'+ecfHora[5]+ecfHora[6];                    ecfData := ecfData[1]+ecfData[2]+'/'+ecfData[3]+ecfData[4]+'/'+ecfData[5]+ecfData[6];
                    //Testa quando a data da impressora retorna 00/00/00                    if ecfData = '00/00/00' then                     ecfData := FormatDateTime('dd/MM/yy',Date);                    //Testa quando a hora da impressora retorna 00:00:00                    if ecfHora = '00:00:00' then                     ecfHora := FormatDateTime('hh:mm:ss',Time);
                    // Se a diferença entre a hora do sistema e da ECF estiver na tolerada retornar TRUE;                    bHoraAceita := (StrToTime(ecfHora) - Time) <= StrToTime(MinTolerancia);                    // Se a data do sistema for igual a data a ECF retornar TRUE;                    bDataAceita := (StrToDate(ecfData) - Date) = 0;                  end;                end;                // Se a Data e a Hora foram aceitas retornar TRUE;                Result := bDataAceita and bHoraAceita;               end;===============================================================================
Responder