Pessoal, bom dia, estou com um problema recorrente a muito tempo, e eis que agora, como preciso atualizar todos meus fontes para a reforma tributária, precisei debruçar sobre os fontes para ver.
Meu problema é na geração do CT-e OS, onde, pelo exemplo funciona normalmente, os XMLs gerados, tanto no meu sistema como no exemplo são "quase" idênticos, exceto pelo fato de, no meu sistema, ele não gerar a tag infCTeSupl, que seria exatamente a tag do qrcode.
Fui debugar, e o erro esta no assinar do componente, exatamente no trecho
with TACBrCTe(TConhecimentos(Collection).ACBrCTe) do
begin
case Configuracoes.Geral.ModeloDF of
moCTeOS: FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'CTeOS', 'infCte');
moGTVe: FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'GTVe', 'infCte');
moCTeSimp: FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'CTeSimp', 'infCte');
else
FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'CTe', 'infCte')
end;
onde ele dá o erro quando tenta passar pela linha
moGTVe: FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'GTVe', 'infCte');
Lembrando que estou gerando um CT-e OS, o mesmo esta correto no modelo e alimentação do mesmo, os XMLs gerados são identicos, mas, alguma coisa no meio do caminho faz o modelo "mudar' para GTVe e dar o erro.
Uma curiosidade é que, ao entrar no case, ele "pula" direto pra linha do moGTVe, e ao debugar dá erro nela.
Sem mais, agradeço desde já.