Dfox

coloquei assim -9 : begin MessageDlg('Verifique a Comunicação com a Balança !',mtWarning,[mbOk],0); rqtde.SetFocus; end; será que todo retorno -9 é falha de comunicação com a balança?

Bom dia, a todos com o componente ACBrBAL1 tem como verificar a conexão com a balança?

Ata acho que entendi https://www.drbalanca.com.br/configuracao-ean13-quantum/

Só um detalhe acho que tem um T a mais na estrutura do ean13 2CCCC0TTTTTTDV será que não seria assim 2CCCC00TTTTTDV para ler etiquetas onde o código do produto é de 6 casas decimais 2CCCCCCTTTTTDV

Obrigado, vou verificar aqui

Não tipo ler o peso da etiqueta Ex código da etiqueta 2001100015244

Bom dia, o acbr tem um componente para ler etiqueta de balança?

Obrigado, é que vi os logos da queles bancos, achei que tava implementado já .

achei essa função, é só esses bancos suportado pelo acbr mesmo? function TACBrBoleto.GetTipoCobranca(NumeroBanco: Integer; Carteira: String = ''): TACBrTipoCobranca; begin case NumeroBanco of 001: Result := cobBancoDoBrasil; 003: Result := cobBancoDaAmazonia; 004: Result := cobBancoDoNordeste; 008,033,353: Result := cobSantander; 021: Result := cobBanestes; 041: Result := cobBanrisul; 070: Result := cobBRB; 091: Result := cobUnicredRS; 097: Result := cobCrediSIS; 099: Result := cobUniprime; 104: Result := cobCaixaEconomica; 136: Result := cobUnicredES; 237: Result := cobBradesco; 341: Result := cobItau; 389: Result := cobBancoMercantil; 748: Result := cobSicred; 756: Result := cobBancoob; 399: Result := cobHSBC; 422: Result := cobBancoSafra; 085: Result := cobBancoCECRED; 047: Result := cobBanese; 745: Result := cobCitiBank; 246: Result := cobBancoABCBrasil; 707: Result := cobDaycoval; 084: Result := cobUniprimeNortePR; 643: begin if StrToInt(Carteira) = 9 then Result := cobBancoPineBradesco else Result := cobBancoPine; end; else raise Exception.Create('Erro ao configurar o tipo de cobrança.'+ sLineBreak+'Número do Banco inválido: '+IntToStr(NumeroBanco)); end; end;

Boa tarde a todos, estou mapeando cada banco do boleto // DADOS DO BANCO with ACBrBoleto1.Banco do begin case StrToInt(frmmodulo.qrconfig_cobrebemcodigo_banco.AsString) of 001: TipoCobranca := cobBancoDoBrasil; 003: TipoCobranca := cobBancoDaAmazonia; 004: TipoCobranca := cobBancoDoNordeste; 008,033,053,353: TipoCobranca := cobSantander; 021: TipoCobranca := cobBanestes; //024: TipoCobranca := cob; //027: TipoCobranca := cob; //028: TipoCobranca := cob; //029: TipoCobranca := cob; //031: TipoCobranca := cob; //036: TipoCobranca := cob; //038: TipoCobranca := cob; 041: TipoCobranca := cobBanrisul; 047: TipoCobranca := cobBanese; 070: TipoCobranca := cobBRB; 084: TipoCobranca := cobUniprimeNortePR; 085: TipoCobranca := cobBancoCECRED; 097: TipoCobranca := cobCrediSIS; 099: TipoCobranca := cobUniprime; 104: TipoCobranca := cobCaixaEconomica; 133: TipoCobranca := cobBancoCresolSCRS; 136: TipoCobranca := cobUnicredRS; //151: TipoCobranca := cob; //231: TipoCobranca := cob; 237: TipoCobranca := cobBradesco; //244: TipoCobranca := cob; //246: TipoCobranca := cob; //263: TipoCobranca := cob; //275: TipoCobranca := cob; //291: TipoCobranca := cob; //320: TipoCobranca := cob; 341: TipoCobranca := cobItau; //347: TipoCobranca := cob; //356: TipoCobranca := cob; 389: TipoCobranca := cobBancoMercantil; //392: TipoCobranca := cob; 399: TipoCobranca := cobHSBC; //409: TipoCobranca := cob; //422: TipoCobranca := cob; //424: TipoCobranca := cob; //453: TipoCobranca := cob; //479: TipoCobranca := cob; //600: TipoCobranca := cob; //604: TipoCobranca := cob; //610: TipoCobranca := cob; //623: TipoCobranca := cob; //633: TipoCobranca := cob; //637: TipoCobranca := cob; //641: TipoCobranca := cob; //702: TipoCobranca := cob; //707: TipoCobranca := cob; //721: TipoCobranca := cob; //741: TipoCobranca := cob; //745: TipoCobranca := cob; 748: TipoCobranca := cobSicred; //749: TipoCobranca := cob; 756: TipoCobranca := cobBancoob; else TipoCobranca := cobNenhum; end; alguém pode me ajudar com esses códigos comentados?

