[Ct-e Ferroviario]

5 minutos atrás, Juliana Tamizou disse:

Bom dia.

Por favor anexe a unit alterada.

Att.

Tudo bem.

pcteCTeW.pas

[Ct-e Ferroviario]

procedure TCTeW.GerarFerrov;
begin
  Gerador.wGrupo('ferrov', '#01');
  Gerador.wCampo(tcStr, '#02', 'tpTraf', 01, 01, 1, TpTrafegoToStr(CTe.infCTeNorm.ferrov.tpTraf), DSC_TPTRAF);

  if CTe.infCTeNorm.ferrov.tpTraf <> ttProprio then
  begin
    Gerador.wGrupo('trafMut', '#03');
    Gerador.wCampo(tcStr, '#04', 'respFat', 01, 01, 1, TrafegoMutuoToStr(CTe.infCTeNorm.ferrov.trafMut.respFat), DSC_RESPFAT);
    Gerador.wCampo(tcStr, '#05', 'ferrEmi', 01, 01, 1, TrafegoMutuoToStr(CTe.infCTeNorm.ferrov.trafMut.ferrEmi), DSC_FERREMI);
    Gerador.wGrupo('/trafMut');
  end;

  Gerador.wCampo(tcStr, '#06', 'fluxo ', 01, 10, 1, CTe.infCTeNorm.ferrov.fluxo, DSC_FLUXO);

  Gerador.wCampo(tcStr, '#07', 'idTrem', 01, 07, 0, CTe.infCTeNorm.ferrov.idTrem, DSC_IDTREM);

  if CTe.infCTeNorm.ferrov.vFrete > 0 then
    Gerador.wCampo(tcDe2, '#08', 'vFrete', 01, 15, 1, CTe.infCTeNorm.ferrov.vFrete, DSC_VFRETE);

  GerarFerroEnv;
  GerardetVag;

  Gerador.wGrupo('/ferrov');
end;

Tive que fazer umas alterações na unit pcteCTeW

quando Tipo de Tráfego for proprio, não tem necessidade de mandar os dados  do "trafMut"

e neem o valor do frete, fazendo isso consegui transmitir o CTe.

 

 

 

[NFS-e Cachoeira do Sul]

18 horas atrás, Leandro_Silva disse:

Inclusive já alterei pra esses parametros aqui

 

Porem da TIMEOUT.

Bom dia, consegue a URL em produção:

http://cachoeiradosul-portais.govcloud.com.br/NFSe.Portal.Integracao/Services.svc?wsdl

[NFS-e Cachoeira do Sul]

Inclusive já alterei pra esses parametros aqui

 

Porem da TIMEOUT.

 

[NFS-e Cachoeira do Sul]

2 horas atrás, Italo Jurisato Junior disse:

Boa tarde Leandro,

Você esta com todos os fontes de todas as pastas atualizados?

Se sim, reinstalou a suíte ACBr usando o ACBrInstall_Trunk2 com a opção de apagar arquivos antigos marcada?

Esta fazendo testes com o programa exemplo?

No HD não possui copias dos fones em outras pastas que o Delphi possa estar tendo acesso?

Boa tarde Italo, está atualizado sim, pelo que eu entendi, cada cidade possui um IP exemplo

 

[URL_P]
; Soledade/RS
RecepcaoLoteRPS_4320800=http://186.237.127.134/nfsews/services.svc
; Demais Cidades
RecepcaoLoteRPS_3131703=%NomeURL_P%/nfse.portal.integracao/services.svc

[URL_H]
; Soledade/RS
RecepcaoLoteRPS_4320800=
; Demais Cidades
RecepcaoLoteRPS_3131703=%NomeURL_H%/nfse.portal.integracao.teste/services.svc
 

Achei que alguém enviava pra cidade 4303004 - Cachoeira do Sul

Tenho a seguinte mensagem:

 

"URL não definida para: TNFSeEnviarLoteRPS"

Obrigado pela atenção.

 

 

[NFS-e Cachoeira do Sul]

Alguem emite nfs-e para essa prefeitura ?

Não consegui encontrar informações das url, se alguem tiver o arquivo

Pronimv2.ini funcionando e poder dar uma força serei grato.

[Para notas fiscais com natureza de operação exportação]

00 - Para notas fiscais com natureza de operação exportação os serviços prestados devem ser fora do pais  

 

Alguem ja passou por isso ao transmitir um RPS pra Betha.

[REST Client + Rest Request + Rest Response]

