Edevair Viesa Junior

O Mais engraçado que ví isso no fonte, mas mesmo assim estava entrando em branco. Aí fiz o teste forçando o 0 (zero) no lugar do branco direto no fonte do acbr e funcionou... Está homologado... Agradeço a todos pela ajuda....

@BigWings obrigado por responder... Efetuei a alteração e o resultado foi o mesmo, permanece o problema e rejeição..

@Juliomar Marchetti muito obrigado por responder, mas infelizmente não me ajudou muito não, pq eu preenchi os dados exatamente como o informado nas particularidades e a fonte veio das informações que nos foram passadas pelo cliente e pelo banco, mas permanece aquele caracter em branco após a agência e o suporte do banco informa que o número da agência deve ser numérico, porém nós passamos o número da agência com 4 dígitos conforme especificação no manual do próprio banco, o código da agência que informamaos é 0509. Porém para não ter nenhuma dúvida, chegue a incluir um outro 0 (zero) na frente da agência 00509 para ver se preenchia o campo, mas o resultado foi o mesmo....

Já fiz diversas alterações, porém permanece o problema... Na agência, já usei : 00509, 0509, 509 e não muda, na remessa sempre vem com o espaço em branco que o banco está reclamando. Registro Movimento - Remessa 143-147 Código da agência cobradora do Banco Santander: . . CAMPO DEVE SER NUMÉRICO, LINHA 2 A resposta do banco : Boa tarde! A agencia permanece com espaço. Como faço pra resolver isso ? Obs : só um desabafo, como o banco Santander é chato viu... Nós homologamos o sistema em 5 outros bancos e não tivemos problema algum, com esta encrenca de banco já tem mais de um mês que cada hora eles arrumam um problema diferente.. O cliente está louco da vida com nossa empresa...

@BigWings deu certo sim, realmente não atualizava há algum tempo mesmo.... Agradeço a ajuda. Pode fechar o tópico por favor... Muito Obrigado !

Estão ocrrendo também os seguintes erros : [dcc32 Error] FUVAREJO.pas(5052): E2003 Undeclared identifier: 'TACBrHandShake' [dcc32 Error] FUVAREJO.pas(5053): E2003 Undeclared identifier: 'TACBrSerialParity' [dcc32 Error] FUVAREJO.pas(5054): E2003 Undeclared identifier: 'TACBrSerialStop' [dcc32 Error] FUVAREJO.pas(5175): E2003 Undeclared identifier: 'TACBrPessoa' [dcc32 Error] FUVAREJO.pas(5265): E2003 Undeclared identifier: 'atSim' [dcc32 Error] FUVAREJO.pas(5269): E2003 Undeclared identifier: 'atNao'

Bom dia. Minha aplicação roda 100% no Delphi Berlin, eu estou migrando para o Delphi Rio e estou tendo um erro ao compilar. O erro é na linha do aceite no boleto. v_titulo := ACBrBoleto.CriarTituloNaLista; with v_titulo do begin Vencimento := Now; DataDocumento := Now; NumeroDocumento := '1'; EspecieDoc := 'DM'; EspecieMod := 'R$'; Aceite := atNao; //Aqui Gera o Erro DataProcessamento := Now; Carteira := '1'; NossoNumero := '1'; ValorDocumento := 0; with Sacado do begin NomeSacado := g_numero_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; Numero := g_numero_empresa; Bairro := 'Teste'; Cidade := 'Teste'; UF := 'SP'; CEP := OnlyNumber(g_cep_empresa); end; ValorAbatimento := 0; LocalPagamento := cdsCO0200.FieldByName('C_MENSAGEM_BANCO').AsString; ValorMoraJuros := 0; ValorDesconto := 0; DataMoraJuros := Now; DataDesconto := Now; DataAbatimento := Now; PercentualMulta := 0; Mensagem.Text := 'Teste de Mensagens'; OcorrenciaOriginal.Tipo := F_Ocorrencia_Original_Boleto(cmbOcorrenciaOriginal.ItemIndex); Instrucao1 := PadLeft(trim('Instrução 1'),2,'0'); Instrucao2 := PadLeft(trim('Instrução 2'),2,'0'); end; O erro gerado : [dcc32 Error] DadosBoleto.pas(474): E2003 Undeclared identifier: 'atNao' Na uses está ssim : uses SysUtils, Types, Classes, Variants, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, Vcl.Mask, Vcl.DBCtrls, FMTBcd, SqlExpr, DataSnap.Provider, Data.DB, DataSnap.DBClient, Vcl.ComCtrls, ACBrUtil, ACBrBoleto, ACBrBase, ACBrBoletoFCFR, Vcl.FileCtrl, Windows, Messages; Ao que m consta o atNao e atSim dos boletos estão na UNIT ACBrUtil certo ? Mudou algo para o Delphi Rio ?

