tiago.rizzon

Bom dia Ítalo! Segue a unit alterada. A alteração da divisão da alíquota por 100, no provedor Thema, funcionou para a cidade de Lajeado/RS. Quanto as demais cidades atendidas pelo Thema, não sei dizer no momento se a alíquota tbm deve ser dividida ou não. Path anexo: ...\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Provedores Abração! Thema.GravarXml.pas

Boa tarde! Eu estava com problema no envio da alíquota (...Servico.Valores.Aliquota) para o provedor Thema, referente ao município de Lajeado/RS. A alíquota precisa ser dividida por 100 no XML (<Aliquota>0.0433</Aliquota>) Encontrei a correção conforme outro tópico respondido pelo colega Ítalo. Inclui a uses ACBrXmlBase na unit Thema.GravarXml.pas e na procedure Confuguração inclui a linha DivAliq100 := True; É possível colocar essa alteração ao SVN? Não sei se a solução é essa alteração no fonte ou se existe alguma propriedade q eu não alterei! Obrigado!

boa tarde companheiro! Sabe me dizer se o Thema de Santa Cruz está com alguma instabilidade nesses últimos dias? (ontem e hoje)

Boa tarde companheiros! Alguém poderia me dar algumas aulas de Fortes Report, preciso aprender a fazer impressão com registro pai (ordem de serviço) e registros filhos (itens: 1 - Produtos, 2 - Serviços, 3 - Serviços de terceiros). São 4 ClientDataSet's... cdsOrdens (pai, campo código PK) cdsProdutos, cdsServicos, cdsServTerc... (todos com campo OrdemCod FK) Tenho um exemplo, no print, mas fiz da maneira q eu consegui, acho que não deve ser a maneira correta. Quero o mesmo resultado, porem, fazendo da maneira correta. Valor a combinar, pagamento via depósito... Desde já agradeço!!!! Tiago, email: [email protected] whats: (54) 9 8449.9193

Boa tarde companheiros programadores! Alguém poderia me indicar um modem para que eu possa enviar mensagens SMS usando o componente ACBrSMS? (marca e modelo que vcs sabem que funciona normalmente com o componente!) Atualmente eu utilizo um serviço pago, via webservice, e venho cobrando dos clientes um valor mensal um tanto alto alem da mensalidade, referente a quantidade de mensagens que eles enviam (os clientes não reclamam, no entanto eu gostaria de melhorar essa questão, baratear) Desde já agradeço pela atenção dos colegas! Abraço, Tiago.

Amigo Jacinto, vi tua resposta agora e irei testar. Desde já agradeço a sua ajuda! Abraço, boa semana!

up...

