Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 06-09-2019 em todas as áreas

  1. Olá @Fabio Fernandes da Silva Agradeço pelos esclarecimentos e parabens pela inciativa, mas o suporte que vocês disponibilizaram em São José dos Campos com todo respeito foi uma das piores experiencias de atendimento ao cliente que já tive até hoje, e olhe que já passei poucas e boas com o detram rs. Há mais de uma semana abri ticket, mandei email, e até liguei pra o numero do suporte da página da prefeitura , e nao obtive resposta alguma. A solução para todos esses problemas que nós temos enfretando nessa integração teria sido dirimida com apenas um exemplo do RPS preenchido corretamente. Entendi e até achei bacana o esforço da DSF em manter o layout antigo, mas infelizmente com um suporte desses, e sem documentação, fica muito obscuro ajustar tudo para funcionar corretamente. Tem sido uma seara por modificações tão simples. Se não fosse o pessoal daqui do ACBR, e as discussões com outros devs, não teriamos saido do lugar
    2 pontos
  2. muito obrigado julio, ta resolvido aqui, a dica do ctrl resolveu, declareia no user pcnConversao, pcnConversaoNFe e tudo ok agora!!, vc é campeão!! vlw!!!
    2 pontos
  3. Então a primeira coisa é tu deixar um único local pois se tiver dois ou mais delphi um único local serve. da segunda pergunta se fez cópia de units do acbr para dentro de pastas do seu projeto, deve verificar. mas é quase certo que onde está funcionando tem trechos de códigos que não deveriam estar ali . dica segure o Ctrl e clique em cima da propriedade que vai abrir onde ela está depois faz o mesmo com o tipo e dai verifica se essa unit faz parte da uses de seu formulário. é quase certo que não
    2 pontos
  4. Iniciei os testes... Tenho um SAT físico de desenvolvimento da Bematech. Quando mando um "consultar SAT" ou "Consultar Status Operacional" o SATTeste para de funcionar e manda mensagem... Já descobri!!! Estava usando o modelo do SAT errado. No caso Bematech é satDinamico_stdcall.
    1 ponto
  5. Boa tarde Suas sugestões foram disponibilizadas nos fontes do Projeto ACBr. Obrigado pela contribuição!
    1 ponto
  6. Boa tarde a todos, Por favor leia esse artigo: Como obter o XML do Fornecedor.
    1 ponto
  7. Como eu precisava liberar isso pro cliente, tomei a liberdade de fazer a mudança. Se algum moderador puder validar e dar o "feedback" se isso pode de fato incorporar o componente, agradeço. Segue em anexo a .pas alterada. ACBrDFeDANFeReport.pas
    1 ponto
  8. Boa tarde Laudelino, Você não pode incluir o INI do MDF-e junto com o da NF-e. Existem comandos da NF-e (NFe.comando) e existem comandos do MDF-e (MDFe.Comando). Sendo assim, você gera um arquivo INI para a NF-e e outro para o MDF-e. Muitos comandos são idênticos, inclusive os parâmetros. Um detalhe importante com relação ao MDF-e. Todo MDF-e tem que ser Cancelado caso o transporte não ocorra, ou Encerrado quando toda a carga do caminhão for entregue. Se não encerrar não consegue emitir outro MDF-e para o mesmo caminhão. Existem outras situações que devemos fazer o encerramento. Sugiro que você baixe a Cartilha Nacional do MDF-e que se encontra no Portal da SEFAZ-Virutal do RS - MDF-e e leia com muita atenção, existem diversos exemplos (situações) de transporte.
    1 ponto
  9. Sensacional... Faltou aplicar este método. Funcionou legal. Valeu!
    1 ponto
  10. Você precisa fazer configurações semelhantes ao usado para NFe. Como quase todas são as mesmas, podemos dizer que seu ACBrMonitor já está 80% configurado. Ainda assim, você deve verificar em especial a aba "DFe" e suas sub-abas.
    1 ponto
  11. Reiniciamos a máquina, fizemos uma venda e cancelamos. Parece que está funcionando, vamos ver como ocorre ao longo do dia. Muito obrigado!
    1 ponto
  12. So pra avisar que o Problema foi sanado . pela Ultima Atualização . Obrigado Acbr .
    1 ponto
  13. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
    1 ponto
  14. Show!!! Funcionou perfeitamente! Mais uma vez muito obrigado!! Um Grande Abraço!
    1 ponto
  15. muito obrigado meu amigo!!, amanha cedo vou verificar e dou 1 retorno aqui se funcionou ou não, Vlw
    1 ponto
  16. perguntas: tem só uma pasta de fontes do ACBr no micro? não tem fontes do ACBr com cópias por dentro seus projetos?
    1 ponto
  17. Boa tarde, Realmente, alguns bancos estão tratando nas instruções. Att.
    1 ponto
  18. Ok... agora compreendi... Veja a Unit: ACBrEscBematech.pas function TACBrEscBematech.ComandoQrCode(const ACodigo: AnsiString): AnsiString; begin with fpPosPrinter.ConfigQRCode do begin Result := GS + 'kQ' + // Codigo QRCode AnsiChr(ErrorLevel) + // N1 Error correction level 0 - L, 1 - M, 2 - Q, 3 - H AnsiChr(LarguraModulo * 2) + // N2 - MSB; 0 = default = 4 AnsiChr(0) + // N3 - Precisa computar Version QRCode ??? AnsiChr(1) + // N4, Encoding modes: 0 – Numeric only, 1 – Alphanumeric, 2 – Binary (8 bits), 3 – Kanji, IntToLEStr( Length(ACodigo) ) + // N5 e N6 ACodigo; end; end; Veja ainda o método: IntToLEStr, da Unit ACBrUtil.pas {----------------------------------------------------------------------------- Converte um "AInteger" em uma String bin�ria codificada como Little Endian, no tamanho m�ximo de "BytesStr" Exemplos: IntToLEStr( 106 ) = chr(106) + chr(0) ---------------------------------------------------------------------------- } function IntToLEStr(AInteger: Integer; BytesStr: Integer): AnsiString; var AHexStr: String; LenHex, P, DecVal: Integer; begin LenHex := BytesStr * 2 ; AHexStr := IntToHex(AInteger,LenHex); Result := '' ; P := 1; while P < LenHex do begin DecVal := StrToInt('$'+copy(AHexStr,P,2)) ; Result := AnsiChar( DecVal ) + Result; P := P + 2 ; end ; end;
    1 ponto
  19. @BigWings você esta correto ! Vi no manual versão 6 que a mensagem 597 que na NT 2011/02 era "Rejeição: NF-e emitida em ambiente de homologação com CNPJ do destinatário diferente de 99999999000191" foi substituída por "Rejeição: CFOP de Importação e não informado dados de IPI" mantiveram apenas a 598 "Rejeição: NF-e emitida em ambiente de homologação com Razão Social do destinatário diferente de NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL" O mais estanho é que tenho isso numa classe que ate hoje emite as notas em homologação com base na NT2011/02 e nenhuma nota é rejeitada. Acredito que devem ter mudado isso devido a manifestação do destinatário que se tornava impossível de testar nesse ambiente. @darlananogueira desculpe a resposta imprecisa, mas para me redimir submeti o primeiro xml que vc compartilhou no site do validador do RS e deu a resposta abaixo.
    1 ponto
  20. Se você tem os fontes dos componentes do ACBr baixados, está na pasta ACBr\Exemplos\ACBrDFe\Schemas\CTe.
    1 ponto
  21. remova o IdHTTP1 do seu formulario e tente usar assim: Var code: Integer; sResponse: String; Json: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Begin Json := '{"Customer": { "DocumentType" : "CNPJ", "DocumentNumber" : "11229082000167" }, "Driver": { "PhoneCountry": "+55", "PhoneNumber": "19999690130", "Name": "Daniel Marcelo"} }'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.Response.ContentType := 'applicattion/json'; http.Response.CharSet := 'utf-8'; Try http.Post('https://api.tudoentregue.com.br/v1/customers/AddDriver', JsontoSend, AResponseContent); Except On E: Exception Do Begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo1.Lines.Add('Error on Request: ' + sLineBreak + e.Message); exit; End; End; Memo1.Lines.Clear; Memo1.Lines.Add('Response Content: ' + AResponseContent.DataString); Memo1.Lines.Add('Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Response Text: ' + http.ResponseText); Finally JsontoSend.Free; AResponseContent.Free; http.Free; End; eu adicionei essas duas linhas: Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText); porque caso ResponseCode for 403,404,422 o indy vai levantar um except sendo que //IdHTTP1.ResponseCode = 403 Motorista não Relacionado. *response vazio* //IdHTTP1.ResponseCode = 404 Motorista não Localizado. *response vazio* então você não conseguiria tratar o erro de Motorista não Localizado por exemplo. caso tenha resolvido seu problema marque o post como melhor resposta clicando no sinal de no canto superior esquerdo do post
    1 ponto
  22. Esse erro ocorreu quando foi instalar um pacote que utiliza o Fast Report. Verifique se o mesmo se encontra instalado na IDE.
    1 ponto
  23. O CNPJ do destinatário esta diferente de 99.999.999/0001-91 ja que é homologacao e a IE deveria estar vazio
    1 ponto
  24. Meu amigo, você deve ler o manual do contribuinte http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=URCYvjVMIzI= para se interar dos campos necessários
    1 ponto
  25. Por acaso você não inverteu o emitente pelo destinatário? Pois analisando o seu XML pude perceber que o seu emitente é uma pessoa física, está correto? <emit> <CPF>45560641553</CPF> <xNome>RICARDO YAMADA</xNome> <xFant>RICARDO YAMADA</xFant>
    1 ponto
  26. Boa Tarde Amigo Marcos, solução é: nas linhas abaixo comentei a linha "tfNenhum" e no meu form com Combox so tem Valor 1 e 2,(nao informar a 0 zero nao ) e assim como normal no form deixei como Eventual do modo Padrao, no tipo de fretamento ao passar as informação, alimento com Data de saida somente para Eventual, deu certo e apareceu na XML, lembrando que schemas Atualizado.. 1 = Eventual + Data Saida e Horario, porem nao sendo com Data e horario do mesmo de Emissao 2 = Continuo espero ter ajudado... with infFretamento do begin case DM.qryConsulta['CON_TPFRETAMENTO'] of //0 : infFretamento.tpFretamento := tfNenhum; 1 : infFretamento.tpFretamento := tfEventual; 2 : infFretamento.tpFretamento := tpContinuo; end; if infFretamento.tpFretamento = tfEventual then begin infFretamento.dhViagem := DM.qryConsulta['CON_DATAEMISSAO']; end; end;
    1 ponto
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.