podiuminformatica

Bom dia... Como segue, implementei minha rotina como dissestes. Se houver erros minhas cordiais desculpas. BLOCO DA CONFIGURAÇÃO INICIAL: ACBrCTe.Configuracoes.WebServices.UF := DM.iboFilialUF.Text; // UF do Emitente. case DM.iboConfiguracaoFORMA_EMISSAO_CTE.Value of 0: ACBrCTe.Configuracoes.Geral.FormaEmissao := teNormal; // Emissão normal. 1: begin if ACBrCTe.Configuracoes.WebServices.UFCodigo in [14, 16, 26, 35, 50, 51] then ACBrCTe.Configuracoes.Geral.FormaEmissao := teSVCRS // Emissão em contingêcia RS. else ACBrCTe.Configuracoes.Geral.FormaEmissao := teSVCSP; // Emissão em contingêcia SP. end; end; BLOCO DO PREENCHIMENTO DO COMPONENTE: case DM.iboCTeFORMA_EMISSAO.Value of 0:{--- Normal ---} begin Ide.tpEmis := teNormal; end; 1:{--- Contingência ---} begin if ACBrCTe.Configuracoes.WebServices.UFCodigo in [14, 16, 26, 35, 50, 51] then Ide.tpEmis := teSVCRS else Ide.tpEmis := teSVCSP; end; end; Ide.cUF := RetornaCodigoEstado(DM.iboFilialUF.AsString); Mas continua dando o mesmo erro: Conhecimento(s) não confirmados: 410-> O tpEmis informado so e valido na contingencia SVC. Grato. Gilberto Rezende

Bom dia. Segue anexo XML de envio. Gilberto CTE.XML

Minha forma de emissão é igual: 0 Emissão Normal. 1 Emissão em Contingência 1:{--- Contingência ---} if ACBrCTe.Configuracoes.WebServices.UFCodigo in [14, 16, 26, 35, 50, 51] then Ide.tpEmis := teSVCRS else Ide.tpEmis := teSVCSP; Grato.

Ok. Grato até o momento. Fiz as seguintes modificações conforme anexos, mas continua dando erro. Conhecimeto(s) não confirmados: 360->O tpEmis informado so e valido na contingência SVC. Grato.

Correto. Desculpe por não mandar os prints atualizados... Mesmo enviando 'PR' não está funcionando.

O emitente é do PARANÁ e o CT-e que estou emitindo também é do PARANÁ. E mesmo assim não está funcionado.

Bom dia. Gostaria de contar com vossa ajuda. Estou enviando um CT-e contingência e está retornando a mensagem: "UF informada no campo cUF nao e atendida pelo WebService". Gostaria por favor que ao analisar os meus anexos vocês possam me orientar em que momento estou fazendo algo que esteja ocasionado esse erro. Grato. Gilberto Rezende.

Bom dia senhores. Solicito vossa ajuda com relação ao MDFE. Estou atualizando a minha versão do MDFE da versão 1.0 para a versão 3.0. No componente do ACBRMDFE Em configurações Geral "versaoDF" eu já mudei para ve300. Mesmo assim está retornando erro. Segue anexos. Grato Gilberto F. Rezende. MDFE.XML

Bom dia Senhores. Estou enviando o CTE e preenchendo a TAG rodo conforme arquivo anexo. Quando envio o CTE e faço a primeira impressão os dados do motorista e do veículo saem impressos no DACTE, mas se eu fizer uma reimpressão do DACTE os dados do do motorista e do veículo não saem mais impresso. Segue anexo texto da programação e arquivo XML do CTE. Grato Gilberto F. Rezende rodo.txt 41170327113436000143570010000005051000005053-cte.xml 41170327113436000143570010000004101000004108-cte.xml

Bom dia Senhores. Estou enviando CT-e e na hora do envio ocorre o erro: Conhecimento(s) não confirmados. O que pode estar acontecendo? Conto com vossa ajuda. Segue erro anexo. Grato. Gilberto Rezende.

Olá pessoal, tive a necessidade de pegar o código de liquidação no arquivo de retorno 400 do Bradesco, notei que o mesmo sempre retorna vazio, olhando o código percebi que o retorno "CodigoLiquidacao" não estava sendo populado, no procedimento: "procedure TACBrBancoBradesco.GerarRegistroTrailler400( ARemessa:TStringList );" da unit: "ACBrBancoBradesco" Adicionei a seguinte linha de código e funcionou, caso eu esteja equivocado nessa minha alteração por favor, me informem. Adicionei essa linha no código, na procedure : "GerarRegistroTrailler400" ... ValorDespesaCobranca := StrToFloatDef(Copy(Linha,176,13),0)/100; ValorOutrasDespesas := StrToFloatDef(Copy(Linha,189,13),0)/100; CodigoLiquidacao := FormatFloat('00',CodOcorrencia); //-> Linha inserida ...

Segundo o banco é um erro no campo referente ao juros e multas, mas não repassaram mais informações. Nem posição nem nada.

Olá pessoal, estou com um problema. Minha aplicação gerava os boletos e remessas do ITAU perfeitamente, de uma hora para outra o arquivo começou a ser rejeitado. O banco, o erro é estranho e não consigo encontrar o problema olhando o arquivo, segue em anexo o arquivo remessa e o erro, Se alguém já passou por isso, por favor de uma luz. cb200806.rem

Obrigado Juliomar. Era isso mesmo. Em algum momento o arquivo não estava sendo gerado por inteiro. Grato pela dica. Tenha um ótimo fim de tarde.