@Daniel Simoes problema resolvido, era exatamente isso. Muito Obrigado pelas informações. Moderador, pode fechar o post. Muito Obrigado !

@Daniel Simoes muito obrigado. Vou orientar o cliente e retorno com o resultado.

Pessoal, estou com um problema em um cliente, não sei nem se isso existe, mas a contabilidade de um cliente solicitou que seja feita uma carta de correção de alguns CFes emitidos que estão com o CFOP errado. O cliente cadastrou o produto no sistema conforme a NFe do fornecedor e nestas NFes os produtos vieram com o CFOP 5401 ou 6401, o cliente cadastrou com 5401 no sistema e emitiu um monte de CFes, a contabilidade efetuou a escrituração e enviou uma nota a ele solicitando qeu seja feita uma carta de correção destes CFes que foram emitidos com o CFOP 5401 para 5405 já que o cliente é simples nacional. Que eu saiba, CCe é somente para NFe, não ? Se eu estiver certo, alguém poderia me orientar onde consigo informações para debater com a contabilidade ? Pergunta : Alguém já passou por esta situação ? Como proceder neste caso ? Muito Obrigado !

@Daniel Simoes eu tentei usar o comando sim, inclusive usando o spooler do windows com o RAW mas mesmo assim não abriu a gaveta... @BigWings o teste é feito apenas na abertura da gaveta sem impressão, nem esc pos e nem spooler.... Agradeço aos dois pelas dicas, mas acabei achando a solução... Aliás uma das dicas ajudou bastante, de acordo com a informação do @Daniel Simoes referente ao compartilhamento, eu fiz a desinstalação TOTAL da impressora incluindo o spooler, aí instalei ela novamente, mas usando o método de instalação de Porta Serial Virtual, conforme artigo aqui mesmo do fórum, que fizeram para instalação da I7 e I9, e voilá funcionou que é uma beleza, até o ESC POS na impressão que as vezes cortava um pouco no lado direito com a VOX agora está perfeito... Fizemos já em mais 2 outros clientes e está tudo funcionando, inclusive com a abertura da gaveta, usando a porta serial virtual.... Agradeço muito a paciência e ajuda de todos !!! Muito Obrigado !

Coloquei um teste de ativação e a ativação vai rápido mesmo, o que está demorando é o envio do comando para abertura...

Exato, reparei exatamente nisso e retirei no meu sistema isso, achoi que estava indo pq usei da mesma forma que uso para impressão, com uma variável TStringList if g_usa_padrao_gaveta_esc_pos = 'S' then begin {v_texto := TStringList.Create; v_texto.Add('</abre_gaveta>'); MD.ACBrPosPrinterGaveta.Buffer.Add(v_texto.Text); MD.ACBrPosPrinterGaveta.Imprimir; v_texto.Free;} MD.ACBrPosPrinterGaveta.Buffer.Add('</abre_gaveta>'); MD.ACBrPosPrinterGaveta.Imprimir; end else begin {v_texto := TStringList.Create; v_texto.Add('<abre_gaveta>'+IntToStr(g_num_gaveta_esc_pos)+'</abre_gaveta>'); MD.ACBrPosPrinterGaveta.Buffer.Add(v_texto.Text); MD.ACBrPosPrinterGaveta.Imprimir; v_texto.Free;} MD.ACBrPosPrinterGaveta.Buffer.Add('<abre_gaveta>'+IntToStr(g_num_gaveta_esc_pos)+'</abre_gaveta>'); MD.ACBrPosPrinterGaveta.Imprimir; end; Coloquei pra enviar o comando direto no add do método do PosPrinter e gerou um log exatamente igual ao do PosPrinterTeste e mesmo assim não abriu a gaveta !! Segue o log gerado -------------------------------------------------------------------------------- ATIVAR - 28/04/20 09:34:16:971 - Modelo.: EscElgin - TimeOut: 3 - Arquivo: \\localhost\VOX -------------------------------------------------------------------------------- -- 28/04 09:34:16:986 - LerStatusImpressora( 1 ) -- 28/04 09:34:16:986 - stNaoSerial, -- 28/04 09:34:16:986 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 28/04 09:34:16:991 - </abre_gaveta>[LF] -- 28/04 09:34:16:991 - TraduzirTag(</abre_gaveta>) -> [ESC]vn[200] -- 28/04 09:34:16:991 - EnviarStringDevice - Inicializando: [GS][249] [NUL][ESC]2 -- 28/04 09:34:16:991 - EnviarStringDevice( [GS][249] [NUL][ESC]2[ESC]vn[200][LF]) -- 28/04 09:34:25:186 - Desativando a porta: \\localhost\VOX -------------------------------------------------------------------------------- DESATIVAR - 28/04/20 09:34:25:186 -------------------------------------------------------------------------------- Um detalhe, no ativar do PosPrinterTeste está indo rápido, quando dou o comando ativar pelo meu sistema dá um delay de uns 4 segundos e depois libera, no log não acusa este tempo... Estou achando que o problema pode estar na hora de ativar não ? Mas o que pode ser ? Segue código da configuração do componente : MD.ACBrPosPrinterGaveta.Modelo := TACBrPosPrinterModelo(g_modelo_gaveta_esc_pos); MD.ACBrPosPrinterGaveta.Porta := g_porta_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.PaginaDeCodigo := TACBrPosPaginaCodigo(g_pag_cod_gaveta_esc_pos); MD.ACBrPosPrinterGaveta.TraduzirTags := True; MD.ACBrPosPrinterGaveta.ControlePorta := True; MD.ACBrPosPrinterGaveta.EspacoEntreLinhas := 0; MD.ACBrPosPrinterGaveta.LinhasEntreCupons := 0; MD.ACBrPosPrinterGaveta.ArqLOG := ExtractFileDir(Application.ExeName)+'\Logs\Esc Pos\Gaveta\Log '+FormatDateTime('dd-mm-yyyy', Now)+'.txt'; MD.ACBrPosPrinterGaveta.Device.SendBytesCount := g_send_bytes_count_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.Device.SendBytesInterval := g_send_bytes_interval_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.Device.TimeOut := g_time_out_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.Device.Baud := g_baud_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.ConfigGaveta.SinalInvertido := g_sinal_invertido_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.ConfigGaveta.TempoON := g_tempo_on_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.ConfigGaveta.TempoOFF := g_tempo_off_gaveta_esc_pos; MD.ACBrPosPrinterGaveta.Ativar;

