Djean Carlos Duarte

Bom dia Italo, Segue arquivos conforme solicitado. Modo de Envio : Enviar Lote Numero do Lote: 1 Data de Envio : 30/12/1899 Numero do Prot: Sucesso : True Erro(s): Código : X201 Mensagem: WebService retornou um XML vazio. Correção: --------- 1-rec-soap.xml1-rec.xml1-env-lot-soap.xml1-env-lot.xml

boa tarde, deu boa, compilou, mas voltou para o problema inicial.

boa tarde, fiz o procedimento e continua a mensagem. não compila o exemplo.

Boa Tarde Italo, Atualizei os fontes e agora não consigo compilar o exemplo: Build [Fatal Error] Frm_ACBrNFSeX.pas(9): Unit ACBrNFSeXProviderManager was compiled with a different version of IPM.Provider.TACBrNFSeProviderIPMV110

Italo, Rio do sul, aqui exigem assinatura.

boa tarde Italo, Enviei a situação pra IPM, eles me retornaram dizendo que o xml esta sem assinatura. Como faço para assinar antes de enviar?

Bom dia, Estou com dificuldades com o servidor IPM. Ja estou usando ACBRNFSeX e as ultimas units disponibilizadas pelo Italo no dia 23.07, porém sem sucesso. (IPM.GravaXml.pas e IPM.Provides.pas) Segue retorno do ACBrNFSeX - Programa Exemplo e arquivos: Modo de Envio : Enviar Lote Numero do Lote: 101 Data de Envio : 30/12/1899 Numero do Prot: Sucesso : True Erro(s): Código : X201 Mensagem: WebService retornou um XML vazio. Correção: --------- 101-env-lot.xml 101-env-lot-soap.xml 101-rec.xml 101-rec-soap.xml

Apresentou o mesmo retorno de antes. Modo de Envio : Enviar Lote Numero do Lote: 1 Data de Envio : 30/12/1899 Numero do Prot: Sucesso : True Erro(s): Código : X201 Mensagem: WebService retornou um XML vazio. Correção: --------- 1-rec-soap.xml 1-env-lot.xml 1-env-lot-soap.xml 1-rec.xml

Podes me ajudar como eu faço para usar este unit?

Desculpe, segue.1-rec-soap.xml

Opa Italo, Desculpe. Segue anexo.1-env-lot-soap.xml1-env-lot.xml1-rec.xml

Bom dia, Testei e agora estou tento o seguinte retorno: Erro(s): Código : X201 Mensagem: WebService retornou um XML vazio. Correção: --------- 1-rec.xml

Boa Tarde, Estou com a mesma situação ainda. Estou usando o ACBrNFSe_Exemplo.dpr em delphi. Alguém ja passou por esse problema? podem me ajudar? Inicio TNFSeEnviarLoteRPS ERRO: Erro Interno: 0 Erro HTTP: 401 URL: https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes {"retorno":{"msg":"Acesso negado, efetue login.","sis":"EST","code":396}}

Boa Tarde, Estou com a mesma situação ainda. se eu uso a url pelo navegador com a mesma senha e usuario que configuro no componente funciona. Inicio TNFSeEnviarLoteRPS ERRO: Erro Interno: 0 Erro HTTP: 401 URL: https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes {"retorno":{"msg":"Acesso negado, efetue login.","sis":"EST","code":396}}

Boa tarde, Eu acredito que sei o que possa ser. o componente pede um usuario do tipo integer e o webservice espera um alpha com mascara; // Provedor WebFisco Prestador.Usuario := StrToIntDef(ACBrNFSe1.Configuracoes.Geral.Emitente.WebUser, 0); Como posso fazer pra alterar este envio?

Boa Tarde, Estou com esse retorno no momento, podem me ajudar com isso? Estou usando usuario e senha fornecidos pela IPM. Inicio TNFSeEnviarLoteRPS ERRO: Erro Interno: 0 Erro HTTP: 401 URL: https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes {"retorno":{"msg":"Acesso negado, efetue login.","sis":"EST","code":396}}

Deu boa, obrigado, abriu sem erros o Programa Exemplo. vou seguir configurando e fazer os testes. Obrigado.

