Ajuda com componente TCJVQRBarCode

Delphi

29/08/2016

Bom dia

tenho um Form Carta de correção onde o mesmo através desse componente captura a chave da NFe e gera o código de barras (TCJVQRBarCode) e na atualização do sistema o mesmo não não será mais usado. O s amigos sabem me informar algum outro componente nativo do delphi que possa fazer o mesmo ?
Emanuel Gonçalves

Emanuel Gonçalves

Curtidas 0

Respostas

Emanuel Gonçalves

Emanuel Gonçalves

29/08/2016

Esqueci de colocar o código, o problema está apenas nesse trecho ( FrmQrRelatorio.CJVQRBarCode.Texto := GetValorTag('chNFe',textoXML); ) 


{
    FrmQrRelatorio := TFrmQrRelatorio.Create(Application);

    //Atribuição dos Campos
    FrmQrRelatorio.QRLbDataHora.Caption := FormatDateTime('dd/mm/yyyy hh:mm', now());
    FrmQrRelatorio.QRLbChave.Caption := GetValorTag('chNFe',textoXML);
    FrmQrRelatorio.CJVQRBarCode.Texto := GetValorTag('chNFe',textoXML);  <<<<<<<<<<<<<<<< TRECHO USADO PELO COMPONENTE
    // 2012-07-24T17:55:20-03:00
    data := copy(GetValorTag('dhRegEvento',textoXML), 1, 10);
    data := copy(data,9,2)+'/'+copy(data,6,2)+'/'+copy(data,1,4);
    hora := copy(GetValorTag('dhRegEvento',textoXML), 12, 8);

    FrmQrRelatorio.QRLbProtocolo.Caption := GetValorTag('nProt',textoXML)+ ' ' + data + ' ' + Hora;
    FrmQrRelatorio.QRLbCNPJEmit.Caption := FormatMaskText('99.999.999/9999-99;0;', GetValorTag('CNPJ',textoXML));

    FrmQrRelatorio.QRTxtCorrecao.Lines.Clear;
    FrmQrRelatorio.QRTxtCorrecao.Lines.Add( GetValorTag('xCorrecao',textoXML) );

    FrmQrRelatorio.QRLbNFe.Caption := IntToStr( StrToInt(copy(GetValorTag('chNFe',textoXML), 26, 9)) );
    FrmQrRelatorio.QRLbOrgao.Caption := GetValorTag('cOrgao',textoXML);
    FrmQrRelatorio.QRLbTipoEvento.Caption := GetValorTag('tpEvento',textoXML);
    FrmQrRelatorio.QRLbSeqEvento.Caption := GetValorTag('nSeqEvento',textoXML);
    FrmQrRelatorio.QRLbVersao.Caption := GetValorTag('verEvento',textoXML);

    FrmQrRelatorio.QRLbCNPJDest.Caption := FormatMaskText('99.999.999/9999-99;0;', GetValorTag('CNPJDest',textoXML));
    FrmQrRelatorio.QRLbEmailDest.Caption := GetValorTag('emailDest',textoXML);

    if GetValorTag('tpAmb',textoXML) = '1' then
        FrmQrRelatorio.QRLbAmbiente.Caption := 'PRODUÇÃO'
    else
        FrmQrRelatorio.QRLbAmbiente.Caption := 'HOMOLOGAÇÃO';

    // Ler XML da Nota para pegar os nomes do destinatario e emitentente
    tagini := '<emit>';
    tagfim := '</emit>';
    XMLItem := GetValorTagSection(tagini, tagfim, XML_NFE);
    if Length(trim(GetValorTag( 'xNome', XMLItem ))) > 0 then
        FormQR.QRLbNomeEmit.Caption := GetValorTag( 'xNome', XMLItem )
    else
        FormQR.QRLbNomeEmit.Caption := '';
    tagini := '<dest>';
    tagfim := '</dest>';
    XMLItem := GetValorTagSection(tagini, tagfim, XML_NFE);
    if Length(trim(GetValorTag( 'xNome', XMLItem ))) > 0 then
        FormQR.QRLbNomeDest.Caption := GetValorTag( 'xNome', XMLItem )
    else   
        FormQR.QRLbNomeDest.Caption := '';

    FrmQrRelatorio.numero := StrToInt(EdNumeroNota.Text);
    FrmQrRelatorio.serie := StrToInt(lblSerie.Caption);
    FrmQrRelatorio.sequencia := StrToInt(LblSeqCorr.Caption);

    //Chama o QuickReport
    FrmQrRelatorio.Preview;
    FrmQrRelatorio.Refresh;
    LbEstado.Caption := FrmQrRelatorio.msg;
    FrmQrRelatorio.Free;
    }
GOSTEI 0
Emanuel Gonçalves

Emanuel Gonçalves

29/08/2016

Por favor

Aguardando sugestões


Preciso trocar o componente TCJVQRBARCODE
GOSTEI 0
POSTAR