Jhonlenon Ribeiro

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.

Boa noite, desda da semana passada que não estou conseguindo Manifestar NF-e de Compra do Destinatário, apenas consigo consultar, atualizei ACBr e schermas e mesmo assim não dá certo...alguém ai passando por esse mesmo problema?

Bom dia...problema resolvido....foi aplicado essas configurações no componente do DANFe do Fast Report ACBrNFeDANFEFR1.MargemEsquerda := 0; ACBrNFeDANFEFR1.MargemDireita := 0; ACBrNFeDANFEFR1.MargemSuperior := 0; ACBrNFeDANFEFR1.MargemInferior := 0;

Boa tarde, já atualizei ACBr hoje e o DANFe da NF-e está topando na lateral esquerda e cortando a impressão..até a semana passada tava normal..isso aconteceu depois que atualizei ACBr, eu uso o Fast Report para geração do DANFe, alguém já passou por isso? vou colocar em anexo o DANFe. NFE_TESTE.pdf

Boa noite estou com mesmo erro...não estou conseguindo emtir CT-e para Não Contribuinte.......Emitente do Simples Nacional, estou colocar Assim Imp.ICMS.SituTrib := cstICMSSN; Imp.ICMS.ICMSSN.indSN := 1; e estou recendo essa rejeição em Obrigando colocar os valores da Partilha do ICMS... Conhecimento(s) não confirmados: 1182->786-Rejeição: Grupo de informações da partilha com a UF de fim da prestação deve estar preenchido