Painel de líderes

Olá Pessoal, É com grande alegria que informo a todos que já se encontra no SVN o componente ACBrNFCom. Para quem não sabe o que vem a ser NFCom, segue abaixo o texto copiado do Portal da SEFAZ-Virtual do Rio Grande do Sul. "O Projeto NFCom tem como objetivo a implantação de um modelo nacional de documento fiscal eletrônico (modelo 62) que venha substituir a sistemática atual de emissão da Nota Fiscal de Serviço de Comunicação/Telecomunicações (modelos 21 e 22), com validade jurídica garantida pela assinatura digital do emitente, simplificando as obrigações acessórias dos contribuintes e permitindo, ao mesmo tempo, o acompanhamento da emissão em tempo real pelo Fisco." Foi enviado para o SVN, os fontes do componente, os pacotes de instalação para o Delphi e Lazarus e o programa exemplo para o Delphi. O que falta a ser feito: o programa exemplo para o Lazarus e a instalação do componente via ACBrInstall. Enquanto não for liberado uma nova versão do ACBrInstall a instalação do componente vai ter que ser via pacote. Como eu não tenho um certificado digital de um prestador de serviço de comunicação/telecomunicações os testes ficam prejudicados. Detalhe importante: Na pagina que trata o NFCom no Portal da SEFAZ-Virtual do Rio Grande do Sul não consta ainda o manual com o layout do DANFCom, sendo assim não foi possível implementar o componente de geração do Documento Auxiliar da NFCom. Convido a todos que tenham interesse nesse componente, instalar e fazer os testes. Ficaremos felizes em receber melhorias e correções nos fontes do componente.

Bom dia Joemil, Muito obrigado pela sua colaboração, já inclui na minha lista de tarefas para analisar as suas alterações.TK-2951 Se tudo der certo ainda hoje estarei enviando para o SVN os fontes atualizados, bem como os pacotes de instalação Delphi e Lazarus. O programa exemplo feito em Delphi. O programa exemplo feito em Lazarus vai ficar para semana que vem.

Olá pessoal! Foi publicada no dia 18/01/2024 comunicado no portal do SPED informando sobre a versão 10.0.1 do programa ECF utilizado para transmitir arquivos do ano-calendário 2023 e situações especiais de 2024(registro 10). A nova versão trás as seguintes atualizações: Fonte: http://sped.rfb.gov.br/pagina/show/7318

Boa Tarde. estou homologando o BancoC6 pela primeira vez em meu sistema. pude observar que no create da AcbrBancoC6.pas a propriedade fpTamanhoConta esta recebendo o valor 7. o meu cliente tem o tamanho de conta com 8 digitos, assim quando envio a remessa esta cortando o ultimo digito. no manual de remessa e retorno do banco o tamanho desse campo é 12.

Bom dia pessoal, com base na documentação disponibilizada pelo Inter https://developers.inter.co/references/cobranca-bolepix#tag/Cobranca fiz algumas alterações nos fontes para que seja possível a emissão, consulta e cancelamento dos boletos via API Segue os fontes modificados, está com comentários com o as alterações dentro dos próprios fontes, tanto o que retirei quanto o que acrescentei. Qualquer outra dúvida estou a disposição ACBrBoletoRet_Inter_API.pas ACBrBoletoW_Inter_API.pas ACBrBoletoWS.pas ACBrBoletoWS.Rest.pas ACBrBoleto.pas

Já foi sim. Já tem o pacote para Delphi e o programa exemplo: Ainda falta o DANFCom e colocar no instalador.

