joemil

boa tarde pessoal, retomando o teste pra NF Com. alguem sabe me dizer se ja tem como "cadastrar" a empresa pra emissao da NFCom no MT? tem o link? por estas bandas ninguem sabe de nada

atualizei agora e deu certo. valeu. aguardando o usuario do sistema passar os dados pra iniciar os testes em homologacao

to usando assim: MinhaNFCom.NotasFiscais.Assinar; MinhaNFCom.NotasFiscais.GravarXML('.\nfcom2.xml'); MinhaNFCom.NotasFiscais.Validar; MinhaNFCom.Enviar(True);

o problema q to tendo aqui é se vc assinar, nao pode usar a procedure GerarXML, ta dando erro, por isso comentei essa linha mas pode usar o GarvarXML q funciona

atualizei novamente, mas ja tinha atualizado ontem (18/01). acho q ainda nao foi disponiblizad as alteracoes

agora sim hehehe agora so falta os links, eu tô testando com uma empresa do MT. ainda nao tenho ninguem do RS ou SC pra testar alguem ai tem o link pra MT? e onde devo alterar?

fui validar o xml no portal da nfcom, ta dando este erro: provavelmente pq nao gerou o qrCode. nas alteracoes, eu tirei a geracao da nota, depois q assina, e o codigo só é gerado apos a assinatura, pq da erro gerar a nota apos assinar

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.

pelos meus testes aqui, o problema esta em gerar o xml novamente depois q ele é assinado, mas parece q ta enviando normal este foi o retorno q recebi <retNFCom versao="1.00"> <tpAmb>2</tpAmb> <cUF>43</cUF> <verAplic>RS20230912133943</verAplic> <cStat>209</cStat> <xMotivo>Rejeição: IE do emitente inválida</xMotivo> </retNFCom> vou pegar uns dados originais pra enviar um xml de teste e tb quando manda validar, dá erro

tb to removendo esta unit. nao encontrei ela nos fontes

aqui onde ocorre o erro NFCom.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; NFCom.Configuracoes.Geral.SSLHttpLib := httpWinHttp; NFCom.Configuracoes.Geral.SSLLib := libWinCrypt; NFCom.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; NFCom.SSL.SSLType := LT_TLSv1_2;//LT_ALL;