Boa tarde! Estou com dificuldade de homologar os boletos da caixa, tanto para manual SIGCB e manual SICOB. O problema está no layout de impressão. O código de barras não fica na posição correta. Estou usando o Fortes Report. Como eu faço para baixar o código de barras para 5mm do fim da folha/página? Os companheiros que já utilizam o componente para cobranças da Caixa precisaram fazer esse ajuste na homologação? (só a Caixa está incomodando com essa questão do posicionamento do cód. barras. Os demais bancos, nenhum pediu/"obrigou" a impressão no posicionamento de 5mm.... Desde já agradeço pela ajuda. Abraço!

Bom dia Guilherme! Sabe me dizer se já foi implementado o provedor da Infisc no ACBrNFSe? Vou ter de fazer para a cidade de Farroupilha, caso já tenha no componente facilita! Do contrário estou disposto a implementar. Obrigado pela atenção! Abraço.

Boa tarde companheiro! Aproveitando o teu tópico para acrescentar mais dúvidas... Tbm estou com problemas para homologar os boletos da Caixa, conforme o manual SICOB. Utilizei o ACBrBoleto com suas rotinas comuns (não fiz alterações), e, ao homologar recebi a seguinte recusa: 1. O código de barras precisa esta mais próximo do rodapé, os Bancos exigem isso para o caixa na hora de receber não precise cortar a folha para passar na leitora. 2. Você precisa gerar nove amostras sendo que o digito verificador precisa ser do 1 ao 9. 3. Verifica também o leiaute porque o campo nosso numero me parece ter números a mais. É o gerente de conta do meu cliente que está intermediando a análise dos boletos. Eu envio o arquivo de remessa e os boletos em PDF para que o mesmo encaminhe ao setor responsável, diferente dos outros bancos, que na minha opnião são muito mais legíveis ao apontar os erros, mais mastigados para um programador como eu q não tem tanta experiência em boletos! Pergunta: para homologação da caixa existe algum email direto com a área responsável? E respondendo a pergunta do nosso amigo jmcsoftware, eu utilizo a impressão e pdf dos boletos (fortes) e nenhum banco reclamou, exceto pela posição do código de barras q deve ficar a 5mm do fim da folha... porem isso pode ser levado já cortado ao banco ou se impresso em outro tamanho de folha tbm se resolve... Aos amigos q já utilizam boletos da caixa em suas aplicações e puderem nos dar uma luz, toda ajuda é bem vinda. Obrigado, abraço!

Já tentou pausar o antí-vírus e rodar o programa? (às vezes, quando faço projetos novos, para testes de rotinas mesmo... Meu antí-vírus fecha e exclui o executável criado)

Oi pessoal, boa tarde! Minha dúvida é referente ao preenchimento da tag nFCI. Devo inserir esses dados nas informações adicionais do produto ou existe um propriedade no componente ACBrNFe que cria a tag no xml (se preenchida) ? Outra dúvida, O campo FCI deve ser adicionado ao cadastro do produto, e puxar essa informação ao adicioná-lo na nf, está correto? É correto criar um campo no cadastro do produto para salvar o "custo de importação", para posterior uso no preenchimento da nf-saída? Desde já agradeço! Abraço!

Boa tarde companheiros! Via programação, como preencho/informo a tag nFCI ? Prod.FCI ou infAdProd (não sei onde informar e nem o "endereço" da propriedade) Agradeço desde já!

Certo! Vou tentar assim! Obrigado Juliana.

Boa tarde companheiros! Qual e-mail vcs utilizam para enviar a remessa de homologação do banco do brasil? Estou utilizando [email protected], mas, o banco raramente responde! E quando responde é para informar que o protoloco de atendimento expirou o prazo e precisa efetuar novo chamado! q lindo! rsrs Desde já agradeço!

Obrigado aos dois companheiros pelas dicas! Abraço!

Boa tarde companheiros! Estou incluindo nos meus sistemas a geração de boletos, usando ACBrBoleto... Ainda estou estudando o demo. Dúvida: Como é o funcionamento básico para geração do boleto (pode ser resumido)! ? Eu acredito que o programa deva gerar o arquivo de remessa e enviar para o banco, certo? Como se faz essa comunicação? é por web service ou ftp? Como é "adquirido" ou "baixado" o arquivo de retorno? O sistema precisa estar online para gerar boletos? São dúvidas bem iniciantes, acredito que seja fácil prá vcs me ajudarem! Qualquer dica é bem vinda! Obrigado, abraço!!

vlw Italo, era este mesmo o problema! Eu tava com bug no prog. Enviava a discriminação mas limpava a variável no percurso!! (derrr) Abraço!

Boa noite aos companheiros! Estou começando NFSe (primeiro desenvolvimento), e, não estou conseguindo testar o DEMO ACBrNFSe. A nota é para cidade de Ponta Grossa / PR. O provedor é o FintelISS. Os passos que estou fazendo são: Executo de demo, clico no botão Gerar RPS. Informo o número 5. Em seguida clico no botão Gerar e Enviar a NFSe, informando o RPS 5. Aparece o seguinte erro: Falha na validação do lote1 "violates minLength constraint of '1'. The element {http://iss.pontagrossa.pr.gov.br/Arquivos/nfse.xsd}Discriminacao' with value '' failed to parse. Verifiquei no xml, a tag Discriminacao estava assim: <Discriminacao/> (nada mais! me parece "quebrada") o correto não seria assim -> <Discriminacao>descricao do servico</Discriminacao> ? Eu mudei no xml para testar e deu o mesmo erro! Repetindo, como sou novato, não sei oq estou fazendo de errado! Toda ajuda é bem vinda! Abraço!

boa tarde amigos! Sou novato em nota eletrônica, ainda no primeiro sistema. tenho a seguinte rotina em teste, de pesquisas q juntei pela internet. um pouco num site, pouco no outro... acho q meus códigos ainda estam incompletos... a rotina de verificar status do serviço está ok, em operação, ou seja, deve estar tudo certo no certificado, senha, dlls... na rotina abaixo, a msg de erro é classe não registrada. o erro ocorre em Nota1.NotasFiscais.Assinar; se alguém puder ajudar, acredito ser fácil prá vcs! rsrs desde já agradeço. //nota1 é meu TACBrNFe Nota1.NotasFiscais.Clear; Nota1.NotasFiscais.Add.NFe.Ide.cNF := StrToInt('1500'); Nota1.NotasFiscais.Add.NFe.Ide.natOp := 'VENDA PRODUCAO DO ESTAB.'; Nota1.NotasFiscais.Add.NFe.Ide.indPag := ipVista; Nota1.NotasFiscais.Add.NFe.Ide.modelo := 55; Nota1.NotasFiscais.Add.NFe.Ide.serie := 1; Nota1.NotasFiscais.Add.NFe.Ide.nNF := StrToInt('0001'); Nota1.NotasFiscais.Add.NFe.Ide.dEmi := Date; Nota1.NotasFiscais.Add.NFe.Ide.dSaiEnt := Date; Nota1.NotasFiscais.Add.NFe.Ide.hSaiEnt := Now; Nota1.NotasFiscais.Add.NFe.Ide.tpNF := tnSaida; Nota1.NotasFiscais.Add.NFe.Ide.tpEmis := teNormal; Nota1.NotasFiscais.Add.NFe.Ide.tpAmb := taHomologacao; Nota1.NotasFiscais.Add.NFe.Ide.verProc := '1.0.0.0'; // Nota1.NotasFiscais.Add.NFe.Ide.cUF := ;;; Nota1.NotasFiscais.Add.NFe.Ide.cMunFG := 7777777; Nota1.NotasFiscais.Add.NFe.Ide.finNFe := fnNormal; //dados do emitente Nota1.NotasFiscais.Add.NFe.Emit.CNPJCPF := '00000000000000'; Nota1.NotasFiscais.Add.NFe.Emit.xNome := 'Minha empresa Ltda'; Nota1.NotasFiscais.Add.NFe.Emit.xFant := 'Nome fantasia'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xLgr := 'Meu endereço'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.nro := '0123'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xBairro := 'Meu bairro'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.cMun := 7777777; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xMun := 'Minha cidade'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.UF := 'UF'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.CEP := 88888888; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.cPais := 1058; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xPais := 'Brasil'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.fone := '00000000000'; Nota1.NotasFiscais.Add.NFe.Emit.CRT := crtSimplesNacional; //dados do destinatário Nota1.NotasFiscais.Add.NFe.Dest.CNPJCPF := '00000000000'; Nota1.NotasFiscais.Add.NFe.Dest.xNome := 'Nome destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xLgr := 'Endereço destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.nro := '0123'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xBairro := 'Bairro destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.cMun := 7777777; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xMun := 'Cidade destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.UF := 'UF'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.CEP := 88888888; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.cPais := 1111; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xPais := 'Brasil'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.fone := '07000000000'; //produtos with Nota1.NotasFiscais.Add.Nfe.Det.Add do begin Prod.nItem := 1; //nº item Prod.cProd := '123456'; Prod.cEAN := '1234567890123'; Prod.xProd := 'Nome do produto vendido'; Prod.NCM := '94051010'; Prod.EXTIPI := ''; Prod.CFOP := '5101'; Prod.uCom := 'UN'; Prod.qCom := 1 ; Prod.vUnCom := 100; Prod.vProd := 100 ; Prod.cEANTrib := ''; Prod.uTrib := 'UN'; Prod.qTrib := 1; Prod.vUnTrib := 100; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vDesc := 0; infAdProd := 'Informação adicional do produto'; with Imposto.ICMS do begin CST := cst00; orig := oeNacional; modBC := dbiValorOperacao; vBC := 100; pICMS := 18; vICMS := 18; modBCST := dbisMargemValorAgregado; pMVAST := 0; pRedBCST:= 0; vBCST := 0; pICMSST := 0; vICMSST := 0; pRedBC := 0; end; with Imposto.IPI do begin CST := ipi99; clEnq := '999'; CNPJProd := ''; cSelo := ''; qSelo := 0; cEnq := ''; vBC := 100; qUnid := 0; vUnid := 0; pIPI := 5; vIPI := 5; end; end; //totais da nota with Nota1.NotasFiscais.Add.NFe do begin Total.ICMSTot.vBC := 100; Total.ICMSTot.vICMS := 18; Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := 100; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := 100; end; //transportadora with Nota1.NotasFiscais.Add.NFe do begin Transp.modFrete := mfContaEmitente; Transp.Transporta.CNPJCPF := ''; Transp.Transporta.xNome := ''; Transp.Transporta.IE := ''; Transp.Transporta.xEnder := ''; Transp.Transporta.xMun := ''; Transp.Transporta.UF := ''; Transp.veicTransp.placa := ''; Transp.veicTransp.UF := ''; Transp.veicTransp.RNTC := ''; end; //envia NFe Nota1.NotasFiscais.GerarNFe; Nota1.NotasFiscais.Assinar; Nota1.Enviar(0, False); Abraço!

Obrigado pela dica amigo, estive estudando a cadeia de certificados! rsrs na verdade eu nem sabia oq era 'cadeia de certificados'. esta semana vou no cliente testar, posto a resposta caso funcione... ou não! rsrs Abraço! obrigado!

Boa tarde a todos! estou tendo o seguinte problema, acredito que vcs podem me ajudar... quando vou testar o status do serviço da nfe, a mensagem inativo ou inoperante é exibida... e tbm o conjunto de chaves não existe. tenho as dlls capicom instaladas corretamente e tbm as dlls openssl. o certificado digital tbm está instalado, até reinstalei. no meu notebook, funciona normal, assina a nota. no computador do cliente é q este erro ocorre. e em ambos, está tudo instalado corretamente. alguém tem uma dica? desde já agradeço. obrigado!

Amigo Regys, muito obrigado! Resolveu o meu problema.

Boa tarde amigos! No seguinte código, orNormal não está identificado, deve ser preciso adicionar unit ao uses, no entanto, não sei qual! rsrs ACBrETQ1.ImprimirBarras(orNormal, 'D', '1', '2', 20, 50, '7890552052472', 90); É impressão de etiquetas com argox 214 plus. Desde já agradeço a todos! Obrigado. Até ++

Amigo anfm, muito obrigado pela pronta disposição, resolveu o meu problema. Abraço, boa semana!