Olá pessoal. No dia 19/01/2024 foi publicado um comunicado informando que foi corrigido o código de receita 938501 para o 938502 da natureza de operação 14008 ((Importâncias correspondentes a multas e qualquer outra vantagem, ainda que a título de indenização, em virtude de rescisão de contrato). Quem fez um envio do evento R-4010, precisará enviar um evento de retificação para que o evento seja corretamente processado, gerando assim um novo recibo de consulta. Fonte: http://sped.rfb.gov.br/pagina/show/7320

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

a ACBrLib, ainda tem dependências gráficas (devido o gerador de relatórios FortesReport) Veja um tópico que fala como contornar isso no Linux

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Boa tarde, Criada a TK-5016 para avaliação. Obrigado pela contribuição

Notei que se eu passar o XML com alguma tag incorreta ou o caminho errado ele nao gera erro Passando certo aceitou Mas ai me surge a duvida como irei Carregar o XML para o componente validar ? minha pergunta surge por que nao encontrei onde pego a respostar do CarregarXML [resolvido] o componente somente nao anexa caso exista erro estrutural ou seja se for erro de tags ele aceita carregar para Validar na sequencia

Somente para dar um retorno aqui. O problema era o PinPad do cliente. Tem uma série de PinPad da Getnet que saiu com problemas. A Getnet enviou outro Pinpad. Foi só trocar o mesmo que conseguimos instalar e funcionou na hora. Gilson S.

Você vai precisar modificar o método TACBrNFeDANFEClass.ManterVeiculos da unit ACBrNFeDANFeClass.pas, já deve alterar em todos os DANFE. O MOC não diz em qual ordem deve ser impressa, no ACBr está na mesma ordem que vem no XML, e como você mesmo disse, é preciosismo do usuário, não tem razão pra alterar no componente.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia, Juliomar, vou revisar esse código e atualiza aqui, obrigado.

Bom dia Juliomar, muito obrigado pelas dicas, fiz exatamente como você sugeriu nos passos 35 e 36, 37 e 38, e por fim, 51. No log gravou a confirmação no 36, no 38 cancelamento manual e no 51 a queda de energia, espero que agora tenha ficado certo, vou encaminhar para a Setis avaliar. Muito obrigado pela ajuda. Bom dia Daniel, verifiquei este post, mas ele ajuda somente para o componente ACBrTEFAPI, e estou utilizando o ACBrTEFD que achei mais simples de desenvolver. Mesmo assim, obrigado pela ajuda.

Resolvido, nada como ler as notas técnicas.

Bom dia @econdotta, Esse IF que você comentou antes não tinha a condição: StringIsXML(FPRetorno). Mesmo com ela ocorre o erro?

pessoal, eu nao tenho ninguem no RS ou SC pra fazer os testes, mas aparentemente ta funcionando. só os probleminhas acima q nao resolvi ainda vou enviar as alteracoes q fiz aqui, caso alguem queira testar ACBrNFCom.rar to usando o código abaixo pra gerar a nota procedure TForm40.Button1Click(Sender: TObject); var MinhaNFCom: TACBrNFCom; //DANFeCom: TACBrNFComDANFComClass; sPath: String; begin sPath := ExtractFilePath(ParamStr(0))+'NFCom'; MinhaNFCom := TACBrNFCom.Create(Self); //DANFeCom := TACBrMinhaNFComDAMinhaNFComClass.Create(Self); //MinhaNFCom.DAMinhaNFCom := DANFeCom; MinhaNFCom.Configuracoes.Arquivos.PathArquivoMunicipios := sPath+'/Municipios'; MinhaNFCom.Configuracoes.Arquivos.PathEvento := sPath+'/Eventos'; MinhaNFCom.Configuracoes.Arquivos.PathNFCom := sPath; MinhaNFCom.Configuracoes.Arquivos.PathSalvar := sPath+'/Salvar'; MinhaNFCom.Configuracoes.Arquivos.PathSchemas := sPath+'/Schemas'; MinhaNFCom.Configuracoes.Certificados.NumeroSerie := 'xxxx'; MinhaNFCom.Configuracoes.Certificados.Senha := 'xxxx'; MinhaNFCom.Configuracoes.Certificados.VerificarValidade := true; MinhaNFCom.Configuracoes.Geral.FormaEmissao := teNormal; MinhaNFCom.Configuracoes.Geral.CSC := 'tokencsc'; MinhaNFCom.Configuracoes.Geral.ExibirErroSchema := True; //MinhaNFCom.Configuracoes.Geral.FormatoAlerta := ''; MinhaNFCom.Configuracoes.Geral.IdCSC := 'idcsc'; MinhaNFCom.Configuracoes.Geral.IdentarXML := True; MinhaNFCom.Configuracoes.Geral.Salvar := True; MinhaNFCom.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; MinhaNFCom.Configuracoes.Geral.SSLHttpLib := httpWinHttp; MinhaNFCom.Configuracoes.Geral.SSLLib := libWinCrypt; MinhaNFCom.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; //xsLibXml2; MinhaNFCom.Configuracoes.Geral.RetirarAcentos := True; MinhaNFCom.SSL.SSLType := LT_TLSv1_2;//LT_ALL; MinhaNFCom.Configuracoes.RespTec.CSRT := ''; MinhaNFCom.Configuracoes.RespTec.IdCSRT := 0; MinhaNFCom.Configuracoes.WebServices.Ambiente := taHomologacao; MinhaNFCom.Configuracoes.WebServices.IntervaloTentativas := 5; MinhaNFCom.Configuracoes.WebServices.Salvar := true; //MinhaNFCom.Configuracoes.WebServices.SSLType := LT_TLSv1_2; MinhaNFCom.Configuracoes.WebServices.Tentativas := 3; MinhaNFCom.Configuracoes.WebServices.TimeOut := 3000; MinhaNFCom.Configuracoes.WebServices.UF := ''; MinhaNFCom.Configuracoes.WebServices.Visualizar := True; MinhaNFCom.NotasFiscais.Clear; with MinhaNFCom.NotasFiscais.Add do begin with NFCom.Ide do begin cDV := 1; cMunFG := 5107909; cNF := 1; cUF := 51; //dhCont := Now; dhEmi := Now; finNFCom := fnNormal; indPrePago := tiNao; modelo := 62; nNF := 1; indCessaoMeiosRede := tiSim; {???} indNotaEntrada := tiNao; {???} nSiteAutoriz := sa0; {???} NFCom.Ide.tpFat := tfNormal; NFCom.Ide.verProc := '1.00'; end; //NFCom.Ide.xJust := 'nada a informar'; NFCom.infNFCom.ID := '1'; NFCom.infNFCom.Versao := 1.00; with NFCom.Emit do begin CNPJ := 'xxxx'; CRT := crtSimplesNacional; IE := 'xxx'; //IEUFDest := ''; xFant := 'NOME FANTASIA EMISSOR'; xNome := 'RAZAO SOCIAL EMISSOR'; EnderEmit.CEP := 78555000; EnderEmit.cMun := 5107909; EnderEmit.email := '[email protected]'; EnderEmit.fone := '66123123123'; EnderEmit.nro := '123'; EnderEmit.UF := 'MT'; EnderEmit.xCpl := ''; EnderEmit.xLgr := 'logradouro emitente'; EnderEmit.xMun := 'Sinop'; EnderEmit.xBairro :='bairro emitente'; end; with NFCom.Dest do begin CNPJCPF := '34589014009'; //IE := ''; //IM := '123456'; indIEDest := inNaoContribuinte; xNome := 'TESTE DE NOTA FISCAL'; idOutros := ''; EnderDest.CEP := 78555000; EnderDest.cMun := 5107909; EnderDest.email := '[email protected]'; EnderDest.fone := '66987987987'; EnderDest.nro := '987'; EnderDest.UF := 'MT'; EnderDest.xCpl := ''; EnderDest.xLgr := 'logradouro destinatario'; EnderDest.xMun := 'Sinop'; EnderDest.xBairro :='bairro destinatario'; end; with NFCom.assinante do begin cUFPrinc := 56; dContratoFim := Now; dContratoIni := Now; iCodAssinante := '123'; nContrato := '12345'; NroTermPrinc := ''; tpAssinante := taResidencial; tpServUtil := suAcessoInternet; {with NFCom.assinante.TermAdic.new do begin cUFAdic := 96; NroTermAdic := ''; end;} end; with NFCom.Det.New do begin nItem := 1; //chNFComAnt := ''; {Imposto.COFINS; Imposto.FUNTTEL; Imposto.FUST; Imposto.ICMS; Imposto.ICMSUFDest; Imposto.PIS;} //infAdProd := ''; Prod.cClass := '0100401'; // https://dfe-portal.svrs.rs.gov.br/NFCOM/tabelacclass Prod.CNPJLD := ''; Prod.cProd := '1234'; Prod.indDevolucao := tiNao; {???} Prod.qFaturada := 1; Prod.uMed := umMB; Prod.vDesc := 0; Prod.vItem := 10; Prod.vOutro := 0; Prod.vProd := 10; Prod.xProd := 'DESCRICAO DO SERVICO'; end; NFCom.infRespTec.CNPJ := '37848330000141'; NFCom.infRespTec.email := '[email protected]'; NFCom.infRespTec.fone := '66123456789'; NFCom.infRespTec.hashCSRT := 'asfafafdasf'; NFCom.infRespTec.idCSRT := 1; NFCom.infRespTec.xContato := 'contato resptec'; NFCom.Total.vBC := 10; NFCom.Total.vCOFINS := 0; NFCom.Total.vDesc := 0; NFCom.Total.vFCP := 0; NFCom.Total.vFUNTTEL := 0; NFCom.Total.vFUST := 0; NFCom.Total.vICMS := 0; NFCom.Total.vICMSDeson := 0; NFCom.Total.vIRRF := 0; NFCom.Total.vNF := 10; NFCom.Total.vOutro := 0; NFCom.Total.vPIS := 0; NFCom.Total.vProd := 10; NFCom.Total.vRetCOFINS := 0; NFCom.Total.vRetCSLL := 0; NFCom.Total.vRetPIS := 0;; //NFCom.infNFComSupl.qrCodNFCom := MinhaNFCom.GetURLQRCode(51, taHomologacao, teNormal, ; end; MinhaNFCom.NotasFiscais.GerarNFCom; //AssinarXML; //MinhaNFCom.NotasFiscais.LoadFromFIle('.\nfcom.xml'); MinhaNFCom.NotasFiscais.Assinar; MinhaNFCom.NotasFiscais.GravarXML('.\nfcom2.xml'); //MinhaNFCom.NotasFiscais.Validar; //MinhaNFCom.Cancelamento('justificativa', 1 {lote}); //MinhaNFCom.Consultar('chave', True); MinhaNFCom.Enviar(True); //MinhaNFCom.Gravar('filename', 'xml', 'path'); //MinhaNFCom.NotasFiscais.Imprimir; //MinhaNFCom.NotasFiscais.ImprimirPDF; // NFCom.Status.; // NFCom.WebServices.Consulta.ArqEnv; // NFCom.WebServices.Consulta.ArqResp; {NFCom.WebServices.Enviar.; NFCom.WebServices.Retorno; NFCom.WebServices.StatusServico;} ShowMessage('OK'); end; se alguem tiver os links pro MT (e para as outras UFs tb), me envia q ja vou fazer os testes.

Boa tarde! Neste tópico tem as configurações de e-mail recomendada para os principais provedores do mercado. Por favor, veja se lhe é útil:

Olá pessoal, neste tópico vamos falar sobre o uso dos cartões Banrisul no TEF PayGo. É importante lembrar que: Banricompras à Vista = É uma transação de Débito à Vista na Bandeira Banricompras. Banricompras Pré-Datado = É uma transação de Débito Pré-Datado na Bandeira Banricompras. Não é um parcelamento e sim um único débito agendado para um prazo definido que pode variar entre 5 até 60 dias (parcela única). Banricompras Parcelado = É uma transação de Débito em 2 ou mais parcelas, na Bandeira Banricompras. Normalmente é usado entre 2 a 12 parcelas com débito a cada 30 dias. É semelhante ao Pré-Datado, só que é mais de 1 débito agendado. Mas é importante lembrar que não é uma transação de Crédito. Devido grande demanda dos pedidos de TEF no Estado Rio Grande do Sul... muitos estabelecimentos utilizam o cartão Banrisul e este tipo de cartão é bem especifico na região... Para que a automação possa utilizar este tipo de cartão nas transações TEF pela PayGo, precisamos seguir alguns passos, como por exemplo: 1 - Transacionar apenas na opção débito.. 2 - Essa transação débito, ela pode ser à vista ou pré-datado. E como vamos fazer isso utilizando os componentes ACBrTEFD e ACBrTEFAPI ? Começando pelo componente ACBrTEFD: Exemplo Débito à vista: procedure InformarParametrosCartaoDebito; begin // Instruindo CRT a apenas transações de Débito if (ACBrTEFD1.GPAtual = gpPayGoWeb) then begin ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]:='02'; //02: débito ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE]:='01'; //01: à vista end else if (ACBrTEFD1.GPAtual = gpCliSiTef) then ACBrTEFD1.TEFCliSiTef.OperacaoCRT := 2; end; Exemplo Débito Pré-datado: procedure InformarParametrosCartaoDebito; begin // Instruindo CRT a apenas transações de Débito if (ACBrTEFD1.GPAtual = gpPayGoWeb) then begin ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]:='02'; //02: débito ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE]:='08'; //08: pré-datado end else if (ACBrTEFD1.GPAtual = gpCliSiTef) then ACBrTEFD1.TEFCliSiTef.OperacaoCRT := 2; end; Agora utilizando o componente ACBrTEFAPI, temos duas formas de informar os parâmetros, uma opção é usar a Function EfetuarPagamento: Exemplo Débito à vista: ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao), AValor, tefmpCartao, teftcDebito, tefmfAVista); Exemplo Débito Pré-datado: ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao), AValor, tefmpCartao, teftcDebito, tefmfPredatado); Outra opção é usar um TypeCast e inserir as propriedades diretamente na classe de TEF: Exemplo Débito à vista: if ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb then begin with TACBrTEFAPIClassPayGoWeb(ACBrTEFAPI1.TEF) do begin TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE] := '2'; // Tipo Cartão: Débito TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE] := '1'; // Modalidade de financiamento da transação: À vista end; end; Exemplo Débito Pré-datado: if ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb then begin with TACBrTEFAPIClassPayGoWeb(ACBrTEFAPI1.TEF) do begin TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE] := '2'; // Tipo Cartão: Débito TEFPayGoAPI.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE] := '8'; // Modalidade de financiamento da transação: Pré-datado end; end; Qualquer dúvida nos procure nos canais do Discord.. Até a próxima

Boa tarde Adailson, As informações sobre seguro esta presente somente na versão 3.00 do MDF-e. Essas informações são opcionais, mas podemos informar. Conforme consta na página 106 da Nota Técnica que traz a nova estrutura do XML, note que o grupo <Seg> pode se repetir n vezes, sendo assim você pode informar os dados dos diversos seguros caso existam mais do que UM.