Pesquisar na Comunidade

Boa tarde galera Alguém conseguiu importar o WSDL do grupo Pão de Açúcar para enviar as notas fiscais? https://servicos-homolog.cbdnet.com.br/nfeService/nfePort?wsdl Tentei aqui, mas meu Delphi não está importando legal, fica com uns tipos indefinidos, gerando erros na compilação. OBS. Desculpem se não for o fórum certo para a dúvida, mas como uso o ACBR para transmitir as notas pode ser que mais alguém tenha passado por isso. Agradeço pela atenção.

Olá, eu ando tendo dificuldades com envio de NFSe's e NFe's de Gravataí pois não encontro os links WSDL. Já tentei contactar o desenvolvedor e verificar manuais e páginas da prefeitura e do portal da cidade, porém tudo que achei foram links em PHP: url_send=http://sync.nfs-e.net/datacenter/include/nfw/importa_nfw/nfw_import_upload.phpurl_view=http://sync.nfs-e.net/datacenter/include/nfw/importa_nfw/nfw_import_view_nf.phpurl_login=http://sync.nfs-e.net/datacenter/include/nfw/importa_nfw/nfw_import_login.php As demais cidades com as quais trabalho usam links WSDL e disponibilizam os mesmos sem nenhum incomodo no site das respectivas prefeituras, como por exemplo Esteio: http://grp.esteio.rs.gov.br/nfse/services/NFSEremessa?wsdl Alguém saberia me informar os links desse tipo para Gravataí, ou como utilizar estes de php?