Boa tarde senhores. Estou com problema na geração do arquivo do SPED PIS/COFINS. Está ocorrendo o erro de "List index out of bounds (-1)" na hora de gravar o arquivo. Conto com vossa ajuda. Segue anexo print de tela com o erro. Grato.

Eu editei o arquivo .fr3 e coloquei como me solicitaram. Achei estranho apenas a versão atualizada não estar conforme essa solicitação. Mas resolvi o problema, obrigado pela ajuda galera.

Coloquei um breaking point na função MontarCampoCodigoCedente, realmente monta corretamente, apenas não joga para o formulário, estranho!

Então Juliana, justamente isso, o pessoal lá do banco na hora de validar diz que deve ser diferente, pode ser um funcionário lá que não sabe como funciona e está pedindo uma coisa sem sentido. Vou mandar alguns boletos de teste assim para testar, uma vez que a remessa e a linha digitável estão corretas. Está atualizado sim. Estou usando a versão completa. Se eu emitir o boleto em formato carne, sai o endereço, mas na opção boleto, não sai o endereço não.

Olá, boa tarde, obrigado pelo retorno. Em relação ao cedente, eu tenho um campo onde gravo o cedente, ele não é montado pela função. Eu passo o valor para a propriedade do componente, da forma descrita logo abaixo: with ACBrBoleto1.Cedente do begin CodigoCedente:= qBoletosCODIGONUMEROCEDENTE.Value; . Uso o gerador de relatório Fast Report.

Olá pessoal. Estou implementando os boletos do Bradesco, fiz uma versão e mandei para a validação, obtive o seguinte retorno: Boleto validado com sucesso: Porém se faz necessário estes ajustes: Campo agência/código beneficiário: deve ser preenchido, 2123-7/0005211-6 Campo beneficiário: falta o endereço completo da empresa. (na ficha de compensação) Segue em anexo imagem do boleto: Basicamente eles querem o endereço da empresa, eu forneço o endereço para o componente mas nesse tipo de boleto "Carne" não sai o endereço na impressão. No campo Campo agência/código beneficiário eles querem o número da conta, e não o número do cedente fornecido pelo banco, mas se eu mudo e alimento o componente com o número da conta o código de barras fica errado. Tanto que eu enviei uma remessa e a mesma foi validada com sucesso. Achei no mínimo estranho esse pedido do banco. Alguém aqui já teve esse tipo de problema?

Também estou com problema em gerar remessa para o Bradesco. Passo na propriedade "CodigoCedente" o valor informado pelo banco, mas na hora de montar o arquivo o componente joga na linha agência + conta corrente. Registro Header (primeira linha do arquivo): - posição 27 a 46: preencher com o número do perfil (código do cedente – acessório escritural) = 4680446, alinhar com zeros a O componente deveria colocar o valor do cedente, mas não coloca.

Nos optamos por criar um campo numero do cedente, nesse campo nos colocamos o número do cedente formatado de acordo com o banco. Eu testei a geração de remessa com o ITAU e funcionou perfeitamente, agora estou fazendo do Bradesco, fiz e mandei no email de homologação deles e eles informaram esse problema, está saindo na linha do arquivo a conta e não o número do cedente.

with ACBrBoleto1.Banco do begin Numero := StrToInt(qBoletosCODIGODOBANCO.Value); Digito := 0; //verificar case StrToInt(qBoletosCODIGODOBANCO.Value) of 341: TipoCobranca := cobItau; 748: TipoCobranca := cobSicred; 104: TipoCobranca := cobCaixaEconomica; 001: TipoCobranca := cobBancoDoBrasil; 237: TipoCobranca := cobBradesco; end; end; with ACBrBoleto1.Cedente do begin CodigoCedente:= qBoletosCODIGONUMEROCEDENTE.Value; //Aqui o código onde alimento a propriedade do Cedente Nome := qBoletosCEDENTE.Value; CNPJCPF := qBoletosCNPJ_CEDENTE.Value; //CodigoTransmissao //apenas utilizado no Santander Agencia := qBoletosAGENCIACODCEDENTE.Value; case ACBrBoleto1.Banco.Numero of 036, 341, 237: //confirmar banco begin AgenciaDigito:= copy(qBoletosAGENCIACODCEDENTE.Value, length(qBoletosAGENCIACODCEDENTE.Value), 1); end; end; if ACBrBoleto.Banco.TipoCobranca = cobBradesco then begin Conta := Copy(qBoletosCONTACORRENTE.AsString, 1, length(qBoletosCONTACORRENTE.AsString)-1); ContaDigito:= copy(qBoletosCONTACORRENTE.Value, length(qBoletosCONTACORRENTE.Value), 1); end else begin Conta := qBoletosCONTACORRENTE.Value; ContaDigito:= copy(qBoletosCONTACORRENTE.Value, length(qBoletosCONTACORRENTE.Value), 1); end;

No meu cadastro eu tenho um campo para o código do cedente e outro para a conta. Gero o boleto com esses dados, na impressão o boleto sai com o código do cedente normal, mas quando envio a remessa, o arquivo não é validado porque na posição 27 - 47 tem que sair o número do cedente e o componente coloca no arquivo o número da conta: Mensagem do banco: "posição 27 a 46: preencher com o número do perfil (código do cedente – acessório escritural) = 4680448, alinhar com zeros a " Eu passo para a propriedade do componente o valor correto do cedente.