Jhonlenon Ribeiro

Bom dia, testei aqui e está funcionando 100% o QrCode na Lateral, aqui no meu saiu o nome do sistema e o site

Bom dia, só esclarecendo que testei com Manifesto do Destinatário do Governo e ele também não baixa o XML das NF-e.

Boa noite, também estou com mesmo problema para efetuar o download do XML das NF-e, faz ciencia da operação 100%, Eu acho que é algum problema no Ambiente da Sefaz mesmo, não é no componente ACBr. Aqui como alternativa tenho a opção onde o usuário abre o navegador chrome com chave já preenchida da consulta do Manifesto ou digita a chave manual ainda dentro do sistema! ao efetuar o download no portal da sefaz com certificado digital importo para meu sistema de forma automática, os clientes achou bem pratico, quando o Manifesto do Destinatário dá problema os clientes usa essa 2 segunda opção....

Gostaria de saber quais os banco que o componente ACBrBoleto já está fazendo o registro de boleto online via webservice! pois estou querendo desenvolver no meu sistema.

Ah entendi agora deu certo....cada responsável tenho que passar toda a forma de pagamento....coloquei dentro do dataset ai gerou normal...obrigado pela ajuda..pode encerrar o topico

Mais o responsável pelo o pagamento do frete fica é dentro dessa tag mesmo

Eu tentei mais mesmo assim só gera 1 responsável no xml Como pode ver no print tem 2 pagamentos....

Dessa aqui.... //-----------Dados de Pagamento do Frete no MDF-e--------------------------- with rodo.infANTT.infPag.Add do begin DM.SQL_resp_frete.First; while not DM.SQL_resp_frete.Eof do begin xNome := DM.SQL_resp_fretenome_responsavel.AsString; CNPJCPF := DM.SQL_resp_fretecpf_cnpj_resp.AsString; idEstrangeiro := '';//txt_estrangeiro.Text; with Comp.Add do begin txt_tipo_componente.ItemIndex :=txt_tipo_componente.Items.IndexOf(DM.SQL_resp_frete.FieldByName('tipo_componente_frete').AsString); case txt_tipo_componente.ItemIndex of 0: begin TIPO_COMP := tcValePedagio; end; 1: begin TIPO_COMP := tcImpostos; end; 2: begin TIPO_COMP := tcDespesas; end; 3: begin TIPO_COMP := tcOutros; end; end; tpComp := TIPO_COMP; vComp := DM.SQL_resp_fretevalor_componente.AsFloat; xComp := txt_descricao_componente.Text; end; DM.SQL_resp_frete.Next; end;

Bom dia, estou com duvidas sobre o responsável pelo frete no MDF-e, tentei colocar vários responsável pelo frete no MDF-e mais na tag só gera 1, no MDF-e só vai aceitar um responsável mesmo pelo frete?

Era isso..eu pensei que já tinha adicionado esse units ACBrBoletoConversao....mais na verdade não tinha...obrigado...pode fechar o topico

Boa tarde, apois atualizar ACBr hoje não reconhece tpe da ACBrBoletoConversao.pas dá erro nessa linha...ACBrBoleto.ACBrBoletoFC.LayOut := lPadrao, não conhece o lPadrao.

Daniel meus schemas estava errado....limpei todos os schemas e peguei a pasta de novo da ACBr ai funcionou 100%...obrigado pode encerrar o topico

Desse diretório aqui...C:\ACBr\Exemplos\ACBrDFe\Schemas

Isso Daniel copiei a pasta schemas

Bom dia, atualizei meus fontes ACBr hoje e copiei os schemas atualizado da pasta dos fontes ai recebo a mensagem de erro Schemas invalido, isso pra Manifestar NF-e do Destinatario, consigo emitir NF-e e NFC-e certinho....ai quando volto os schemas antigo u consigo manifestar...alguém sabe como resolver esse erro?

Obrigado Italo Jurisato Junior era isso mesmo...pode encerrar o tópico