Boa tarde a todos, Estou tentando consumir o webservice do Rio de Janeiro para emissão de Guias do GNRe mas venho tendo um pouco de dificuldade. O que estou fazendo: procedure TFrmPrincipal.GerarRJ; const url_rj:string='http://www1.fazenda.rj.gov.br/projetoGCTBradesco/br/gov/rj/sef/gct/webservice/GerarDocumentoArrecadacaoWS.jws?WSDL'; codigo_produto:integer=469; { 469 - Produtos alimentícios } var idx:integer; wsrjEmit:WSGnreRJ.Emitente; wsrjDocs:WSGnreRJ.ArrayOfDocumento; wsrjItens:WSGnreRJ.ArrayOfItemPagamento; wsrj:WSGnreRJ.GerarDocumentoArrecadacaoWS; wsrjRetorno:WSGnreRJ.ChamadaDadosWebServiceRefLote; begin try wsrjEmit := WSGnreRJ.Emitente.Create; wsrjEmit.CnpjEmitente := StrToInt64(getCNPJ(QryEmpresa.FieldByName('EMP_CNPJ').AsString)); wsrjEmit.Email := QryEmpresa.FieldByName('EMP_EMAIL').AsString; SetLength(wsrjDocs, 1); wsrjDocs[0] := WSGnreRJ.Documento.Create; wsrjDocs[0].DataPagamento := FormatDateTime('dd/mm/yyyy', IncDay(Date(),1)); wsrjDocs[0].TipoDocumento := 2; { 1. DARJ, 2. GNRE } wsrjDocs[0].TipoPagamento := 1; { 1. ICMS/FCP } try QryNotasFiscais.DisableControls; QryNotasFiscais.First; while not QryNotasFiscais.Eof do begin if ( QryNotasFiscais.FieldByName('VEN_SELECIONADO').AsInteger = 1 ) then begin idx :=Length(wsrjItens); SetLength(wsrjItens, idx+1); wsrjItens[idx] := WSGnreRJ.ItemPagamento.Create; wsrjItens[idx].CepContribuinte := StrToIntDef(SoNumeros(QryEmpresa.FieldByName('EMP_CEP').AsString),0); wsrjItens[idx].Cnpj := wsrjEmit.CnpjEmitente; wsrjItens[idx].CodigoProduto := codigo_produto; wsrjItens[idx].DataFatoGerador := FormatDateTime('dd/mm/yyyy', QryNotasFiscais.FieldByName('VEN_FATURAMENTO').AsDateTime); wsrjItens[idx].DataVencimento := wsrjDocs[0].DataPagamento; wsrjItens[idx].EnderecoContribuinte := TiraAcento(QryEmpresa.FieldByName('EMP_ENDERECO').AsString + ', ' + QryEmpresa.FieldByName('EMP_NUMERO').AsString); wsrjItens[idx].MunicipioContribuinte := TiraAcento(QryEmpresa.FieldByName('CID_DESCRICAO').AsString); wsrjItens[idx].UfContribuinte := TiraAcento(QryEmpresa.FieldByName('CID_UF').AsString); wsrjItens[idx].Natureza := 3; { 3. Diferencial de Alíquota } wsrjItens[idx].NaturezaQualificacao := 1; { 1. Normal } wsrjItens[idx].NomeRazaoSocial := TiraAcento(QryEmpresa.FieldByName('EMP_RAZAO').AsString); wsrjItens[idx].NotaFiscalCnpj := wsrjEmit.CnpjEmitente; wsrjItens[idx].NotaFiscalDataEmissao := wsrjItens[idx].DataFatoGerador; wsrjItens[idx].NotaFiscalNumero := QryNotasFiscais.FieldByName('VEN_NF').AsInteger; wsrjItens[idx].NotaFiscalSerie := QryNotasFiscais.FieldByName('VEN_SERIE').AsInteger; wsrjItens[idx].NotaFiscalTipo := 'NF-e'; { M - Manual, PD - Processamento de Dados, NF-e - Nota Fiscal Eletrônica } wsrjItens[idx].NumControleContribuinte := QryNotasFiscais.FieldByName('VEN_NF').AsString + QryNotasFiscais.FieldByName('VEN_SERIE').AsString; wsrjItens[idx].PeriodoReferenciaAno := StrToInt( Copy(wsrjItens[idx].DataFatoGerador,7,4) ); wsrjItens[idx].PeriodoReferenciaMes := StrToInt( Copy(wsrjItens[idx].DataFatoGerador,4,2) ); wsrjItens[idx].TipoId := 1; {1. CNPJ, 2. CPF, 3. Passaporte} wsrjItens[idx].ValorFECPPrincipal := QryNotasFiscais.FieldByName('VALOR_FCP').AsFloat; wsrjItens[idx].ValorICMSPrincipal := QryNotasFiscais.FieldByName('VALOR_DESTINATARIO').AsFloat; wsrjItens[idx].ValorTotal := wsrjItens[idx].ValorICMSPrincipal + wsrjItens[idx].ValorFECPPrincipal; end; QryNotasFiscais.Next; end; finally QryNotasFiscais.EnableControls; end; if (Length(wsrjItens) > 0) then begin wsrjDocs[0].ItensPagamentos := wsrjItens; Request.URL := url_rj; wsrj := Request as GerarDocumentoArrecadacaoWS; wsrj := GetGerarDocumentoArrecadacaoWS(true, '', Request); wsrjRetorno := wsrj.enviarDados(wsrjEmit, wsrjDocs); Memo1.Lines.Add('----------------'); Memo1.Lines.Add('IdSessao: '+wsrjRetorno.IdSessao); Memo1.Lines.Add('Cod. Retorno: ' + IntToStr( wsrjRetorno.Retorno.CodigoRetorno )); Memo1.Lines.Add('Msg. Retorno: ' + wsrjRetorno.Retorno.MensagemRetorno); end; finally wsrjEmit.Free; end; end; Unit do webservice: WSGnreRJ.pas O erro: Ocorre na linha: wsrjRetorno := wsrj.enviarDados(wsrjEmit, wsrjDocs); Tentei ver o que havia nesse XML no evento beforepost do meu objeto Request(THTTPRIO) dessa forma: procedure TFrmPrincipal.RequestBeforeExecute(const MethodName: string; SOAPRequest: TStream); var xml:TXMLDocument; begin try xml := TXMLDocument.Create(Self); xml.XML.Add( WideString(SOAPRequest) ); xml.SaveToFile('C:\temp\Request.xml'); finally xml.Free; end; end; Porém o parâmetro SOAPRequest vem vazio, como se a requisição fosse sem nenhum dado. ========================================================================= Meu ambiente: Windows 10 Delphi 2010 ========================================================================= Obrigado pela força galera, []'s

Bom dia pessoal, estou implementando o envio de lotes RPS para o webservices da WebISS, em meu ambiente de desenvolvimento consigo transmitir os lotes normalmente tanto em ambiente de homologação quanto de produção, porém ao tentar fazer o envio pelo computador do meu cliente recebo a seguinte mensagem: The specified procedure could not be found. - URL:https://www1.webiss.com.br/uberaba_wsnfse_homolog/NfseServices.svc - SOAPAction:hhtp://tempuri.org/INfseServices/RecepcionarLoteRps Pensei que pudesse ser algo relacionado aos arquivos de configuração CIDADES.INI e WebIss.INI, mas já me certifiquei que os arquivos estão idênticos aos que utilizo em ambiente de desenvolvimento. Alguém tem alguma ideia do que pode ser?