Ok. Eu mudei a configuração dos tempos, segue o log : -------------------------------------------------------------------------------- ATIVAR - 28/04/20 09:03:13:259 - Modelo.: EscElgin - TimeOut: 3 - Arquivo: \\localhost\VOX -------------------------------------------------------------------------------- -- 28/04 09:03:13:279 - LerStatusImpressora( 1 ) -- 28/04 09:03:13:279 - stNaoSerial, -- 28/04 09:03:13:279 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 28/04 09:03:13:284 - </abre_gaveta>[CR][LF][LF] -- 28/04 09:03:13:284 - TraduzirTag(</abre_gaveta>) -> [ESC]vn[200] -- 28/04 09:03:13:284 - EnviarStringDevice - Inicializando: [GS][249] [NUL][ESC]2 -- 28/04 09:03:13:284 - EnviarStringDevice( [GS][249] [NUL][ESC]2[ESC]vn[200][LF][LF]) -- 28/04 09:03:21:503 - Desativando a porta: \\localhost\VOX -------------------------------------------------------------------------------- DESATIVAR - 28/04/20 09:03:21:503 -------------------------------------------------------------------------------- Mesmo assim não abriu !

Em todas as outras impressoras e marcas tudo ok, funcionando perfeito, sei que o problema é com meu sistema, só não sei onde estou errando. Só com a vox que não vai...

@Daniel Simoes olha eu voltando mais uma vez com este problema... Ainda não consigo fazer abrir a gaveta usando uma impressora VOX (em todos os clientes, deve ter uns 5 que ainda usam este demônio de impressora velha) Segue o trecho do Log, no PosPrinterTeste eu consigo abrir a gaveta e no meu sistema não.... Log Meu Sistema (Aqui não abre a gaveta) -------------------------------------------------------------------------------- ATIVAR - 27/04/20 18:23:31:659 - Modelo.: EscElgin - TimeOut: 3 - Arquivo: \\localhost\VOX -------------------------------------------------------------------------------- -- 27/04 18:23:31:684 - LerStatusImpressora( 1 ) -- 27/04 18:23:31:684 - stNaoSerial, -- 27/04 18:23:31:684 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 27/04 18:23:31:684 - </abre_gaveta>[CR][LF][LF] -- 27/04 18:23:31:684 - TraduzirTag(</abre_gaveta>) -> [ESC]vnd -- 27/04 18:23:31:684 - EnviarStringDevice - Inicializando: [GS][249] [NUL][ESC]2 -- 27/04 18:23:31:684 - EnviarStringDevice( [GS][249] [NUL][ESC]2[ESC]vnd[LF][LF]) -- 27/04 18:23:39:884 - Desativando a porta: \\localhost\VOX -------------------------------------------------------------------------------- DESATIVAR - 27/04/20 18:23:39:884 -------------------------------------------------------------------------------- Log PosPrinterTeste (Aqui abre a gaveta) -------------------------------------------------------------------------------- ATIVAR - 27/04/20 18:22:29:320 - Modelo.: EscElgin - TimeOut: 3 - Arquivo: \\localhost\VOX -------------------------------------------------------------------------------- -- 27/04 18:22:31:012 - LerStatusImpressora( 1 ) -- 27/04 18:22:31:012 - stNaoSerial, -- 27/04 18:22:31:012 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 27/04 18:22:31:012 - </abre_gaveta>[LF] -- 27/04 18:22:31:017 - TraduzirTag(</abre_gaveta>) -> [ESC]vn[200] -- 27/04 18:22:31:017 - EnviarStringDevice - Inicializando: [GS][249] [NUL][ESC]2 -- 27/04 18:22:31:017 - EnviarStringDevice( [GS][249] [NUL][ESC]2[ESC]vn[200][LF]) -- 27/04 18:22:31:022 - Desativando a porta: \\localhost\VOX -------------------------------------------------------------------------------- DESATIVAR - 27/04/20 18:22:42:724 -------------------------------------------------------------------------------- A única coisa que ví diferente entre os 2 é um [200] em 2 linhas que no meu log não tem, e um [CR][LF] em outra linha, do resto idêntico... Já não sei mais o que fazer !!! Se alguém conseguir me dar uma luz eu agradeço muito (pago um almoço na churrascaria rsssss)....

