Ir para conteúdo
  • Cadastre-se

reij

Membros
  • Total de ítens

    98
  • Registro em

  • Última visita

Tudo que reij postou

  1. Boa tarde a todos estou com o seguinte problema, ao testar o pix no demo do acbrpixcd, ao clicar em solicitar o certificado como mostra o tutorial, recebo a msg erro 403 forbbinden, ou seja tive o acesso negado a sts, alguem pode me dizer o que posso estar fazendo errado? Alguem poderia me dar um norte sobre o caso
  2. reij

    Erro ao GerarCTe(QRCode)

    bom dia amigos to com o seguinte problema atualizei o acbr pra ele poder colocar aquelas funcionalidades novas do mdfe e cte que é o qrcode bom agora vem o problema quando coloca a tag GerCTeSupl como nunca =>diz que o qrcode do cte deve ser informado sempre somente homologação somente produção e ai amigos como faço nesse caso pois estou precisando tirar 10 em homologação pra mandar pra sefaz pe poremnão consigo pois não passa nenhuma no ambiente de homologação, será que esqueci alguma configuração alem dessa tag desde já grato pela ajuda
  3. porque no cte não aparece e no mdfe aparece no xml mas no damdfe não aparece
  4. Graça me tire uma duvida devo discriminar os produtos perigosos somente no mdfe ou no cte também?
  5. Boa noite pessoal to comum problema aqui a tag peri pra produtos perigosos não aparece nemno cte nemno mdfe alguem pode me dar alguma ideia do que pode ser o problema Desde já grato pela ajuda
  6. reij

    Boletos via webserver caixa

    Boa tarde a todos alguem aqui sabe me dizer se o acbr trabalha com envio de boletos via webserver/xml pois o modo tradicional é o cnab desde já grato pela ajuda
  7. Algum dos amigos ja gerou instruções de baixa ou prorrogação de títulos usando acbrboletos Desde ja grato pela atenção
  8. ja resolvi obrigado, fui direto no departamento responsavel e validaram
  9. Pessoal tem alguém que já passou por isso que possa me dar uma força
  10. reij

    Validar boletos caixa

    Boa noite a todos estou com o seguinte problema ao mandar boletos pra validação no formato carnee da caixa recebo o seguinte retorno 1. Não consta o Número do Documento no Recibo do Pagador. //no layout da caixa aparece "numero do documento/parcela=123456/001" no meu aparece parcela 001/005 3. Local de Pagamento - preencher com a expressão PREFERENCIALMENTE NAS CASAS LOTÉRICAS ATÉ O VALOR LIMITE. //Eesse aqui ja esta resolvido 4. Não consta o(s) campos(s) ou um dos campos Valor do Documento e/ou (-)Desconto e/ou (-) Outras Deduções/Abatimentos e/ou (+) Mora/Multa/Juros e/ou (+) Outros Acréscimos e/ou (=) Valor Cobrado. //no boleto gerado pelo aplicativo da caixa igual ao meu tbm não aparece Desde ja grato pela ajuda
  11. Boa noite a todos estou terminando de desenvolver uma ferramenta pra geração de boletos da caixa econômica federal porem ao gerar a remessa sempre na primeira linha sai REMESSA-PRODUCAO e a primeira precisa ser remessa teste onde configuro o tipo de remessa pra que a primeira seja REMESSA-TESTE vejamcomo esta no momento 10400000 2105757480001760000000000000000000000610621265600000000NOME CLIENTE TESTE CAIXA ECONOMICA FEDERAL 10504201818531200000705000000 REMESSA-PRODUCAO desde ja grato pela ajuda
  12. bom dia estou finalizando o desenvolvimento de um sistema emissão de boletos(caixa econômica federal) pra um cliente e estou com o seguinte problema ao gerar o nosso numero ele gera 1400000000..... porem ao comparar com o boleto do cliente percebi que o do cliente que é gerado atualmente no sistema da propria caixa gera 1490000000..... liguei no suporte da caixa e o me falaram que esse codigo é obrigatório então vem a pergunta o que posso estar fazendo errado as configurações são as seguinte //trecho das configurações acbrboleto1.Cedente.Agencia :=dm.FdConfigNUM_AGENCIA.AsString; acbrboleto1.Cedente.AgenciaDigito :=dm.FdConfigDIGITO_AGENCIA.AsString;//banco do brasil acbrboleto1.Cedente.Convenio :=dm.FdConfigCONVENIO.AsString;//banco do brasil acbrboleto1.Cedente.Modalidade :=''; acbrboleto1.Cedente.CaracTitulo := tcSimples; acbrboleto1.Cedente.CodigoCedente :=dm.FdConfigCOD_CEDENTE.AsString;//+dm.FdConfigDIG_COD_CEDENTE.AsString; //trecho da geração dos boletos var nNumero: real; ***** nNumero := StrToFloat(dm.FdBoletosSEU_NUMERO.asstring); Sacado.CEP := dm.FdBoletosSACADO_CEP.asstring; ValorAbatimento := dm.FdBoletosVLR_DESCONTO.AsCurrency; NossoNumero := FloattoStr(nNumero); DataMulta := dm.FdBoletosDATA_VENCIMENTO.AsDateTime + 1; Alguem tem alguma ideia de como configurar pra incluir o 9 depois do 14? so lembrando estoiu usando tipocobranca cobcaixaeconomica se usar o tipo cobcaixasicob ele gera o 9 antes mas o nosso numero fica com 11 caracteres alguem pode dar uma ideia de como resolver isso desde já grato pela atenção
  13. já resolvi pessoal era o csosn o problema obrigado sérgio assunção foi exatamente o que fiz
  14. reij

    NF-e Devolução Sub trib

    Boa tarde pessoa estou com um problema que é o seguinte estou emitindo um nfe de devolução (emissor simples nacional x receptor regime normal), com substituição tributária porem quando gero a nfe esta sendo rejeitada pq não esta sendo discriminada o icms sub no xml e eu fiz dessa forma poq será que não esta trazendo o valor da tributação uma vez que esta discriminada na tabela if ((CNfeCFOP.AsString = '1202')or (CNfeCFOP.AsString = '5202')) or ((CNfeCFOP.AsString = '2202')or (CNfeCFOP.AsString = '6202'))or ((CNfeCFOP.AsString = '5411'))or ((CNfeCFOP.AsString = '6411')) then begin ICMS.modBC := dbiValorOperacao; ICMS.vBC := DnfeICMS_VLR_BCALC.AsCurrency; ICMS.pICMS := DnfePERC_ICMS.AsCurrency; ICMS.vICMS := DnfeVLR_ICMS.AsCurrency;; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST:= 0; ICMS.vBCST := DnfeICMS_SUB_BCALC.AsCurrency; ICMS.pICMSST := DnfePERC_ICMS_SUB.AsCurrency; ICMS.vICMSST := DnfeVLR_ICMS_SUB.AsCurrency; ICMS.pRedBC := 0; porem no xml no xml esta saindo assim - <prod> <cProd>10</cProd> <cEAN /> <xProd>CILINDRO RD TZ DIR SUP ACD6</xProd> <NCM>87083090</NCM> <CFOP>5411</CFOP> <uCom>UND</uCom> <qCom>1.0000</qCom> <vUnCom>136.1500000000</vUnCom> <vProd>136.15</vProd> <cEANTrib /> <uTrib>UND</uTrib> <qTrib>1.0000</qTrib> <vUnTrib>136.1500000000</vUnTrib> <indTot>1</indTot> </prod> - <imposto> - <ICMS> - <ICMSSN102> <orig>0</orig> <CSOSN>300</CSOSN> </ICMSSN102> </ICMS>
  15. Ja resouvi o prpblema era o componente fdquery obrigado
  16. Bom dia amigos estou com um pequeno problema ao importar dados de xml pro banco de dados estou sando essa rotina aqui porem ela esta duplicando dezenas de vezes o mesmo item procedure TF_Import.importarxmlpasta; var i, j, k, n : integer; begin QxmlPasta.Open(); ACBrNFe1.NotasFiscais.Clear; //ACBrNFe1.NotasFiscais.Add; for i := 0 to Ltbxml.Items.Count -1 do begin try ACBrNFe1.NotasFiscais.LoadFromFile(Ltbxml.Items); except ShowMessage('Arquivo NFe Inválido'); exit; end; for n:=0 to ACBrNFe1.NotasFiscais.Count-1 do begin with ACBrNFe1.NotasFiscais.Items[n].NFe do begin QxmlPasta.insert; QXmlPastaCODIGO.AsInteger := inc_gen('GEN_XML_IMPORTADOS_PASTA_ID'); QXmlPastaDATANF.AsDateTime := Ide.dEmi; QXmlPastaCHAVE.AsString := procNFe.chNFe; QXmlPastaVLR_NOTA.AsCurrency := total.ICMSTot.vNF; QXmlPastaNOME_RAZAO.AsString := Emit.xNome; QXmlPastaNOME_UNIDADE.AsString := Dest.xNome; QXmlPastaCNPJ_UNIDADE.AsString := Dest.CNPJCPF; QXmlPastaNUMNFE.AsString := IntToStr(Ide.nNF); QXmlPastaNOP.AsString := Ide.natOp; QxmlPasta.Post; // QxmlPasta.CommitUpdates(); // QxmlPasta.ApplyUpdates(0); end; end; end; QxmlPasta.ApplyUpdates(0); Showmessage('Importação Realizada com sucesso'); QxmlPasta.Close; end; lembrando que quando usava no dbexpress funcionava porem no firedac ta dando esse problema desde ja grato pela ajuda
  17. reij

    SMTP Error - Unable tologin

    Boa tarde estou com o seguinte problema que so acontece em um cliente, numa maquina do cliente, smtp error unable to login alguém pode me dar um help sobre o que pode estar causando este problema, coloquei as configurações de e-mail do cliente em minha máquina e deu certo, mas na do cliente da esse erro
  18. reij

    indiesdest sempre 1

    Boa noite pessoal estou com o seguinte problema toda vez que gero uma nfe esta ficando comindiedest = 1 vejam minha sintaxe if CNfeCLI_INSCREST.AsString = '' then begin Dest.indIEDest := inNaoContribuinte; Dest.IE := ''; end; //Else if CNfeCLI_INSCREST.AsString = 'ISENTO' then begin Dest.indIEDest := inIsento; Dest.IE := 'ISENTO'; end; //else if ((CNfeCLI_INSCREST.AsString <> '')or (CNfeCLI_INSCREST.AsString <> 'ISENTO')) then begin Dest.indIEDest := inContribuinte; Dest.IE := CnfeCLI_INSCREST.AsString; end; porem sempre esta ficando 1 alguém teria alguma ideia, pq nesse momento estou atualizando pra verse é aluma corrupçao nos arquivos do acbrnfe desde já grato pela ajuda
  19. Bom dia pessoal estou usando o acbrmail pra enviar email de mdfe pros motoristas, porem quando o cliente tem domínio próprio da erro smtp error unable to login ja testei de tudo e não da certo alguém tem alguma ideia do que pode ser estou usando dessa forma procedure TF_MDFe.btnEnviarEmailClick(Sender: TObject); var Mensagem: Tstrings; Assunto, Endereco: string; pdf : boolean; begin try try Configuracoes; ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Manifestos.LoadFromFile(ManifPATH_XML.AsString); mensagem := TStringList.Create; Endereco := ManifEMAIL_MOTORISTA.AsString; //especifique um email válido mensagem.add('Mdf-e emitida'); Assunto :='Envio de XML-MDF-e'; acbrmail1.Host := dm.EmpresaSERVER_SMTP_EMIT.AsString; acbrmail1.port := InttoStr(dm.EmpresaPORTA_SMTP_EMIT.AsInteger); acbrmail1.Username:= dm.EmpresaUSUARIO_EMAIL_EMIT.Text; acbrmail1.Password := dm.EmpresaSENHA_EMAIL_EMIT.Text; acbrmail1.From := dm.EmpresaUSUARIO_EMAIL_EMIT.Text; acbrmail1.AddAddress(ManifEMAIL_MOTORISTA.AsString); // acbrmail1.SetTLS := False; if dm.EmpresaSSL_ATIVO.AsString = 'S' then // SSL - Conexão Segura then begin acbrmail1.SetSSL := True end else begin acbrmail1.SetSSL := False; end; if dm.EmpresaENVIA_PDF.AsString = 'S' then begin pdf := true; end else begin pdf := false; end; ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) // ACBrMail1.FromName := dm.EmpresaSERVER_SMTP_EMIT.Text; ACBrMail1.FromName := dm.EmpresaUSUARIO_EMAIL_EMIT.Text; ACBrMDFe1.MAIL := ACBrMail1; ACBrMDFe1.Manifestos.Items[0].EnviarEmail( Endereco //Lista com emails que serão enviado cópias - TStrings ,Assunto ,mensagem ,pdf //Enviar PDF junto true não = false ,nil // Lista de anexos - TStrings ,nil //Pede confirmação de leitura do email ); Showmessage('Email enviado com sucesso ...'); finally Mensagem.Free; end; except on e: exception do begin Showmessage('Erro ao enviar Email ...'+ e.Message); end; end; end; Desde já grato pela ajuda
  20. Boa madrugada pessoal deu um problema no meu computador coisa pouca kkkkkk(deu pt no hd), e agora estou reinstalando tudo, instalei o acbrtrunk2 na instalação tudo normal porem ao rodar o delphi ele da esse erro(can't load package com praticamente todos os packages do acbr),já mexi de tudo que é jeito seguindo tutoriais como esse aqui https://regys.com.br/como-instalar-o-trunk2-do-acbr/#.WRUODGjyvIU ou esse http://showdelphi.com.br/como-instalar-eou-atualizar-o-acbr-trunk2/ mas invariavelmente da esse erro já copiei/registrei as dll's manualmente pras pastas e continua o mesmo problema alguém teria alguma ideia de como resolver isto desde já grato pela ajuda
  21. Boa tarde a todos estou com esse problema e é urgentíssimo webserver consulta status serviço -inativo ou inoperante tente novamente a conexão com o servidor foi reconfigurada URL:https://cte.svrs.rs.gov.br/ws/ctestatusservico/CTeStatusServico.asmx alguem poderia me dar uma ajuda pois ja atualizei o acbr e a pasta de schemas e nada
  22. reij

    Veiuclos de emitentes diversos

    bom dia a todos minha duvida é mais estrutural por que surgiu uma necessidade que até então não havia aparecido um cliente meu usa o mdfe normalsoque ele tem varias empresas e agora o caminhão principal que busca suas mercadorias foi pra oficina e ele tem outro caminhão de outra empresa mas pertencente ao mesmogrupo minha duvida é referente a numeração da mdfe como devo tratar isso -numeração separada pra cada empresa -posso deixar uma unica numeração pois numeraçpão de mdfe não importa pois não tem inutilização e senão tem inutilização não tem controle sobre o mesmo -coloco a outra empresa como agregada da primeira o que devo fazer? alguém ja passou por isso Desde já grato pela ajuda
  23. brother fiz um teste daquele jeito que ta acima e passou tem base
  24. Boa tarde pessoal alguém teria como me da uma força com esse erro pois estou pra ficar louco pq tenho que pulverizar o valor do imposto nos itens mais ja cacei la a tag que recebe o valor do imposto é não sei como fazer ta sempre dando esse erro valor do icms relativo ao fundo de combate à pobreza(FCP) da uf de destino difere do da somatória dos itens onde coloco esses valores pois até agora não encontrei hoje estou fazendo assim vBCUFDest := CNfeTOTAL.AsCurrency; vFCPUFDest := CNfeTOTAL.AsCurrency * pFCPUFDest / 100; vICMSUFDest := CNfeTOTAL.AsCurrency * (pICMSUFDest- pICMSInter)/100 * pICMSInterPart/100; if emit.CRT = crtRegimeNormal then begin vICMSUFRemet := CNfeTOTAL.AsCurrency * (pICMSUFDest- pICMSInter)/100 * (1-pICMSInterPart/100) end; //totaldo icms fcp Total.ICMSTot.vFCPUFDest := vFCPUFDest; Total.ICMSTot.vICMSUFDest := vICMSUFDest; Total.ICMSTot.vICMSUFRemet := 0.00; ta faltando pulverizar nos itens e comparar astotalizações alguém poderia me ajudar
  25. reij

    partilha de icms units

    Desculpe a ignorancia mais em qual tag ficam as tags de partilha de ICMS PICMSUFDEST,PICMSINTER...... dentro da tag imposto ja ja tentei acha elas mais não encontrei desde ja grato pela ajuda ja encontrei obrigado a todos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.