[Receita Médica Eletrônica]

35 minutos atrás, diogoboa disse:

aqui o site
https://sistemas.cfm.org.br/listamedicos/informacoes

aqui esta a url do webservice
https://ws.cfm.org.br:8080/WebServiceConsultaMedicos/ServicoConsultaMedicos?wsdl


aqui esta o manual de integração
https://sistemas.cfm.org.br/listamedicos/arquivos/manualwebservices.pdf

Estes são apenas para consulta de listagem de medicos, não para prescricao.

[Pegar token banco do Brasil pelo lazarus usando RESTRequest4D]

off topic, mas nao consigo instalar e usar o restrequest4d no lazarus. como fazer ? algum link com tuttorial ?

[Shipay url de producao para conexao rede itau]

Mas foi o que disse, eu fiz para poder homologar, trocando a const.

Acho que se pudesse se escolhido a URL e não ser uma const, tendo uma default, seria melhor.

[Shipay url de producao para conexao rede itau]

Bom dia;

 

  Atualmente no ACBrPSPShipay.pas a url de producao é uma constante e esta como 

cShipayURLProducao = 'https://api.shipay.com.br';

  So que devido a uma parceria da Conexao Rede Itau com a Shipay, a nossa URL de producao é diferente, ficando :

cShipayURLProducao = 'https://api-conexaoitau.shipay.com.br';ACBrPIXPSPShipay.pas

  Fizemos a alteração manual mas acredito que não seja o correto, pois em outas atualizações elas serão perdidas.

  Solcitamos a inclusão de um campo para substituirmos essa url de produção, ou escolha de qual hambiente de produção usar, se shipay puro, ou Conexao Rede Itau.

Agradecemos antecipadamente, segue arquivo alterado inicialmente para podermos efetuar a homologacao junto a shipay.

[Rejeicao codigo numerico invalido]

Boa tarde pessoal,

 

Recebi esta rejeicao ontem, na NFCe de um cliente, e apos muito quebrar a cabeça, descobri em um bambo que  cNF estava com o numero 01234567 , que é gerado por um id unico no meu sistema, e com isso a NFCe ficava em contingencia. Modifiquei o codigo e mandei gerar o XML e foi aceito.

Fica a dica caso alguem sofra do mesmo problema

[Nova Opção em Acesso Remoto Open Source]

o hoptodesk é baseado em outro projeto, o rustdesk, que testei e achei melhor tanto em performance quanto em estabilidade

https://rustdesk.com/

 

[Como testar o MDFe em desenvolvimento, tipo ambiente de homologacao ?]

Os fontes são de terceiros, que estou iniciando manutencao, verifiquei que tem a opção de homologacao, vou testar, obrigado

[Como testar o MDFe em desenvolvimento, tipo ambiente de homologacao ?]

Boa tarde pessoal,

 

Como posso desenvolver com o MDFe, para testes, tipo um ambiente de homologação ?

[erro no envio do parametro de cnpj softhouse e empresa]

Em 08/06/2021 at 17:35, Valmir Gomes Ribeiro disse:

  // acertar quebras de linhas e abertura e fechamento da lista de parametros
  ParamAdic := StringReplace(Trim(ParametrosAdicionais.Text), sLineBreak, ';', [rfReplaceAll]);
  ParamAdic := '['+ ParamAdic + ']';

  if NaoEstaVazio(CNPJEstabelecimento) and NaoEstaVazio(CNPJSoftwareHouse) then
     ParamAdic := ParamAdic + '[ParmsClient=1='+CNPJEstabelecimento+';2='+CNPJSoftwareHouse+']';

 

debuguei e vi esta linha acho que é neste

  ParamAdic := '['+ ParamAdic + ']'; que ta gerando seria isto ?

 

Pessoal, eu respondi neste post, anexei a unit para testes, quem puder ir testando...

 

 

[Identificação em ConfiguraIntSitefInterativo]

Pessoal, houve mudanca em alguns servidores da clisitef, e antes eles nao tratavam o cnpj, ja tive casos de empresas transacionando no CNPJ de outro.

