EFV

Já esta setado como True Italo

Ola Ítalo. Sobre o tópico anterior estive vendo que os sistemas que estão executando com os componentes anteriores a instalação do truck dois estão gerando o xml sem acentuação, e os que estão já executando com o trunk2 estão gerando com acentuação, na duvida removi todos os componentes e instalei novamente mas o problema persiste, gostaria de saber se existe alguma procedimento que possa estar fazendo para solucionar este problema. Segue em anexo os dois xml sendo que o 64-nfse gerado pelo sistema anterior do trunk2 64-nfse.xml 121-nfse.xml

Obrigado Italo Realmente fiz uma grande confusão ao interpretar a questão de lotação, já estou providenciando os ajustes.

Obrigado Italo Pelos esclarecimentos

Ola Italo fiz a atualização dos componentes setei a propriedade remove acentuação para True só que no provedor betha continua salvando o xml descrição com a acentuação "ç ~" há algum outro procedimento no qual tenha de fazer. 119-nfse.xml

Ola Juliomar Segue em anexo o xml 42160711575458000195570030000108011000108013-cte.xml

Ola Pessoal estou enfrentando problemas para vincular a rntrc do proprietário junto ao cte, como podem observar por mais que esteja passando para o parâmetro Prop.RNTRC := qryAuxiliar.fieldbyname('rntrc').AsString; do proprietário o mesmo esta pegando o rntrc do prestador. Segue em anexo trecho do codigo no qual estou passando o parametro while not qryAuxiliar.Eof do begin {$IFDEF PL_200} with infCTeNorm.rodo.veic.Add do {$ELSE} with rodo.veic.Add do {$ENDIF} begin cInt := qryAuxiliar.fieldbyname('COD_INT_VEICULO').AsString; RENAVAM := qryAuxiliar.fieldbyname('RENAVAN').AsString; placa := qryAuxiliar.fieldbyname('PLACA').AsString; tara := StrToInt(qryAuxiliar.fieldbyname('TARA_KG').AsString); capKG := StrToInt(qryAuxiliar.fieldbyname('CAPACIDADE_KG').AsString); capM3 := StrToInt(qryAuxiliar.fieldbyname('CAPACIDADE_M3').AsString); UF := qryAuxiliar.fieldbyname('uf').AsString; {TpcteTipoVeiculo = (tvTracao, tvReboque)} if (qryAuxiliar.fieldbyname('T_PROPRIETARIO').AsString = 'PRÓPRIO') then tpProp := tpProprio; if (qryAuxiliar.fieldbyname('T_PROPRIETARIO').AsString = 'TERCEIRO') then tpProp := tpTerceiro; {TpcteTipoRodado = (trNaoAplicavel, trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros)} if (qryAuxiliar.fieldbyname('T_VEICULO').AsString = 'TRAÇÃO') then tpVeic := tvTracao; if (qryAuxiliar.fieldbyname('T_VEICULO').AsString = 'REBOQUE') then tpVeic := tvReboque; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'NÃO APLICÁVEL') then tpRod := trNaoAplicavel; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'TRUCK') then tpRod := trTruck; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'TOCO') then tpRod := trToco; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'CAVALO MECÂNICO') then tpRod := trCavaloMecanico; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'VAN') then tpRod := trVAN; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'UTILITÁRIO') then tpRod := trUtilitario; if (qryAuxiliar.fieldbyname('T_RODADO').AsString = 'OUTROS') then tpRod := trOutros; {TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider)} if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'NÃO APLICÁVEL') then tpCar := tcNaoAplicavel; if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'ABERTA') then tpCar := tcAberta; if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'FECHADA BAÚ') then tpCar := tcFechada; if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'GRANELERA') then tpCar := tcGraneleira; if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'PORTA CONTÊINER') then tpCar := tcPortaContainer; if (qryAuxiliar.fieldbyname('T_CARROCERIA').AsString = 'SIDER') then tpCar := tcSider; if (qryAuxiliar.fieldbyname('VEIC_PERTENCE').AsInteger = 1) then begin Prop.CNPJCPF := qryAuxiliar.fieldbyname('cnpj').AsString; Prop.RNTRC := qryAuxiliar.fieldbyname('rntrc').AsString; Prop.xNome := qryAuxiliar.fieldbyname('razao').AsString; Prop.IE := qryAuxiliar.fieldbyname('ie').AsString; Prop.UF := qryAuxiliar.fieldbyname('uf_proprietario').AsString; end; qryAuxiliar.Next; end; end; Desde já Agradeço a colaboração de todos.

Obrigado Italo era isso mesmo, não sei se serve de ajuda para os próximos que se deparem com este problema, este erro só acontece no modo homologação, modo produção não esta ocorrendo, isso para o servidor betha

Ola Pessoal alguém passou por este problema, pensei que fosse algum problema com a minha aplicação mas este fim de semana fiz vários testes com o sistema de exemplo que vem junto com o acbr e o mesmo também gera o xml corrompido. Se alguém puder me dar uma dica de como resolver o problema 100-nfse.xml