bom dia pessoal, atualizei o ACBr, e nele tem a pasta ACBrNFCom, q o Ítalo disponibilizou, mas ainda nao ta completo. comecei a fazer uns testes nele, e tive q alterar o tipo do campo cClass de integer para String. agora ta gerando o XML e validando porem nao ta assinando este é o xml q to gerando nfcom.xml e este o código q to usando sPath := ExtractFilePath(ParamStr(0))+'NFCom'; NFCom := TACBrNFCom.Create(Self); DANFeCom := TACBrNFComDANFComClass.Create(Self); //NFCom.Configuracoes.Arquivos.DownloadDFe.; NFCom.Configuracoes.Arquivos.PathArquivoMunicipios := sPath+'/Municipios'; NFCom.Configuracoes.Arquivos.PathEvento := sPath+'/Eventos'; NFCom.Configuracoes.Arquivos.PathNFCom := sPath; NFCom.Configuracoes.Arquivos.PathSalvar := sPath+'/Salvar'; NFCom.Configuracoes.Arquivos.PathSchemas := sPath+'/Schemas'; NFCom.Configuracoes.Certificados.NumeroSerie := 'xxxxxx'; //4EC40C1EDC33DD22FB394B41CF3D005358E6BEAE'; NFCom.Configuracoes.Certificados.VerificarValidade := true; NFCom.Configuracoes.Geral.FormaEmissao := teNormal; NFCom.Configuracoes.Geral.CSC := 'tokencsc'; NFCom.Configuracoes.Geral.ExibirErroSchema := True; //NFCom.Configuracoes.Geral.FormatoAlerta := ''; NFCom.Configuracoes.Geral.IdCSC := 'idcsc'; NFCom.Configuracoes.Geral.IdentarXML := True; NFCom.Configuracoes.Geral.RetirarAcentos := True; NFCom.Configuracoes.Geral.Salvar := True; NFCom.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; NFCom.Configuracoes.Geral.SSLHttpLib := httpWinHttp; NFCom.Configuracoes.Geral.SSLLib := libWinCrypt; NFCom.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; NFCom.SSL.SSLType := LT_TLSv1_2;//LT_ALL; NFCom.Configuracoes.RespTec.CSRT := '';; NFCom.Configuracoes.RespTec.IdCSRT := 0; NFCom.Configuracoes.WebServices.Ambiente := taHomologacao; NFCom.Configuracoes.WebServices.IntervaloTentativas := 5; NFCom.Configuracoes.WebServices.Salvar := true; //NFCom.Configuracoes.WebServices.SSLType := LT_TLSv1_2; NFCom.Configuracoes.WebServices.Tentativas := 3; NFCom.Configuracoes.WebServices.TimeOut := 3000; NFCom.Configuracoes.WebServices.UF := ''; NFCom.Configuracoes.WebServices.Visualizar := True; NFCom.DANFCom := DANFeCom; NFCom.NotasFiscais.Clear; with NFCom.NotasFiscais.Add do begin with NFCom.Ide do begin cDV := 1; cMunFG := 5107909; cNF := 1; cUF := 51; dhCont := Now; dhEmi := Now; finNFCom := fnNormal; indCessaoMeiosRede := tiSim; {???} indNotaEntrada := tiNao; {???} indPrePago := tiNao; modelo := 62; nNF := 1; nSiteAutoriz := sa0; {???} //tpAmb := taHomologacao; //tpEmis := teNormal; 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 := '0495553xxxxxxx'; CRT := crtSimplesNacional; IE := '61161686917'; //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.xBairro :='bairro emitente'; EnderEmit.xCpl := ''; EnderEmit.xLgr := 'logradouro emitente'; EnderEmit.xMun := 'Sinop'; 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.xBairro :='bairro destinatario'; EnderDest.xCpl := ''; EnderDest.xLgr := 'logradouro destinatario'; EnderDest.xMun := 'Sinop'; 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 //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.infNFComSupl.qrCodNFCom := '1'; 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;; end; NFCom.NotasFiscais.GerarNFCom; NFCom.NotasFiscais.Assinar; NFCom.NotasFiscais.GravarXML('.\nfcom.xml'); NFCom.NotasFiscais.Validar; //NFCom.Cancelamento('justificativa', 1 {lote}); //NFCom.Consultar('chave', True); NFCom.Enviar(True); //NFCom.Gravar('filename', 'xml', 'path'); //NFCom.NotasFiscais.Imprimir; //NFCom.NotasFiscais.ImprimirPDF; // NFCom.SSL := LT_TLSv1_2; // NFCom.Status.; // NFCom.WebServices.Consulta.ArqEnv; // NFCom.WebServices.Consulta.ArqResp; {NFCom.WebServices.Enviar.; NFCom.WebServices.Retorno; NFCom.WebServices.StatusServico;} alguem mais ja iniciou os teste do componente?

bom dia pessoal, tb to a disposicao pra colaborar. parece q no RS ou em SC o prazo pra homologacao comeca em fevereiro/2024. ja ta bem na porta por enqto so usei um "conversor" de xml pra delphi class, mas tava parado. hj vou dar relembrada no q ja fiz aqui

bom dia pessoal, acho q me equivoquei no provedor da cidade de Redencao-PA o correto é: [1506138] ; Incluído em 03/03/2022 ; Atualizado em 20/06/2023 ; Atualizado em 07/12/2023 - Joemil Nome=Redencao UF=PA Provedor=Desenvolve Versao=2.03 ProRecepcionar=https://redencao-pa.desenvolvecidade.com.br/nfsd/IntegracaoNfsd?wsdl HomRecepcionar=https://hml-01-redencao-pa.desenvolvecidade.com.br/ é tanto provedor q to mexendo aqui, e preciso do suporte pra realizar os testes, ai demora um pouco pra confirmar desculpe pelo meu erro

