Painel de líderes

Boa tarde a todos , @Daniel Simoes , Fiz uma implementação na Unit ACBrTEFDCliSiTef para captura de Cpf/Cnpj e gostaria que se possível verificasse se esta compatível para utilizar no componente ACBrTEFD . Observações para utilização do recurso : 1 - Entrar em contato com a Software Express para solicitação da documentação para permissão e responsabilidades da Software House para utilizar o recurso . 2 - Após aprovação junto a Software Express da documentação será fornecido pela Software Express "Identificador" e "Chave personalizada" da sua Software House que serão utilizados na sua AC em cada solicitação de CPF ou CNPJ . 3 - Para este recurso de captura de Cpf / Cnpj não é nescessario nenhuma outra DLL ou configuração no componente para que funcione apenas as DLLs Clisitef32 versão 6 (não testei com versões inferiores) . edit1.text := ACBrTEFD1.TEFCliSiTef.ObtemDadoPinPadDiretoEx_CpfCnpj( docCpf {ou docCnpj} , 'fvdsfdfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsa'+ 'fdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsf'+ 'fdsfsadfsdfdsfdsfsdfdsfdsfdsfdsds'+ 'gfdgfdgfdgfdgfgfdggdgdgfdgfdg'+ 'gdfgdgfdgfggggdgfdgdg' , '00.000.000/0000-00' ) ; Parte do código implementado no componente foi copiado aqui mesmo do forum em : Obrigado . ACBrTEFDCliSiTef.pas

Funcionou... Muito Obrigado Juliomar Marchetti

Olá, A mensagem não pode ser configurada na interface do Monitor?

Isso ainda é um trabalho em andamento, pelo colega @Juliomar Marchetti...

Desculpe, mas a sua resposta não responde as minhas perguntas... Não gostei da sua atitude. Todo local existem regras, e você foi alertado de estar descumprindo uma delas... Não participarei mais desse tópico...

6.3 - Mostre respeito pelo modo de escrever. Escreva de modo claro, gramaticalmente e semanticamente correto. Não escreva TUDO EM MAIÚSCULAS. Isso é lido como se estivesse gritando e é considerado rude. Favor leia as regras do fórum. O que você quer dizer com "Trava" ?? ocorre algum erro de comunicação no sistema ? Não ficou claro, se você é um programador, e se é usuário do ACBr, usando ACBrPosPrinter...

Por favor debug a procedure function TDFeWinCrypt.SelecionarCertificado: String; Observe que todo o trabalho da exibição da Tela, é feita por uma chamada a API do Windows... na linha: ACertContext := CryptUIDlgSelectCertificateFromStore( FpStore, 0, 'Selecione um Certificado', 'Selecione o Certificado que deseja utilizar:', CRYPTUI_SELECT_LOCATION_COLUMN or CRYPTUI_SELECT_ISSUEDBY_COLUMN or CRYPTUI_SELECT_INTENDEDUSE_COLUMN, 0, Nil); Tente identificar, em qual linha, exatamente ocorre o problema... Se você mudar para libCapicom usará o código de: function TDFeCapicom.SelecionarCertificado: String; que é basicamente, o mesmo código, de antes do Refactoring... (lembre-se de clicar em "Salvar Configurações", para que as modificações surtam efeito) Qual erro exatamente ??

Estou investigando o erro: NTE_BAD_PROV_TYPE - 0x80090014L - The value of the dwProvType parameter is out of range. All provider types must be from 1 through 999.

Certo, novamente muito obrigado @Jairo Maia! - Thiagofrd

sim, estamos com o problema, acabei de receber o email da sefaz de SP:

Qual função vc tentou executar?

Veja ainda, o Log do ACBrSAT.. nele há o XML que foi enviado, e o número da sessão... abaixo no Log, estará a resposta do SAT, compare o número da sessão, e o XML devolvido pelo SAT. Você pode usar o site: https://www.base64decode.org/ para decodificar a resposta do SAT, que está em Base64

EscPos não é HTML No EscPos você tem um conjunto de fontes pequenas... Tente o "Expandido" (em fonte Normal)... já dá um bom destaque... Se você quer algo mais "gráfico", use algum gerador de relatórios e impressão por Spooler...

Ele não foi removido, ainda existe só que agora com 3 possibilidades.

Estou com o mesmo erro em um cliente de SP.

Poste a mensagem de erro completa, ela deveria possuir mais informações. function MsgErroGetCryptProvider: String; var WinErro: DWORD; begin WinErro := GetLastError; if WinErro = DWORD( NTE_KEYSET_NOT_DEF ) then Result := 'Provedor de Cripotografia não encontrado!' else if WinErro = DWORD( NTE_KEYSET_ENTRY_BAD ) then Result := 'Estrura de Chave obtida no Provedor de Cripotografia está corrompida' else Result := 'Falha em obter Provedor de Cripotografia do Certificado. Erro: '+GetLastErrorAsHexaStr; end;

Boa tarde no svn as alterações Obrigado

Bom dia. Implementei os ajustes no Registro J800 para layout 5, e novo Registro J801 para layout 5. Passo em anexo as alterações. Att. Dalvan Antunes Acbr_SpedContabil_J800_J801.zip

Para contornar esta situação na minha função de imprimir tive que alimentar as propriedades da nota após carregar o xml: with _NFSe do begin NotasFiscais.Clear; NotasFiscais.LoadFromFile(XML); with _dmSistema._Empresa do begin with NotasFiscais.Items[0].NFSe.Prestador do begin Cnpj := FieldByName('CNPJ').AsString; InscricaoMunicipal := FieldByName('INSCMUN').AsString; InscricaoEstadual := FieldByName('INSCEST').AsString; end; with NotasFiscais.Items[0].NFSe.Tomador do begin RazaoSocial := FieldByName('RAZAO').AsString; with Endereco do begin Endereco := FieldByName('ENDERECO').AsString; Numero := FieldByName('NUMERO').AsString; Complemento := FieldByName('COMPLEMENTO').AsString; Bairro := FieldByName('BAIRRO').AsString; xMunicipio := FieldByName('CIDADE').AsString; CEP := FieldByName('CEP').AsString; end; with Contato do begin Telefone := TelefoneEmpresa; Email := FieldByName('EMAIL').AsString; end; end; end; end; NotasFiscais.Imprimir; Teria outro jeito? Lembrando que isto é apenas para métodos: Enviar, ConsultarLoteRPS, Usando por exemplo: Gerar, o xml é carregado com todos os dados do tomador.

Não há nenhum problema nisso... alias isso é o que é feito pela maioria das aplicações O que você pode fazer, é cortar o papel, entre eles...

Apliquei algumas correções nos fontes:

Boa tarde. Conforme pode ser percebido pelo texto da ocorrência, a mesma irá cancelar somente o abatimento, acredito que a correta seja a RemessaBaixar. Att.