Ir para conteúdo
  • Cadastre-se

joemil

Membros
  • Total de ítens

    377
  • Registro em

  • Última visita

1 Seguidor

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

joemil's Achievements

  1. atualizei agora e deu certo. valeu. aguardando o usuario do sistema passar os dados pra iniciar os testes em homologacao
  2. to usando assim: MinhaNFCom.NotasFiscais.Assinar; MinhaNFCom.NotasFiscais.GravarXML('.\nfcom2.xml'); MinhaNFCom.NotasFiscais.Validar; MinhaNFCom.Enviar(True);
  3. 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
  4. atualizei novamente, mas ja tinha atualizado ontem (18/01). acho q ainda nao foi disponiblizad as alteracoes
  5. 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?
  6. 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
  7. 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.
  8. 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
  9. tb to removendo esta unit. nao encontrei ela nos fontes
  10. 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;
  11. 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?
  12. 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
  13. 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
  14. 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
  15. 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?
×
×
  • 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.