aparentemente o WS nao ta funcionando corretamente https://coutomagalhaes.megasoftarrecadanet.com.br/coutomagalhaes/ws/nfseSOAP?wsdl ate aqui abre https://coutomagalhaes.megasoftarrecadanet.com.br to entrando em contato com o provedor

fiz a configuracao, mas faltou a versao [1706001] Nome=Couto Magalhaes UF=TO Versao=2.00 Provedor=Megasoft ProRecepcionar=https://coutomagalhaes.megasoftarrecadanet.com.br/coutomagalhaes/ws/nfseSOAP porem to recebendo esta msg de erro esse problema seria aqui no meu computador ou la no provedor?

bom dia pessoal, estou iniciando os testes para a cidade de Couto Magalhaes, no Tocantins [1706001] Nome=Couto Magalhaes UF=TO Provedor=Megasoft ProRecepcionar=https://coutomagalhaes.megasoftarrecadanet.com.br/coutomagalhaes/ws/nfseSOAP

olá pessoal, a cidade de redenção mudou de provedor. estamos iniciando os teste hj a tarde [1506138] ; Incluído em 03/03/2022 ; Atualizado em 20/06/2023 ; Atualizado em 22/11/2023 - Joemil Nome=Redencao UF=PA Provedor=MegaSoft Versao=2.00 ProRecepcionar=https://redencao.megasoftarrecadanet.com.br/redencao/ws/nfseSOAP ;ProRecepcionar=https://redencao-pa.desenvolvecidade.com.br/nfsd/IntegracaoNfsd ;HomRecepcionar=https://hml-01-redencao-pa.desenvolvecidade.com.br/nfsd/IntegracaoNfsd

ola pessoal, estamos iniciando os testes com o novo provedor da cidade de Juazeiro-BA, agora vai ser webiss (antes era sudoeste) [2918407] ; Atualizado em 24/08/2023 Nome=Juazeiro UF=BA Provedor=WebISS ProRecepcionar=https://juazeiroba.webiss.com.br/ws/nfse.asmx HomRecepcionar=https://homologacao.webiss.com.br/ws/nfse.asmx ;Provedor=Sudoeste ;Versao=2.02 ;ProRecepcionar=https://ws.juazeiro.ba.gov.br/webrun/webservices/NFEServices.jws?wsdl ; HomRecepcionar=https://homologacao.ws.juazeiro.ba.gov.br/webrun/webservices/NFEServices.jws?wsdl fizemos as alteracoes no .ini, e enviamos para o nosso cliente fazer os devidos credenciamentos e habilitar o ambiente de homologacao, mas ainda nao tivemos resposta do mesmo

valeu

bom dia pessoal, estou recebendo esta mensagem, na hora de validar o xml. aparentemente o ACBr ta adicionando um zero a mais na IE do emitente, e nao achei onde ta fazendo isso, pra remover e fazer novos testes. alguma dica? vou remover a validacao da IE pra ver o q acontece

bom dia, aparentemente somente do RS, mas resolvemos dar um pause no desenvolvimento dessa nota

eu tentei usar o mesmo Browser, passando o link direto, mas da erro de script usei este link: https://servicos.receita.fazenda.gov.br/Servicos/CPF/ConsultaSituacao/ConsultaPublica.asp mas nao alterei no componente, apenas peguei o form q tem o WebBrowser da consulta CNPJ. alguem ja ta mexendo alguma coisa? precisa de alguma ajuda?

testei aqui e funcionou, to usando Alexandria

sim, sim. o q eu quero dizer, é q quero gerar as tags, mesmo q estejam zeradas, de acordo com o CST. pq nos fontes do acbr esta assim: if (vBCST > 0) or (vValorST > 0) or .... (as tags sao so exemplos) then begin gera_tag_aqui end; entao se estao zeradas, elas nao so adicionadas ao XML