boa tarde, obrigado Italo. Mas estou com esse problema agora. Debugando ele passa duas vezes pela rotina SetConfigMunicipio, na primeira pega o codigo do municipio correto, como eu coloquei no componente e na segunda pega zerado. --------------------------- Debugger Exception Notification --------------------------- Project ACBrNFSe_Exemplo.exe raised exception class Exception with message 'Código do Municipio [0] não Encontrado.'. Process stopped. Use Step or Run to continue. --------------------------- OK Help ---------------------------

Bom dia, Estou migrando a emissão da NFSe do meu sistema para o ACBrNFSe. Alguém tem os arquivos de configurações atualizados? Mudou os webservices este mês e não estou conseguindo configurar.

Bom dia, Estou com uma balança Toledo 8217/LP/2 USB, e não consigo ler o peso dela. A comunicação dela é USB. Alguém tem um exemplo de configuração do componente ACBrBal para esta balança. Grato.

Bom dia, Resolvi da seguinte forma por sugestão do Juliomar, criei uma VM com Windows 10 e o Delphi 10.3.2 Rio, recompilei o PAF e consegui gerar o arquivo normalmente. Obrigado.

Sim, foi usado o FastMM, o Juliomar me auxiliou, mas não obtivemos sucesso. A versão eu não saberia informar.

bom dia, se trata do Delphi 7. São 2800 itens aproximadamente.

Boa tarde Juliomar, Fiz o teste que solicitastes e apresentou "Out of memory" mesmo com AAssinar = false. Alguma outra luz ou teste que eu possa fazer? Obs.: acontece tanto em homologação como em produção.

boa tarde, sim, segue o trecho do código: with ACBrBlocoX do begin CabecalhoBlocoX(); // arquivo de Estoque with Estoque do begin //dataInicial := dataInicial; //dataFinal := dataFinal; DataReferencia := dataFinal; Qaux := getQaux; Qaux.Close; Qaux.SQL.Text := ' select produto.procodigo, '+ ' produto.procodncm, '+ ' produto.pronome, '+ ' produto.protipo, '+ ' propreco.pprvalor, '+ ' classe.clasittrib, '+ ' coalesce(produto.proaliqicms,0) proaliqicms, '+ ' produto.proiss, '+ ' unidade.uninome, '+ ' produto.proestoque '+ ' from produto '+ ' inner join unidade '+ ' on unidade.unicodigo = produto.unicodigo '+ ' inner join classe '+ ' on classe.clacodigo = produto.clacodigo '+ ' inner join propreco '+ ' on propreco.procodigo = produto.procodigo '+ ' and propreco.precodigo = (select preco.precodigo '+ ' from preco '+ ' where preco.prepadrao = 1)'+ ' where produto.proestoque > 0 '+ ' order by produto.procodigo '; Qaux.Open; Produtos.Clear; iRegistros:=0; while (not qAux.Eof) do begin with Produtos.Add do begin Codigo.Tipo := tpcProprio; Codigo.CodigoProprio := qAux.FieldByName('procodigo').AsString; Codigo.CodigoNCMSH := qAux.FieldByName('procodncm').AsString; Descricao := qAux.FieldByName('pronome').AsString; ValorUnitario := qAux.FieldByName('pprvalor').AsFloat; Ippt := ipptTerceiros; if (qAux.FieldByName('uninome').AsString = 'F') then SituacaoTributaria := stSubstTributaria else if (qAux.FieldByName('uninome').AsString = 'I') then SituacaoTributaria := stTributado else if (qAux.FieldByName('uninome').AsString = 'N') then SituacaoTributaria := stNaoTributado else if (qAux.FieldByName('uninome').AsString = 'N') then if (qAux.FieldByName('protipo').AsInteger = 2) then begin SituacaoTributaria := stISSQN; Aliquota := qAux.FieldByName('proiss').AsFloat; end else SituacaoTributaria := stTributado; Unidade := qAux.FieldByName('uninome').AsString; Quantidade := qAux.FieldByName('proestoque').AsFloat; IndicadorArredondamento := False; end; iRegistros := iRegistros+1; qAux.Next; end; SaveToFile(sNomeArqXML); end; end;