Djean Carlos Duarte

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;

bom dia Juliomar, estou com os fontes atualizados. com menos registros, uns 500 por exemplo consigo gerar. Tens alguma luz ou dia pra mim? estou com este problema em vários clientes, que começaram a enviar o arquivo agora em março.

Boa Tarde, Em runtime.

Boa Tarde, Estou com problemas na geração do Arquivo de Estoque. A quantidade de itens com estoque ultrapassa 2 mil registros. Ao tentar gerar o arquivo através da função 'SaveToFile' me apresenta "Out of memory."