Jump to content

rblsystem

Membros
  • Content Count

    245
  • Joined

  • Last visited

Community Reputation

10 Good

About rblsystem

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Boa tarde! Quero agradecer enormemente ao Italo e ao Big Wings pela atenção e ajuda dispensado ao meu problema. Consegui emitir o manifesto. Obrigado a todos.
  2. Segue XML anexado. XMLCTeTemp.xml
  3. Sei que estou sendo chato mas, ainda assim não foi! Um pequeno detalhe, a propriedade cOrgao é do tipo integer. Ao invés de colocar SP, coloquei 35. Mesmo fazendo esse ajuste, retorna a mesma rejeição de "UF não informada no campo UF...." Tens mais alguma sugestão?
  4. Bom dia! Agora o XML foi gerado corretamente e consegui enviar. Estava faltando a linha: MemoResp.Lines.Text := MD_Comum.ACBrCTe1.EventoCTe.Gerador.ArquivoFormatoXML; Só que ao enviar, está retornando a seguinte rejeição: "UF informada no campo UF não é atendida pelo WebService" Fiz aquela configuração básica no componente conforme mostrei na postagem inicial acima e no campo UF, está configurado para SP. Veja: ACBrCTe1.Configuracoes.WebServices.UF := 'SP'; O emitente do CTe é do PR e o tomador de SP. No componente tenho que informar PR ao invés de SP ou tenho que fazer outra configuração? Obrigado, Rogério.
  5. Não, o bloco da rotina é super simples sem nada protegido. Dentro do botão está apenas isso: ACBrCTe1.EventoCTe.Evento.Clear; ACBrCTe1.Configuracoes.Arquivos.Salvar := True; ACBrCTe1.Configuracoes.Arquivos.PathSalvar := 'C:\TMP'; ACBrCTe1.Configuracoes.WebServices.Salvar := True; ACBrCTe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrCTe1.SSL.SSLType := TSSLType(5); ACBrCTe1.Configuracoes.Geral.RetirarAcentos := True; ACBrCTe1.Configuracoes.Arquivos.PathSchemas := 'C:\Schemas\CTe'; ACBrCTe1.Configuracoes.WebServices.Ambiente := taProducao; ACBrCTe1.Configuracoes.WebServices.UF := 'SP'; ACBrCTe1.SSL.SelecionarCertificado; with ACBrCTe1.EventoCTe.Evento.New do begin infEvento.nSeqEvento := 1; infEvento.chCTe := Edit1.Text; infEvento.CNPJ := CNPJ_Emitente; infEvento.dhEvento := Now; infEvento.tpEvento := tePrestDesacordo; infEvento.detEvento.xObs := Edit2.Text; end; ACBrCTe1.EventoCTe.GerarXML; LoadXML(MemoResp, WBResposta); Veja que tem o LoadXML para exibir o conteúdo do XML. O componente está gerando o XML totalmente vazio. Rotininha bem simples mesmo. Nada de frescuras. Clicar no botão e é isso ai que faz. Mais nada.
  6. Sim, também é gerado vazio.
  7. Bom dia Italo! Bem, acredito que esteja faltando algo na alimentação do componente. O arquivo XML está sendo criado totalmente vazio. Segui os passos dos exemplos. Veja: ACBrCTe1.EventoCTe.Evento.Clear; ACBrCTe1.Configuracoes.Arquivos.Salvar := True; ACBrCTe1.Configuracoes.Arquivos.PathSalvar := 'C:\TMP'; ACBrCTe1.Configuracoes.WebServices.Salvar := True; ACBrCTe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrCTe1.SSL.SSLType := TSSLType(5); ACBrCTe1.Configuracoes.Geral.RetirarAcentos := True; ACBrCTe1.Configuracoes.Arquivos.PathSchemas := 'C:\Schemas\CTe'; ACBrCTe1.Configuracoes.WebServices.Ambiente := taProducao; ACBrCTe1.Configuracoes.WebServices.UF := 'SP'; ACBrCTe1.SSL.SelecionarCertificado; with ACBrCTe1.EventoCTe.Evento.New do begin infEvento.nSeqEvento := 1; infEvento.chCTe := Edit1.Text; infEvento.CNPJ := CNPJ_Emitente; infEvento.dhEvento := Now; infEvento.tpEvento := tePrestDesacordo; infEvento.detEvento.xObs := Edit2.Text; end; ACBrCTe1.EventoCTe.GerarXML; LoadXML(MemoResp, WBResposta); Fazendo assim, o XML é criado 100% vazio. Sabe dizer onde estou comendo bola? Obrigado, Rogério.
  8. Bom dia pessoal! Estou implementado o manifesto de desacordo do CTe da seguinte forma: ACBrCTe1.EventoCTe.Evento[0].infevento.chCTe := Edit1.Text; ACBrCTe1.EventoCTe.Evento[0].infevento.CNPJ := LimpaCampos(Edit2.Text); ACBrCTe1.EventoCTe.Evento[0].infevento.dhEvento := Now; ACBrCTe1.EventoCTe.Evento[0].infevento.nSeqEvento := 1; ACBrCTe1.EventoCTe.Evento[0].infevento.tpEvento := tePrestDesacordo; ACBrCTe1.EventoCTe.Evento[0].infevento.detEvento.xOBS := Edit3.Text; ACBrCTe1.EventoCTe.Evento[0].infevento.detEvento.descEvento := 'Prestação de serviço em Desacordo'; ACBrCTe1.EnviarEvento(1); O problema é que o retorno (cStat) está retornando com zero. A alimentação do componente estou fazendo baseado em outro tópico muito antigo: Gostaria de saber o que está faltando para que eu tenha sucesso nessa operação. Alguém poderia me ajudar? Outra dúvida é quanto a essa propriedade: ACBrCTe1.EventoCTe.Evento[0].infevento.CNPJ Esse CNPJ é o da transportadora emitente do CTe ou é o CNPJ da empresa que está fazendo o desacordo? Enfim, como posso alimentar o componente de forma correta para fazer o desacordo? Obrigado, Rogério.
  9. Olá pessoal. Preciso gerar um CFe sem informar o MP (meio de pagamento). O cliente veio na loja trocar um produto por outro. Ele trocou por 2 produtos de menor valor que o primeiro. Os 2 produtos somados ficaram o mesmo valor do produto devolvido. Neste caso, não tem pagamento e nem troco. Como faço para emitir esse cupom com essa situação. Já tentei fazer sem informar o MP e é rejeitado. Também coloquei o MP com valor zerado e também é rejeitado. Existe uma solução para isso? Obrigado, Rogério.
  10. Olá pessoal. Preciso enviar um cupom pro SAT sem ratear desconto nos produtos. Até ai, tudo bem! O problema é que quando envio para o SAT, retorna a seguinte mensagem de erro: "Erro no Campo 'vCFe' : Campo vCFe maior que a soma dos valores do MP." Pois bem, o MP está correto, ou seja, o vCFe e o vMP estão com os mesmos valores. Estou fazendo os testes no emulador SAT da Sefaz, porém, se enviar para o equipamento SAT, retorna o mesmo erro. Segue em anexo o XML. Alguém saberia dizer onde está o erro no XML?SatXMLTemp.xml Obrigado, Rogério.
  11. Baixei os fontes agora e não mexeram em nada. Acho que nem avaliaram. Vamos aguardar.
  12. bom dia. Não preciso mandar o XML. Basta testar o fonte original e ver como o XML foi montado e depois, testar com o .pas que anexei e ver a diferença. Simples assim.
  13. Olá pessoal. Fiz a atualização do pacote ACBr e acredito que exista um equivoco na geração do XML referente a IE e Ind. IE Dest. Até antes de atualizar, o XML era gerado corretamente com a tag: <IndIEDest>9</IndIEDest> <IE>999999999999</IE> ou <IndIEDest>1</IndIEDest> <IE>999999999999</IE> Depois da atualização, não gerou mais o XML com a tag da IE e ao enviar para a Sefaz, retorna a rejeição 232. Abri a unit pcnNFeW.pas e na linha 638 eu mudei de: if nfe.Dest.indIEDest <> inNaoContribuinte para if nfe.Dest.indIEDest <> inIsento Fiz essa alteração, compilei e agora a Sefaz/SP aceitou para os 2 casos. Em anexo está a unit que alterei. Vocês poderiam avaliar se minha alteração está correta? Obrigado, Rogério. pcnNFeW.pas
  14. Eu não modifiquei nada. Só quero saber se existe uma forma de aumentar o tamanho da fonte do cabeçalho via componente.
  15. Olá pessoal. Em anexo estão as imagens de 2 cupons. 1 é o cupom "antigo" e o outro é o cupom "atual". Gostaria de saber se é possível aumentar o tamanho da fonte do cabeçalho do cupom. Apenas o cabeçalho. Pergunto isso porque um cliente em especial pega o NÚMERO DO EXTRATO para fazer os controles dele lá. O problema é que no cupom atual, o número do extrato está numa fonte muito pequena e este cliente está com dificuldades de pegar este número. Não quero mexer nos fontes do ACBR porque quando eu for atualizar os fontes, este problema vai voltar. Eu prefiro sempre uma solução nativa do componente. Tem como alterar o tamanho da fonte do cabeçalho, seja diretamente no componente, seja via código? Se sim, teria como me dar uma dica de como fazer isso? Utilizo para impressão o componente ACBrSatExtratoFortes. Obrigado, Rogério.
×
×
  • Create New...