Ola Pessoal será que é possível alguém me ajudar identificar o problema do xml, estou usando o provedor betha. Ao enviar para o web service valida tudo certo somente na hora de abrir o arquivo xml o mesmo não abre pelo navegador, tenho alguns clientes reclamando disso. 85-nfse.xml

Ola Boa noite Pessoal Começou aparecer a seguinte mensagem de erro toda vez que envio a nfse, A area de dados transferida para uma chamada do sistema é pequena, pelo que pude observar o xml esta gerando certo, já a vários dias estou me batendo neste erro e não estou conseguindo encontrar o problema, pelo que pesquisei no fórum ninguém passou por este problema ainda, por isso acredito que estou passando algum parâmetro invalido. 00000257-env-lot.xml 257UNICA-rps.xml

Pessoal não sei se ajuda mas resolvi o problema apenas eliminado o arquivo .res do projeto

Juliomar, estou usando o delphi 7 com o fast report 4, a algum impedimento para os componentes do trunk 2, ou terei que usar o Fast Report 5, neste momento estou formatando a maquina e vou instalar tudo do zero, só queria tirar esta duvida para fazer certo e não gerar erro algum.

Bom dia Juliomar, Segue em anexo parte do log, usando o instalador, antes de usar o instalador foi removidos todos os componentes acbr, feito o procedimento recomendado C:\SGI\componentes\ACBR\Fontes\ACBrDFe\ACBrNFSe\ACBrNFSeNotasFiscais.pas(55) Error: Undeclared identifier: 'TNFSeW' C:\SGI\componentes\ACBR\Fontes\ACBrDFe\ACBrNFSe\ACBrNFSeWebServices.pas(47) Fatal: Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeG.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFSe.dpk". Detalhe é que os ostros nfe cte todos instalam certinho.

Ola Pessoal estou com problemas na instalação do componente acbrnfse, quando mando compilar o mesmo esta dando o erro de [Error] ACBrNFSeNotasFiscais.pas(55): Undeclared identifier: 'TNFSeW' [Fatal Error] ACBrNFSeWebServices.pas(47): Unit pnfsLerListaNFSe was compiled with a different version of pnfsNFSe.TNFSe Só que por diversas vezes já atualizei os arquivos, removi os componentes e o erro persiste gostaria da ajuda dos colegas

Ola Juliana, Já Avia estudado este tópico, como vc pode observar nos arquivos que enviei em anexo estou utilizado o posto 32, pode ser a estrutura do arquivo procurei seguir de acordo com o exemplo dado. Sei que vários colegas já homologaram estes boletos para o sicred, então com certeza é algo que estou passando no meu código errado.

Ola Pessoal Estou com problemas na geração da remessa do arquivo sicredi. " Posição Inicial Posição Final Registro Nome do Campo Informação Inconformidade 0038 0057 DETALHE LOTE Linha 3 Dígito Verificador do Nosso Número incorreto. Favor verificar o manual SEGMENTO P - Nosso número - Identificação do título no banco 00000137000000000000 0038 0057 DETALHE LOTE Linha 5 Dígito Verificador do Nosso " Fiz vários procedimentos citados pelos colegas aqui no fórum mas não obtive exito em nenhum deles, acredito estar passando algum parâmetro incorreto mas não consegui identificar o mesmo. Segue abaixo a forma que estou passando as informações no sistema. if frmcontasreceber.qrcr.fieldbyname('filtro').AsInteger = 1 then begin Titulo := acBoleto.CriarTituloNaLista; with Titulo do begin LocalPagamento := 'Pagamento preferencialmente nas agencias Sicredi'; Vencimento := StrToDate( frmcontasreceber.qrcr.fieldbyname('data_vencimento').AsString); DataDocumento := StrToDate(frmcontasreceber.qrcr.fieldbyname('data_emissao').AsString); NumeroDocumento := IntToStr(NossoNumero1+(i)); EspecieDoc := 'DM'; if(frmmodulo.qrconfig_cobrebem.fieldbyname('aceite').AsString ='SIM') then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NossoNumero := IntToStr(NossoNumero1+(i)); Carteira := frmmodulo.qrconfig_cobrebem.fieldbyname('carteira').AsString; ValorDocumento := frmcontasreceber.qrcr.fieldbyname('valor_atual').AsCurrency; Sacado.NomeSacado := frmmodulo.qrcliente.fieldbyname('nome').asstring; Parcela := I; EspecieMod := 'R$'; tipo_boleto := frmmodulo.qrconfig_cobrebem.fieldbyname('VARIACAO_MODALIDADE').AsInteger; if (frmmodulo.qrcliente.fieldbyname('tipo').AsInteger =1) then Sacado.Pessoa := pFisica else Sacado.Pessoa := pJuridica; Sacado.CNPJCPF := OnlyNumber(frmmodulo.qrcliente.fieldbyname('cpf').asstring); Sacado.Logradouro := frmmodulo.qrcliente.fieldbyname('endereco').asstring; Sacado.Numero := frmmodulo.qrcliente.fieldbyname('numero').asstring; Sacado.Bairro := frmmodulo.qrcliente.fieldbyname('bairro').asstring; Sacado.Cidade := frmmodulo.qrcliente.fieldbyname('cidade').asstring; Sacado.UF := frmmodulo.qrcliente.fieldbyname('uf').asstring; Sacado.CEP := OnlyNumber(frmmodulo.qrcliente.fieldbyname('cep').asstring); ValorAbatimento := StrToCurrDef('0',0); LocalPagamento := frmmodulo.qrcliente.fieldbyname('cidade').asstring; ValorMoraJuros := StrToCurrDef('0',0); ValorDesconto := StrToCurrDef('0',0); ValorAbatimento := StrToCurrDef('0',0); DataMoraJuros := StrToDateDef('', 0); DataDesconto := StrToDateDef('', 0); DataAbatimento := StrToDateDef('', 0); DataProtesto := StrToDateDef('', 0); PercentualMulta := StrToCurrDef('2',0); Mensagem.Text := Edit1.Text; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := padL(trim(Edit2.Text),2,'0'); Instrucao2 := padL(trim(Edit3.Text),2,'0'); i:=i+1; // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end; 86409222.rm4 SGI.exe_ ACBRBoletoFCFortesFr.LayoutBoleto_).pdf