deu certo obrigado.

boa tarde, ao imprimir um MDFE a impressão sai direto na impressora padrão, tem como poder selecionar a impressora tipo assim

Boa tarde, tenta essa função function SerialNum(): string; var DriveLetter : string; NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of AnsiChar; VolumeSerialNumber: DWORD; begin try DriveLetter := GetEnvironmentVariable('SystemDrive'); GetVolumeInformation(PChar(DriveLetter + '\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := IntToHex(VolumeSerialNumber, 8); except Result := '????????'; end; end;

Boa tarde estou desenvolvendo um componente de Liberação de software mais exemplo de uso, caso alguém tiver interesse em ajudar no projeto chamar no Skype [email protected] O componente tem a função de liberar Terminal, Periódica e Online. segue os prints

Bom dia, vi neste post que o componente já atende as novas regras da sefaz e a tag xPag não achei, já existe no componente? https://www.projetoacbr.com.br/forum/topic/62101-nota-técnica-2020006-nfe-versão-120/

Hum, acho que começara em homologação a 1.20 03/05/2021 o jeito é esperar...

Bom dia Amarildo de Matos está difícil de entender essa sefaz aqui em homologação tenho que enviar assim <indPres>1</indPres> <indIntermed>0</indIntermed> pelo que entendi quando indPres = 1 não deveria informar a tag indIntermed estranho rsrsrs

Bom dia a todos, Alguém sabe me dizer como ficou a questão da NT 2020/006 já estão aplicando isso em produção, quando for indpres 1 deve informar o tag intermediador, o componente já tem o campo xPag? Obrigado a todos Att.

procedure TForm1.Button2Click(Sender: TObject); var Store: IStore3; CertsLista, CertsSelecionado: ICertificates2; CertDados: ICertificate; lSigner : ISigner2; SignedCode : ISignedCode; begin Store := CoStore.Create; Store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY); CertsLista := Store.Certificates as ICertificates2; CertsSelecionado := CertsLista.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', false); if not (CertsSelecionado.Count = 0) then begin CertDados := IInterface(CertsSelecionado.Item[1]) as ICertificate; SignedCode := CoSignedCode.Create; lSigner := CoSigner.Create; SignedCode.FileName := 'Aplicativo.exe'; lSigner.Certificate := CertDados; SignedCode.Sign(lSigner); SignedCode.TimeStamp('http://timestamp.digicert.com'); end; end;

Bom dia skype Dfox.sistemas [email protected]

Fiz uma Dll para assinar pdf se você tiver interesse chama no pv!

Tendo a dll capicom.dll registra ela com comando regsvr32 capicom.dll No Delphi : acesse, dentro do menu Component, a opção Import Component Na janela que aparece, selecione Import a Type Library e pressione Next para gerar a Unit CAPICOM_TLB.pas inclua no projeto uses CAPICOM_TLB; agora em um botão coloca o seguinte código procedure TForm1.Button1Click(Sender: TObject); var Certificado: ICertificate2; lSigner : ISigner2; SignedCode : ISignedCode; begin {Assina um exe Digitalmente} try Certificado := CoCertificate.Create; SignedCode := CoSignedCode.Create; lSigner := CoSigner.Create; Certificado.Load('Certificado.pfx', 'senhacertificado', CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, CAPICOM_STORE_OPEN_READ_ONLY); SignedCode.FileName := 'Aplicativo.exe'; lSigner.Certificate := Certificado; SignedCode.Sign(lSigner); SignedCode.TimeStamp('http://timestamp.digicert.com'); finally end; end; Obs: Postei aqui porque não achei isso em lugar algum na net e queria deixar registrado!

Com Capicom acho que é possível veja dá até para assinar um .exe https://www.sysadmins.lv/retired-msft-blogs/alejacma/how-to-sign-exe-files-with-an-authenticode-certificate-part-2.aspx

esse componente parece fazer o que você quer https://www.gnostice.com/nl_article.asp?id=268&t=Generating_Digitally_Signed_PDF_Documents_In_Delphi

Essa tag xPag já existe no componente Acbr?