Danilo
-
Total de ítens
76 -
Registro em
-
Última visita
-
Days Won
1
Community Answers
-
Danilo's post in Codigo Retorno Nfe was marked as the answer
Boa tarde Italojjr,
agradeço pela sugestão, de fato lá consta tudo, eu queria pular a etapa de compilar a partir do manual, se alguém já o tivesse feito e pudesse compartilhar, seria de grande ajuda, mas consegui em um site um resumo e criei um script a partir dele, se for util à alguém estou postando o link pra quem quiser baixar.
vlw..
http://sdrv.ms/WU1bAz
-
Danilo's post in Salvar Tstringstream No Bd was marked as the answer
Deu certo, consegui trabalhar apenas com xml no bando, evitando salvá-los no disco.
Usei o código para persistir no BD, antes eu passava um lowerCase na consulta, mas agora uso um específico no ORM que não trata isso, no caso so xml, isso bagunçava e por isso não validava, claro, além da assinatura do certificado que tbm perdia a validade.
class function TldiNFe.Grava_XML_No_BD(pXML: TStringStream; pIdNFeCAB: String): Boolean; var SQL : WideString; sXML : WideString; // Conteudo do XML sList: TStringList; begin try try Result := true; sList:= TStringList.Create; sList.LoadFromStream(pXML); sXML := sList.CommaText; SQL := ' update nfe_cabecalho set XML_ULTIMO = ' + sXML + ' where id = ' + pIdNFeCAB; TORM.Consultar_Case_Sensitive(SQL); except Result := false; end; finally sList.Free; end; end;
Uso esse código para recuperar o "xml" do BD:
class function TldiNFe.Retornar_XML_Do_BD(pIdNFeCAB: String): TStringStream; var ConsultaSQL : WideString; reader : TDBXReader; sXML : TStringStream; begin try sXML:= TStringStream.Create; ConsultaSQL := 'select XML_ULTIMO from nfe_cabecalho where ID = ' + pIdNFeCAB; reader := TORM.Consulta(ConsultaSQL); while reader.Next do begin sXML.WriteString(reader.Value['XML_ULTIMO'].AsString); end; Result := sXML; finally end; end;
Agradeço à todos pelas dicas, elas foram importantes para eu chegar à esse resultado. Principalmente a dica do Erik, sempre tive dificuldades de trabalhar com TStringStream, essa linha aqui me salvou: (sXML.WriteString(' xml.... '))
tbm mudei o tipo de dado de (text) para (longtext) no MySQL
-
Danilo's post in Resultado Da Analise Arquivo Remessa Banco Do Brasil was marked as the answer
Informamos que o arquivo encaminhado para análise encontra-se dentro dos padrões estabelecidos, no que se refere à estrutura e ao posicionamento dos campos. Salientamos que a conferência é feita por amostragem e que são de responsabilidade do cliente: - Não alterar os dados fixos conferidos (ex.: prefixo do BB, número de convênio, da carteira/ variação, CNPJ/Agência/Conta da sua empresa, versão de leiaute, dentre outros, inclusive aqueles cujos normativos da FEBRABAN informem que tenham de ser preenchidos com brancos ou zeros ); - A informação correta de dados variáveis ( ex.: nomes, endereços, CPFs/CNPJs, câmara de compensação, prefixos de agências/DV, números de contas, valores, somatórios, datas, dentre outros); - A informação correta de dados estruturais ( ex.: tipo de registro, numeração seqüencial de registros e de lotes, etc). A critério da empresa poderá ser transmitida remessa para teste, através do Gerenciador Financeiro ( Transferência de Arquivos/Remessa ), bastando que seja informado “TS” nas posições 52 e 53 do Header de Lote. Após o processamento, o Banco disponibilizará arquivo-retorno, para tratamento pelo seu programa próprio. Quando o arquivo for transmitido definitivamente para produção, as colunas 52 e 53 do Header de Lote deverão ser alteradas para brancos. As boletas não apresentaram inconsistências no que se refere a layout, código de barras e linha digitável; estão aprovadas para distribuição aos sacados.
Salientamos que a informação correta dos dados impressos é de responsabilidade do cliente. Obs.: As informações referentes a juros/multa/protesto devem ser compatíveis com as informações do arquivo-remessa. Obs.: Solicitar ao Gerente de Contas BB, o cadastramento de juros e multas que estão mencionadas nas boletas. Consideramos o teste finalizado.
Equipe de Testes de Layout
Banco do Brasil
CSO Belo Horizonte MG
================================================================================================================================================================ Deu Certo após eu atualizar os fontes. > Uma Observação... eu tbm estava informando a VARIAÇÃO DE CARTEIRA errada, eu informava null, mas o correto no meu caso era 019 -
Danilo's post in Sugestão Aos Colaboradores Do Acbrboleto was marked as the answer
blz.. obrigado Jéter,
não tinha o habito de usar assim o try except .. mas agora entendi ... apresenta uma mensagem mais amigável ao user.