Eles estão mudando agora em etapas, e tivemos que fazer uma mudanca aqui nos fontes da unit ACBrTEFDCliSiTef, por volta da linha 370, acompanhado pelo suporte e homologacao da Sitef.

Apos estas mudanças esta tudo funcionando adequadamente, alguns dos nossos clientes estavam sem transacionar com erro, e agora voltou ao normal.

Estamos anexado a Unit aqui, e vou colar o codigo alterado por volta da linha 370

// acertar quebras de linhas e abertura e fechamento da lista de parametros
  ParamAdic := '';
  ParamAdic := StringReplace(Trim(ParametrosAdicionais.Text), sLineBreak, ';', [rfReplaceAll]);

  if (ParamAdic <> '') then
    ParamAdic := '['+ ParamAdic + ']';

  if NaoEstaVazio(CNPJEstabelecimento) and NaoEstaVazio(CNPJSoftwareHouse) then
    if (ParamAdic <> '') then
      ParamAdic := ParamAdic + ';[ParmsClient=1='+CNPJEstabelecimento+';2='+CNPJSoftwareHouse+']'
    else
      ParamAdic := '[ParmsClient=1='+CNPJEstabelecimento+';2='+CNPJSoftwareHouse+']';

  if (ParamAdic <> '') then
    ParamAdic := '['+ ParamAdic + ']';

Segundo a nova validação, os parametros adcionais devem ficar com esta aparencia, ou seja, [] entre todos, e [] entre ParamClients

 

ParametrosAdicionais: [[PortaPinPad=10;VersaoAutomacaoCielo=testeati10];[ParmsClient=1=12345694000104;2=65432153000154]]

 

ACBrTEFDCliSiTef.pas

[ACBRValidador Inscricao Estadual CE com problemas]

Realmente, pode marcar como resolvida

[ACBRValidador Inscricao Estadual CE com problemas]

Bom dia,

Estou tentando validar uma IE do CE, mas o ACBRValidador informa que esta com digito errado, mas consultando o cadastro no Sintegra, esta correto, segue imagens :

 

[Apos atualizacao, TEFD so emite 1 via do comprovante]

Bom dia,

  Praticamente todos os meus clientes sao ntk/paygo, mas todos estao com instalacao na pasta c:\tef_dial, não sei o porque, não tenho nenhum cliente com instalacao na pasta c:\paygo.

  Fiz alteração em runtime para trocar as pastas e voltou a funcionar adequadamente

 

  vtptef := UpperCase(RadioGroupTipo.Items.Strings[RadioGroupTipo.ItemIndex]);
   if (vtptef = UpperCase('gppaygo')) then
   begin
      if (DirectoryExists('c:\TEF_DIAL\req')) then
      begin
         ACBrTEFD1.TEFPayGo.ArqReq    := ACBrTEFD1.TEFDial.ArqReq;
         ACBrTEFD1.TEFPayGo.ArqResp   := ACBrTEFD1.TEFDial.ArqResp;
         ACBrTEFD1.TEFPayGo.ArqSTS    := ACBrTEFD1.TEFDial.ArqSTS;
         ACBrTEFD1.TEFPayGo.ArqTemp   := ACBrTEFD1.TEFDial.ArqTemp;
         ACBrTEFD1.TEFPayGo.GPExeName := ACBrTEFD1.TEFDial.GPExeName;
         ACBrTEFD1.TEFPayGo.NumVias   := 2;
      end;

   end;

[Apos atualizacao, TEFD so emite 1 via do comprovante]

Bom dia, ja tinha lido o change-log.

Estou usando o gpTefDial, pois ainda usa a versao antiga do GP nos meus clientes, a maioria é PayGO, mas tem cappta e elgin tambem, alem de direção. Mas todos estão funcionando bem com gpTefDial, ate esta ultima atualizacao que esta imprimindo apenas 1 via.

Tentei usar o gpTefPayGo mas não existe a pasta c:\Pay-Go

[Apos atualizacao, TEFD so emite 1 via do comprovante]

Testei o demo não fiscal, acabei de atualizar, e tambem so imprime 1 via

[Apos atualizacao, TEFD so emite 1 via do comprovante]

