automacaosamos

Bom dia, recebi as instruções do ambiente de homologacao da nota de serviço da prefeitura de Martinopolis - SP em anexo mas ao envia em Homologação, não obtenho resposta, em produção usando o exemplo em Lazarus 3.6 FTP 3.2.2 funciona normalmente. onde posso alterar para o novo endereço de homologação: http://fi1.fiorilli.com.br:5663/IssWeb-ejb/IssWebWS/IssWebWS?wsdl obrigado Instruções.txt

bom dia, monitorando o fontes do ACBrBoletoWS consegui, descobrir qual o problema na estrutura do nosso numero, problema resolvido Obrigado

tentei dessa forma, conforme um exemplo que achei no forum, mas mesmo assim não funciona, se não carrega a lista de boleto ele da a mensagem que a lista esta vazia se carrega a lista ele diz que o nosso numero esta com dados inválido, mesmo pegando exatamente como esta no banco. ACBrBoletoLocal := TACBrBoleto.Create(nil); ConfiguraACBrBoleto; FiltrosAPI := ACBrBoletoLocal.Configuracoes.WebService.Filtro; FiltrosAPI.Clear; FiltrosAPI.indicadorSituacao := isbAberto; FiltrosAPI.indiceContinuidade := 0; FiltrosAPI.dataMovimento.DataInicio := StrToDate('01/02/2024'); FiltrosAPI.dataMovimento.DataFinal := StrToDate('22/02/2025'); ACBrBoletoLocal.Configuracoes.WebService.Operacao := TOperacao(4); FPURL := 'https://api.bb.com.br/cobrancas/v2'; DevAPP := '?gw-dev-app-key=' + ACBrBoletoLocal.Cedente.CedenteWS.KeyUser; NConvenio := '0003150107'; ID := '0000259795'; case ACBrBoletoLocal.Configuracoes.WebService.Operacao of tpConsultaDetalhe : FPURL := FPURL + '/boletos/'+ ID + DevAPP + '&numeroConvenio='+ NConvenio; tpConsultar : FPURL := FPURL + '/boletos/'+ ID + DevAPP + '&numeroConvenio='+ NConvenio; tpPIXConsultar : FPURL := FPURL + '/boletos/'+ ID + DevAPP + '&numeroConvenio='+ NConvenio; end; try ACBrBoletoLocal.Enviar; if ACBrBoletoLocal.TotalListaRetornoWeb > 0 then begin RetornoDetalhe := ACBrBoletoLocal.ListaRetornoWeb[0]; result := RetornoDetalhe.JSON; end; except on e: exception do gera_log(e.message); end; obrigado boletosbb.log

Obrigado por responder. Desculpe mas não entendi, estou alimentando o componente da forma abaixo, com o nossonumero com 10 digitos estou fazendo a consulta em produção, porque já tinha um outro sistema em uso lá, usando a consulta , e conferi que o nosso numero esta alocado no banco. estou alimentando a lista de boleto da forma abaixo, não sei sé e a forma correta. ACBrTitulos := ACBrBoletoLocal.CriarTituloNaLista; with ACBrTitulos do begin EspecieDoc := 'DM'; Carteira := DataSetPortadores.FindField('PORTADORES_CARTEIRA').AsString; NossoNumero := StrZero(DataSetFinanceiros.FindField('FINANCEIROS_NOSSONUMERO').AsInteger,10,0); NumeroDocumento := Valor_Str(DataSetFinanceiros.FindField('FINANCEIROS_NUMERO').AsInteger); Vencimento := DataSetFinanceiros.FindField('FINANCEIROS_VENCIMENTO').AsDateTime; ValorDocumento := DataSetFinanceiros.FindField('FINANCEIROS_ORIGINAL').AsFloat; Sacado.CNPJCPF := DataSetFinanceiros.FindField('PESSOAS_CPFCNPJ').AsString; end; ACBrBoletoLocal.ListadeBoletos.Add(ACBrTitulos); e se uso a Operacao := tpConsultaDetalhe; ele apresenta a mensagem: Campo nosso numero preenchido com dados inválidos. tentei de varias formas preencher no NossoNumero com 6 digitos, 10 digitos, colocando o convenio na frente e nada minha duvida é como preencho nesse caso o nosso numero para que os titulos possam vir de forma detalhada obrigado.