Em 23/07/2019 at 11:45, mbbortolini disse:

Leandro, com está a sua implementação ?

Não é o mesmo caso, mas estou implementando o consumo da API da Safe2Pay, consegui fazer GET e POST com os componentes indy(idHTTP) e rest(RestClient) neste caso a autenticaçaõ deve ir no header de comunicação e graças a dica do colega @Projeto6 consegui fazer com o RESTClient e com o idHTTP fiz da seguinte forma :

  idHttp.Request.CustomHeaders.Clear;
  idHttp.Request.CustomHeaders.AddValue('NOME_CHAVE','STR_CHAVE');

Para o POST o que me ajudou muito além do Postman foi o https://webhook.site/ aqui neste eu consigo ver como o html chega no server, pois eu estava com dificuldades de geração do meu JSON.

Se precisar de ajuda o que sei aprendi na última semana mas posso dar uma força.

Value, na verdade eu consegui usando um exemplo acima...

 

RESTRequest.Params.AddHeader('Authorization', 'Bearer ' + FToken);
RESTRequest.Params.ParameterByName('Authorization').Options := [poDoNotEncode];

[REST Client + Rest Request + Rest Response]

Em 11/01/2019 at 08:51, simons disse:

usando no delphi os componentes com essa propriedade padrao que o delphi poem da o mesmo erro:

se eu ajusto esse valor da propriedade para somente "application/json" ai o erro é so de autenticação:

{
    "message": "Authorization header not found"
}

porém se eu uso um componente restautorization do delphi não tem nenhum que se encaixe no tipo "Bearer"

informando somente token, mesmo eu colocando nos parametros do header do componente restrequest não funciona

sera que vou ter que criar uma classe tcustomautorization e mudar o metodo que faz a autorização mudando os parametros da forma que eu preciso? o delphi nao suporta esse tipo de autenticação? "Bearer"? 

sera que vou ter que usar o idHTT?  

 

desculpe minha ignorância juliomar é que nunca fiz esse tipo de integração e ja de primeira essa dificuldade.

 

Bom dia, conseguiu fazer essa consulta usando esses componentes ?

[Erro no Envio para MG e DF]

O mais engraçado se importar o arquivo "20190515160556-env-lot.xml" direto no postal da gnre funciona, com certeza é erro deles.

 

 

[Erro no Envio para MG e DF]

2 horas atrás, Daniel De Paula Romanini disse:

Olá boa tarde testando hoje a gnre 2.0 deu esse erro: Versão do cabeçalho informada difere da versão do XML de Dados.

Estou com a mesma zica, poxa todo dia uma erro novo kkkkkkk ta doido.

[Registro Online de Boleto]

Boa tarde pessoal, alguém conseguiu saber se outros bancos já oferecem esse serviço ?

[Utilizando WebServices.TimeZoneConf]

Ao enviar um evento de cancelamento por exemplo se o parametro WebServices.TimeZoneConf.ModoDeteccao = tzPCN

não respeita essa configuração. Na classe: ACBrNFeWebServices metodo procedure TNFeEnvEvento.DefinirDadosMsg;

tive que alterar, incluindo essa linha: pcnAuxiliar.TimeZoneConf.Assign(FPConfiguracoesNFe.WebServices.TimeZoneConf); 

seguindo a mesma logica da classe ACBrNFeNotasFiscais metodo function NotaFiscal.GerarXML: String;

 

 

 

 

[Etiqueta GSM 128]

Boa tarde galera, sei que não é o local mais adequado para o post da duvida, peço perdão aos moderadores, tive olhando o fonte do Fortes CE

o objeto de codigo de barras (unit RLBarcode)

Lendo uma parte da documentação da unit

 

bcEAN128A - Mais abrangente que os demais códigos, o UCC/EAN-128 é complementar,
    baseado em Identificadores de Aplicação (AI), identificando o significado e o
    formato de dados. O UCC/EAN-128 pode, inclusive, ser aplicado em unidades de
    distribuição, permitindo a identificação do número de lote, série, data de
    fabricação, validade, textos livres e outros dados. A utilização do UCC/EAN-128
    é múltipla, podendo ser aplicado na logística e automação de vários setores
    produtivos e comerciais, como o ramo alimentício, farmacêutico, vestuário e
    de papel, entre outros. Além disso, pode ser usado na distribuição, armazenamento,
    inventários e gestão de estoque, proporcionando agilidade na captura de informações,
    com menor margem de erros. Trata-se de um sistema que possui abrangência necessária
    para a obtenção de grandes ganhos na cadeia distributiva, sempre objetivando a
    otimizar e a maximizar, por meio da informação rápida e precisa;