Bom dia....pode fechar o topico.....só não entendi porque a latitude e longitute não gera a tag...vou deixar o codigo como eu fiz pra gerar a tag pagamento e produto predominante.... //-----------Dados de Pagamento do Frete no MDF-e--------------------------- with rodo.infANTT.infPag.Add do begin xNome := Trim(txt_nome_resp_pagamento.Text); CNPJCPF := Trim(txt_cpf_cnp_resp.Text); idEstrangeiro := '';//txt_estrangeiro.Text; case txt_tipo_componente.ItemIndex of //------TIPO_COMP é uma variavel do TComp 0: begin TIPO_COMP := tcValePedagio; end; 1: begin TIPO_COMP := tcImpostos; end; 2: begin TIPO_COMP := tcDespesas; end; 3: begin TIPO_COMP := tcOutros; end; end; with Comp.Add do begin tpComp := TIPO_COMP; vComp := txt_valor_componente.Value; xComp := txt_descricao_componente.Text; end; vContrato :=txt_valor_contrato.Value; indPag :=TIndPag(txt_formapagto.ItemIndex); if txt_formapagto.ItemIndex = 1 then //----Condição para Gerar as Parcelas caso for aprazo begin with infPrazo.Add do begin nParcela := StrToInt(txt_nrpcela.Text); dVenc := StrToDate(txt_vencimento.Text); vParcela := txt_valor_parcela.Value; end; end; infBanc.codBanco :=infoToString(txt_numero_banco.Text); infBanc.codAgencia :=infoToString(txt_numero_agencia.Text); infBanc.CNPJIPEF :=txt_cnpj_inst_pagto.Text; end; //----------------Produto Predominante-------------------------------------- if txt_carga_pred.ItemIndex = 0 then begin if txt_descricao_produto.Text = '' then begin if Application.MessageBox('Atenção...descrição do produto predominante está vazia','Sistema', MB_OK) = IDOK then Abort; end; if txt_tipo_carga.ItemIndex =-1 then begin if Application.MessageBox('Atenção...tipo de carga predominante está vazia','Sistema', MB_OK) = IDOK then Abort; end; prodPred.tpCarga := TCarga(txt_tipo_carga.ItemIndex); prodPred.xProd := txt_descricao_produto.Text; prodPred.cEAN := txt_codbarras.Text; prodPred.NCM := txt_ncm.Text; if txt_ind_lotacao.ItemIndex = 0 then //--------Condição para gerar local de carga e descarga begin prodPred.infLocalCarrega.CEP := StrToIntDef(txt_cep_carrega.Text,0); prodPred.infLocalCarrega.latitude := StrToFloatDef(txt_latitude_carrega.Text,0); prodPred.infLocalCarrega.longitude := StrToFloatDef(txt_longitude_carrega.Text,0); prodPred.infLocalDesCarrega.CEP := StrToIntDef(txt_cep_descarrega.Text,0); prodPred.infLocalDesCarrega.latitude := StrToFloatDef(txt_latitude_descarrega.Text,0); prodPred.infLocalDesCarrega.longitude := StrToFloatDef(txt_longitude_descarrega.Text,0); end; end;

Situação Resolvido...obrigado pelo a ajuda.....eu tava procurando uma informação mais ou encontrei será que no MDF-e eu posso emitir com mais um produto predominante tipo uns 2 ou 3?

Valeu pela ajuda..estou quase finalizando só idEstrangeiro que estou passando assim idEstrangeiro := 'Nao'; e dá erro na validação do xml...na hora de compilar não dá erro

Estou tentando assim mais não gera a tag no xml..... //-----------Dados de Pagamento do Frete no MDF-e---------------------------- with rodo.infANTT.infPag.Add do begin xNome := Trim(txt_nome_resp_pagamento.Text); CNPJCPF := Trim(txt_cpf_cnp_resp.Text); idEstrangeiro := txt_estrangeiro.Text; vContrato :=0; indPag :=TIndPag(1);; end;

Boa tarde, não estou conseguindo achar os campos da Tag Pagemento e Produto Predominante no MDF-e..alguém já fez pra mim dá uma luz?

Obrigado deu certo assim... uses ACBrDeviceSerial; pode encerrar o topico

Boa noite., depois que atualizei ACBr não está reconhecendo mais esse código da balança.. DM.ACBrBAL.Device.HandShake := TACBrHandShake(cmbHandShaking.ItemIndex ); --------------TACBrHandShake DM.ACBrBAL.Device.Parity := TACBrSerialParity( cmbParity.ItemIndex );--------------------------TACBrSerialParity DM.ACBrBAL.Device.Stop := TACBrSerialStop( cmbStopBits.ItemIndex );------------------------TACBrSerialStop dá erro essa 3 linhas ai...alguém sabe como resolver isso ai

Problema resolvido apliquei essas configurações SSL.SSLType := LT_TLSv1_2 , consegui enviar as NFC-e./NF-e

Bom dia, estou sem entender, antes funciona em homologação e produção usando as seguintes configurações: SSLLib :='LibWinCrypt'; CryptLib:='cryWinCrypt'; HttpLib:='httWinHttp'; XMLSingLib:='xsLibXMl2'; SSLType :='LT_all'; Agora só funciona com essa configuração abaixo isso em ambiente de homologação. SSLLib :='LibCapicom'; CryptLib:='cryCapicom'; HttpLib:='httWinHttp'; XMLSingLib:='xsLibXmlCapicom'; SSLType :='LT_all'; meus fontes do ACBr está atualizado..ai não entedi...alguém já passou por isso? antes à uns 15 dias tava normal, será que tem haver com a desativação do Protocolo TLS v1.0 e 1.1? o erro que aparece é esse aqui.... WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 12175 Erro HTTP: 0 URL: https://nfe-homologacao.svrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx Falha no Envio da Requisição. Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor.