Configurar data/ Impressora Elgin
24/12/2009
0
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;===============================================================================
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;===============================================================================
Laelson Fagundes
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)