estou començando agora usar o ACBrBoleto API e apareceu essa situação na consulta individiual de titulos. ACBrBoletoLocal.Configuracoes.WebService.Operacao = tpConsulta, eu consigo trazer os titulos baseados nos filtros normalmente mas preciso consultar individual a partir da lista, ai tenho a mensage: Campo nosso numero preenchido com dados inválidos. pesquisei aqui no forum e nao achei nada, o que posso ter faltado preencher ?? coloquei em anexo a minha procedure, alguem poderia dar umas dicas de como consultar individual o titulo ?? Obrigado Lazarus 3.6 - FPC 3.2.2 ConsultaAPI.pas

ok Obrigado.

Antigo: 201.63.114.134:8081/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Novo: http://38.211.3.230:8081/IssWeb-ejb/IssWebWS/IssWebWS?wsdl parece que isso fica gravado no: ACBrNFSeXServicos.ini

Ok, agradeço a atençao.... obrigado

Estou tendo esse erro com a nota de Serviço FIORILLI de Martinópolis. gostaria de saber se o problema é no ACBrNFSEx ou no webservice da prefeitura, ou como devo proceder já tentei falar com o suporte deles, mas pelo jeito lá ninguem nem entende de webservice, até começo de Dezembro funcionava normal. metodo: ACBrNFSeX1.ConsultarNFSeporNumero(''); Erro(s): Código : X999 Mensagem: Erro de Conexão: soap:Server - java.lang.IllegalArgumentException: Parameter value [2699] did not match expected type [java.lang.Long] Correção: --------- Agradeço a colaboracao. obrigado

bom dia eu entrei em contato com a Fiorilli, e eles disseram que não houve nenhuma alteração no WEBSERVICE deles. tem alguma ideia de qual pode ser o problema do erro acima ?? Obrigado

Bom dia, Estava testando normalmente o ACBrNFESex no municipio de MARTINOPOLIS - SP, comecou a dar a mensagem anexa, pelo que percebi ele atualizaram a versao do aplicativo de 3.6.4 para 3.6.5 será que é o problema ?? Erro(s): Código : X999 Mensagem: Erro de Conexão: soap:Server - java.lang.IllegalArgumentException: Parameter value [2694] did not match expected type [java.lang.Long] Correção: --------- Obrigado

bom dia Não costumo jogar os exemplo do ACBr no meu sistema, geralmente reconstruo, mas com base nos exemplos do ACBr, não fazia ideia que o TWEBBrowse pudesse provocar tais problemas, nunca tive com ele. mas realmente era ele o causador dos males, após remover não ocorreu mais nenhuma mensagem CoInitialize. Obrigado!

será que existe alguma solução para o Coinitialize ?? ja tentei de tudo, criar o form em tempo de execuçao, troquei em varios lugare o CoInitialize(nil); ele até faz uns TEFs mas depois do terceiro comeca a dar a mensagem. obrigado

minhas configuracoes do componente Configuracoes.Certificados.Senha := StrAllTrim(CONFIG_SENHACERTIFICADO); Configuracoes.Certificados.ArquivoPFX := ExtractFilePath(Application.ExeName) + StrAllTrim(F_DATMOD.TB_CADEMP.FindField('EMPCNP').AsString) + '.pfx'; Configuracoes.Geral.SSLLib := libOpenSSL; Configuracoes.Geral.SSLCryptLib := cryOpenSSL; Configuracoes.Geral.SSLHttpLib := httpOpenSSL; Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;

eu implementei o ACBrNFCe consumidor na minha aplicação, e estou tendo sucessivos bloqueios por CoInitialize(nil); ja fiz a sugestões abaixo ma mesmo assim continua, antes usava o ACBrSAT e quando ajustei conforme abaixo parou o problema, mas com a ACBRNFCe consumidor continua contantes, estou usando o xACBrNFeDANFeESCPOS pra imprimir o DANFE e Delphi 7 Obrigado uses ActiveX; ... procedure TForm1.FormCreate(Sender: TObject); begin CoInitialize(nil); end;