Preciso fazer impressao de etiquetas no formato UCC/EAN-128

Exemplo de Leitura

010123456789012815051231

Exemplo da Impressão

(01)01234567890128(15)051231

é isso mesmo a impressao sai com os (  ) pelo menos na parte visual.

esse padrão de etiqueta tambem é conhecido como GS1 128

O FastReport não tem suporte.

Alguem ja fez esse tipo de impressão ?

Grande Abraço.

 

 

 

 

 

 

[Modelos de balança novos]

Desculpe, não intendi sua pergunta.

sei que existe a classe ACBrBALToledo2180.pas

a 2090 é diferente.

[Qual Tipo De Codigo De Barras Posso Utilizar Pra Impressao De Codigos Variados .]

Boa tarde senhores, estou precisando fazer a impressao usando os padrao GS1-128 no fastReport
como vc utilizou @adilsonpazzini ? 

Abraço.

[Modelos de balança novos]

Segue.

ACBrBAL.pas

[Modelos de balança novos]

Boa tarde, se tiver como incluir essas units no projeto seria muito bom, pois cada atualizacao precisamos

cuidar para nao perder essas infomações, segue em anexo para analise.

Modelos: TACBrBALModelo = (balNenhum, balFilizola, balToledo, balToledo2090, balToledo2180, balUrano,
                  balLucasTec, balMagna, balDigitron, balMagellan, balUranoPOP, balLider, balRinnert, balMuller ) ;

     balToledo2090  : fsBAL := TACBrBALToledo2090.Create(Self);
     balRinnert  : fsBAL := TACBrBALRinnert.Create(Self);
     balMuller  : fsBAL := TACBrBALMuller.Create(Self);
 

Segue  para analise.

ACBrBALMuller.pas

ACBrBALRinnert.pas

ACBrBALToledo2090.pas

[ACBrGNRE na Trunk2]

Pode usar em produção é so nao pagar a guia kkkkk nao tem problema acredito que depois de uns dias se nao pagar ela é removida.

[ACBrGNRE na Trunk2]

Marcelo, tente mudar o ambiente pra produção, caso não esteja.

[ACBrGNRE na Trunk2]

Segue.

ACBrGNREGuiaFRDM.pas

[ACBrGNRE na Trunk2]

Bom dia, segue algumas melhorias feita, quando ia transmir pra SC tava dando acesso violado e erro de data na impressão.

unit: ACBrGNREGuiaFRDM

function RemoverZeros(Str: string): string;
  begin
    if Str <> '' then
    begin
      while (Str <> '') and (Str[1] = '0') do
        Str := Copy(Str, 2, Length(Str));
    end;

    Result := Str;
  end;

-------------------------------------------------------------------------------------------------------------------------------------

 

      if DataLimitePagamento = '00000000' then
        FieldByName('DataLimitePagamento').AsDateTime := FieldByName('DataVencimento').AsDateTime
      else
        FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento));

 

[Remover botao editar do Preview FastReport]

Precisa desabilitar o botao close (pbNoClose) e email (pbNoEmail  ) ?

Qual a necessidade ?

[ACBrGNRE na Trunk2]

Também fiz essa alteração, isso se fez necessario pois dava um clear em um obj nao instanciado...

[ACBrGNRE na Trunk2]

FRetorno.numeroRecibo := FEnviar.numero;

ta ficando vazio

retosno do WS

'<?xml version="1.0" encoding="utf-8"?><soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><soapenv:Body><gnreRespostaMsg xmlns="http://www.gnre.pe.gov.br/webservice/GnreResultadoLote"><ns1:TResultLote_GNRE xmlns="http://www.gnre.pe.gov.br" xmlns:ns1="http://www.gnre.pe.gov.br"><ns1:ambiente>1</ns1:ambiente><ns1:situacaoProcess><ns1:codigo>503</ns1:codigo><ns1:descricao>O valor do campo ''numeroRecibo'' est&#xE1; inv&#xE1;lido. O valor deve possuir 10 caracteres num&#xE9;ricos!</ns1:descricao></ns1:situacaoProcess></ns1:TResultLote_GNRE></gnreRespostaMsg></soapenv:Body></soapenv:Envelope>'

 

Arrumou isso Cesar ?