@Italo Jurisato Junior eu preciso gerar o XML completo para imprimir o evento, gerar um PDF para envio pro Cliente. Por isso preciso do arquivo. A maior dúvida é pq o XML da carta de correção não está sendo gerada no disco !

@EMBarbosa muito obrigado !!! @Italo Jurisato Junior vamos lá, o que ocorreu foi o seguinte, o cliente gerou a NFe e deu erro de consumo indevido, após isso, foi efetuada novamente a mesma NFe, como deu erro de consumo indevido a numeração da NFe não deu sequencia, pois o resultado da entrega da NFe à sefaz foi negativa, como deu erro não sei se a NFe foi recebida pela sefaz, o sistema entende que a NFe não foi efetuada, porém ao gerar novamente a mesma NFe usando o mesmo número, eis que deu erro de Duplicidade de NFe, então paramos e fomos efetuar a consulta MANUALMENTE na sefaz pela chave gerada e no site consta como se a NFe não estivesse emitida, não foi possível encontrar a NFe entregue a SEFAZ, isso ocorreu em TODAS as NFes que emitimos que deram este erro de consumo indevido, vale lembrar que o sistema estava totalmente operacional e estes erros foram aleatórios em alguns clientes, atualizamos os mais críticos com as alterações sugeridas pelo @BigWings, mas em alguns clientes que não estava dando o erro com frequencia, parou sozinho, o que nos leva a crer ter sido um erro no próprio servidor da sefaz, o que fizemos foi pular a numeração pra próxima e refazer a mesma NFe, agora ficou a dúvida, se vc informa que a NFe foi entregue pq não consigo consultar ela ?? O que fizemos foi informar as contabilidades que tivemos problemas com o ws e que as numerações foram puladas no sistema, porém as mesmas serão verificados por eles e as medidas cabíveis serão tomadas, realmente não sei muito bem o que fazer e pelo jeito o que fizemos foi errado.

Conosco aconteceu também, mas pulamos anumeração e informamos a contabilidade de cada cliente o ocorrido. Não sei se este é o procedimento correto, mas foi o que fizemos...

Muito obrigado, aparentemente o problema parou... Ou foi coincidência e o sefaz voltou ao normal... Independente, agradeço a ajuda de todos...

@José M. S. Junior no componente ACBrNFe onde eu mudo estas configurações ? Pois nunca usei isso...

Tentamos contato com a sefaz sp e nos informaram que não há qualquer problemas com o ws ou os servidores. O mais engraçado é que não ocorre o problema com todos os clientes, só alguns... Tem cliente que não consegue emitir nenhuma NF e outros estão emitindo normalmente... O pessoal do sefaz é mais perdido que nós nestas questões...

Entendi, agradeço a explicação.. Muito Obrigado a ambos, por favor moderador pode finalizar o tópico...

Show. Funcionou perfeitamente..... @Daniel Simoes realmente acredito ser coincidência sim, somente em 1 cliente e uma única vez ocorreu... Após a alteração sugerida pelo @EMBarbosa fluiu bem.. Só uma última dúvida, por qual motivo é necessário este número de sessão, já que ele é randômico e pode se repetir, desde que não tenha ocorrido nas últimas 100 sessões ?

Não implemento não, deveria ??? Se sim, como proceder ?