Ola pessoal consegui resolver o meu problema, vou de passar parte do código fonte que foi desenvolvido para a solução do problema. qryAuxiliar.fisrt; descr :='{'; while not qryAuxiliar.Eof do begin descr :=descr +'[[Descricao='+qryAuxiliar.fieldbyname('servico_realizado').AsString+ '][Quantidade='+qryAuxiliar.fieldbyname('qtd').AsString+ '][ValorUnitario=+qryAuxiliar.fieldbyname('valor_servico').AsString+]]'; qryAuxiliar.Next; end; descr :=descr+'}'; Servico.Discriminacao :=descr;

Ola Boa Noite a Todos Gostaria de saber se alguém possui um exemplo de como devo proceder para inserir mais de um serviço, provedor betha, já tentei de varias formas sugeridas aqui no site mas não obtive exito.

Boa noite Michel Ouriques. Atualizei o schemas de acordo com os que estão na pasta do acbr, e da mesma forma continua o erro desinstalei os componentes acbr refiz a instalação dos mesmos, dei uma Build no projeto inteiro e nata o que esta me chamando a tenção que para poder compilar o projeto tanto o demo como o meu próprio estou tendo que comentar a linha Condicao:= 'A_PRAZO';, pois o mesmo não encontra esta propriedade nas declarações.

Ola Bom dia Michel Ouriques peço desculpa pela minha ausência, mas tive fazendo os testes ontem e esta passando pelo if GerarCondicaoPagamento. o erro esta ocorrendo na unit ACBrNFSeWebServices if not(NotaUtil.Valida(FDadosMsg, FMsg, FConfiguracoes.Geral.PathSchemas, FConfiguracoes.WebServices.URL, FConfiguracoes.WebServices.ServicoEnviar, FConfiguracoes.WebServices.Prefixo4)) then raise Exception.Create('Falha na validação do Lote ' + TNFSeEnviarLoteRps(Self).NumeroLote + sLineBreak + FMsg); end; O detalhe é que se não informo a condição de pagamento esta passando sem nenhum erro.

Bom dia Michel como você pode observar eu declarei ele no exemplo que passei acima, por isso que não estou entendo onde que estou falhando.

Olá Juliomar ele gera o rps porem não chega a aparecer no site da betha 1017UNICA-Rps.xml 1017UNICA-Rps2.xml

Não Continua como mesmo problema erro.

Ola Juliomar desculpe pela minha falha a variavel esta declarada logo acima. qryReceber.Close; qryReceber.SQL.Clear; qryReceber.SQL.Add('select * from c000049'); qryReceber.SQL.Add('where codvenda =:codv and codcliente =:codc'); qryReceber.ParamByName('codv').AsString :='S'+qrnota.fieldbyname('numero').AsString; qryReceber.ParamByName('codc').AsString :=qrnota.fieldbyname('cod_tomador').AsString; qryReceber.Open; parct :=qryReceber.RecordCount; parcp :=1; qryReceber.First; if(parct>0) then begin // FormaPagamentoToDescricao(fpCreditoLoja); with ACBrNFSe.NotasFiscais.Add.NFSe do begin with CondicaoPagamento do begin FormaPagamentoToDescricao(fpOutro); //Condicao 'A_PRAZO'; QtdParcela:= parct; with Parcelas.Add do begin while not qryReceber.Eof do begin Parcela := parcp; Valor := qryReceber.fieldbyname('valor_atual').AsFloat; DataVencimento := qryReceber.fieldbyname('data_vencimento').AsDateTime; parcp :=parcp+1; qryReceber.Next; end; end; end; end; end