Boa tarde;

 

  Atualizei o SVN esta semana, e depois disso, so esta imprimindo 1 via do comprovante do TEF, mesmo com a opcao de numvias setado para 2.

  Existe alguma coisa que devo alterar nesta nova versão ?

[Falso Negativo no validador para IE Brasilia]

Boa tarde, 

Segue codigo

      dml.ACBrValidador1.Documento   := RemovePontos(dtsPessoasINSCRICAO_ESTADUAL.AsString);
      dml.ACBrValidador1.Complemento := dtsPessoasUF.AsString;
      dml.ACBrValidador1.TipoDocto   := docInscEst;
      if not dml.ACBrValidador1.Validar then
      begin
         MessageBox(0, pchar('Erro teste Inscrição Estadual. Pode haver rejeição na emissão DFe !!!'), 'Erro', MB_ICONSTOP or MB_OK or
           MB_TASKMODAL);
         PageControlDados.ActivePageIndex := 0;
      end;

 

[Falso Negativo no validador para IE Brasilia]

Bom dia;

  O Validador esta informando que não é valido a inscricao de Brasilia/DF 731282500175 que é da Caixa Economica Federal, CNPJ 00.360.305/0001-04, foi feito a consulta pelo site : https://dfe-portal.svrs.rs.gov.br/Nfe/Ccc

[erro apos update acbrmonitorplus]

Bom dia;

   Para emissão aqui para Natal/RN estava usando a configuracao ACBrNFSe1.Configuracoes.Geral.SSLLib := libCapicomDelphiSoap;

  Estava funcionando ate a ultima atualizacao do ACBr, mas agora fica dando erro quando vai ACBrNFSe1.SSL.CarregarCertificado; de "Nao pode usar dadosPFX, usar ArquivoPFX ou Numero de Serie", so que estou usando ArquivoPFX, ate semana passa estava funcionando 

ACBrNFSe1.Configuracoes.Certificados.ArquivoPFX  := qLojaNFCERTIFICADO_CAMINHO.AsString;
ACBrNFSe1.Configuracoes.Certificados.Senha       := qLojaNFCERTIFICADO_SENHA.AsString;

 

Como configurar os parametros corretamente ?

[Fonte Valor superior a 1.000.000,00]

No valor total ja estava com 2 casas, e mesmo assim esta extrapolando. No unitario, tentei com 2, mas nao tive sucesso, e este cliente realmente precisava de 4 casas.

[Fonte Valor superior a 1.000.000,00]

Bom dia Juliana;

 

  Nunca trabalhei com Fortes, e não sei bem como programar para o mesmo, mas segue arquivo modificado :

ACBrNFeDANFeRLPaisagem.dfm

[Fonte Valor superior a 1.000.000,00]

Bom dia;

  Estou com um cliente que emite produtos com valores acima de R$ 1.000.000,00 no valor unitario, e esta cortando na impressao do Fortes.

  Gostaria de saber se é possivel mudar o tamanho das colunas para adequar esta realidade, ou diminuir o tamanho da fonte.

 

[Cancelar MDFe sem o XML]

Bom dia,

  Devido a um problema tecnico, tenho em um cliente um MDFe que foi enviado, e não consegui salvar o XML, e não estou mais conseguindo regerar este XML identico ao enviado. Não consigo criar outro MDFe pois informa que este veiculo ja esta em outro MDFe aberto.

  Estou querendo baixar o XML deste MDFe, ou cancelar o mesmo para criar outro, sem usar o XML. Como proceder ?

[Natal/RN por WebService]

Tentei no windows 7 atualizado, e windows 10 atualizado tambem. O certificado é valido, é oficial da minha empresa, e uso ele diariamente para emissão de NFe/NFCe. O CNPJ/I.M. da minha empresa também ja emite NFS, mas manualmente pelo site, mas ja pedi e tenho a liberação do ambiente de homologação para testes.

[Natal/RN por WebService]

Segue anexado a imagem de alguns erros, usando WinCrypt e openSSL

Quando usa SSLType diferente de LT_SSLv2 :

 

Quando usa SSL_Type igual  LT_SSLv2 :