amarildolacerda

Atribui o PosPrinter.LinhasBuffer := 25 e verifica se funciona.

No arquivo de inicialização: [Alíquotas] *** Estava errado 00=1|FF|0|T|0| 01=2|NN|0|T|0| * ItemCupom.PosAliq = 1 02=3|II|0|T|0| * ItemCupom.PosAliq = 2 Correto deveria ser: [Alíquotas] **** Esta Correto (depois da alteração) 00=1|FF|0|T|0| 01=2|II|0|T|0| 02=3|NN|0|T|0| -------------------------------------------------------------------------------------- Na Virtual SAT: AliqECF := fpAliquotas[ ItemCupom.PosAliq ]; Det.Prod.CFOP := '5102'; Det.Imposto.ICMS.CST := cst00; Det.Imposto.ICMS.pICMS := AliqECF.Aliquota; if ItemCupom.PosAliq = 0 then // FF begin Det.Prod.CFOP := '5405'; Det.Imposto.ICMS.CST := cst60; end else if ItemCupom.PosAliq = 1 then // II ************** esta correto begin Det.Imposto.ICMS.CST := cst40; end else if ItemCupom.PosAliq = 2 then // NN begin Det.Imposto.ICMS.CST := cst41; end ----------------------------------------------------------------------------------- Nota que quanto ele monta o XML, ele pega a posição fixa do registrado "else if ItemCupom.PosAliq = 1 then // II" ( no arquivo de inicialização estava na PosAliq=2 para o II) Se o cadastro de inicialização foi feito trocado FF, NN, II..... então a posição fixa vai trocar no XML.... Para testar, basta vender um item NN e olhar o CST que vai no XLM... vc vai notar que o CST estar trocado entre o II e o NN... porque o arquivo de inicialização não esta na sequencia esperada. ( um esta indo no lugar do outro ); ------------------------------------------------------------------------------------------------ No relatório X (esta correto), Add( PadSpace('Isencao (II)|'+FormatFloat('###,###,##0.00', fpAliquotas[1].Total ), Colunas,'|') ) ; Add( PadSpace('Nao Incidencia (NN)|'+FormatFloat('###,###,##0.00', fpAliquotas[2].Total ), Colunas,'|') ) ;

Fiz a leitura das alterações... não vi problema.. Não tenho como testar hoje - so vou poder faze-lo na semana que vem. Da minha parte pode subir;

O método: procedure TACBrECFVirtualClass.CriarMemoriaInicial; -> esta inicializando a sequencia FF, NN, II -> correto é: FF, II, NN Em função disto, o XML do SAT esta indicando CST errada, assim como o relatório X,Z; Corrigido no fonte anexo. (Precisa verifica se tem impacto em outros projetos Ex: NFCe) ACBrECFVirtual.pas

(Trunk2) - Implementado o método: CancelaItemNaoFiscal que não estava implementado; - Corrige impressão de cheque. A Epson requer o envio do layout de cheque antes de utilizar de iniciar a impressão do cheque. ACBrECFEpson.pas

Não tenho registro do problema onde utilizamos esta impressora. Deve ser alguma coisa de conexão.

Não é porque o dia não tem movimento ? Vc não indicou qual a impressora, acho que é a Bematech 2100 que não retorna a data se o dia não foi aberto ainda..

Constatamos que a correção ainda não foi aplicada. Alguém sabe de novidades sobre o assunto?

Eu também concordo que deve reduzir o trabalho.... Estou de acordo que não terá mais suporte. A questão é que o codigo ainda esta no trunk2 e ele não esta funcionando. Deixar ele lá sem compatibilidade com o trunk2 é pior. Se vai deixar ele lá, pelo menos deixa algo que esteja funcionando, e ai .... "não estamos mais dando suporte"... Se não vai corrigir nem o que já tinha, então melhor remover ele do trunk2.

Verificamos que a impressora EPSON TM-T20, consegue imprimir se o código for impresso em 1 linha, e inclui a tag <code128c> na lista de tags não suportada; Já na TM-T88IV, deve mudar para imprimir a chave em 2 linhas.

Inicia uma TCriticalSection para controlar o fluxo (fila). Ela precisa sem global no servidor e todas as chamadas utilizar a mesma instancia. var FLock : TCriticalSection; ....... FLock.acquire; try Codigo..... Finally FLock.release; end;

Código alterado com a correção ACBrSATClass.pas

Alterado para permitir configurar um pasta em uma árvore de pasta "configurável". Incluído propriedade: TACBrSATConfigArquivos.MascaraPath Incluído propriedade: TACBrSATConfigArquivos.SepararPorSerie (usado para formatar uma mascara quando não informado a mascara); Se não for informado a mascara, irá montar uma sequência no formado existe seguindo os parâmetros configurados ( on - off ); Palavras chaves para substituição na mascara: {tipo} -> indica "venda, cancelamento....." {cnpj} -> substitui pelo cnpj {serie} -> palavra nova incluído na implementação {anomes} -> substitui pelo AAAAMM Exemplo de uma máscara: {tipo}\{cnpj}\{serie}\{anomes} (OBS: não consegui excluir o anexo.... ) Alterar Linha 440: if EstaVazio(APath) then Dir := PathWithDelim(extractFilePath(PastaCFeVenda)) + StringReplace( fsMascaraPath,'{tipo}', ExtractFileName(PastaCFeVenda),[]) else Dir := PathWithDelim(extractFilePath(APath)) + StringReplace( fsMascaraPath,'{tipo}', ExtractFileName(APath),[]); ACBrSATClass.pas

Incluido totalizador para separar o cancelamento de CFe assinados e Não gerados XML; ACBrECFVirtual.pas ACBrECFClass.pas

Daniel, "a", sim. "b", talvez o argumento sobre a necessidade da contabilidade importar todos, não seja o mais apropriado, mesmo assim, separar iria facilitar o trabalho e ficar mais claro quem é quem dentre os XMLs. Será que ninguém mais teve problema com os arquivos !!!

Observando necessidades de campo notei: a. seria interessante separar o total de cancelamento do dia dos cupom: Cupom em Andamento x Cupom Transmitido; b. quando cancela um cupom que ja foi transmitido, mover o XML original da venda para a pasta de cancelados. Isto vai evitar algum desavisado em lançar um cupom (que esta na pasta de venda) como venda, sendo que tem outro XML de cancelamento do mesmo. Algumas contabiliadades não conseguem importar o cupom de cancelamento - so importam as vendas, e separar os XML que estao na posta de venda, é trabalhoso. Se estiverem de acordo, posso fazer as alteraçoes.

Alterado o codigo que estava copiando o GTAtual para a Venda Bruta ACBrECFVirtual.pas

Baixei o trunk2 hoje, e notei que os codigo do RAVE ainda não foram atualizados para o trunk2. Alguma previsão ? Posso ajudar em alguma coisa ?

Quando emite Redução Z, sai a data da emissão, mas não saia a data a que se refere o movimento. Alterado para imprimir a Data de Movimento ACBrECFVirtualBuffer.pas

Olhando a especificação, como sugerido,.... vc notará que não existe FRETE no SAT.. o que tem de mais próximo é uma TAG vOutro (no Item ID=W10 "Valor Total de Outras Despesas acessórias sobre Item" )...

Resolvido. Já tinha conferido a assinatura, até recortei e fui no site para validar e estava dando OK..... (antes de escrever o post) Mas olhando com olhos de águia.... nosso pessoal notou que tinha uns espaços em branco na assinatura.... acertamos isto. O problema não ocorria no laboratório, o que sempre dificulta nestas situações... enfim... Agora vamos fazer novos testes. ET: não tem como marcar Resolvido no post ?

150917164344|SAT|info|Comando recebido EnviarDadosVenda (ns 921370) 20150917164344|AC-SAT|info|Envio de dados venda 20150917164345|SAT-AC|info|Venda realizada com sucesso 20150917164406|SAT|info|Mensagem recebida do AC 20150917164406|SAT|info|Comando recebido CancelarUltimaVenda (ns 327736) 20150917164406|AC-SAT|info|Pedido de cancelamento de venda 20150917164406|SAT|info|CFe Inválido - Erro 1999 Campo: /CFeCanc/infCFe/ide/signAC 20150917164406|SAT|info|Não é valido. Erro n°: 1999 20150917164406|SAT-AC|erro|Erro na realização do cancelamento 20150917164753|SAT|info|Mensagem recebida do AC 20150917164753|SAT|info|Comando recebido ConsultarStatusOperacional (ns 338039)

Olhando os XML de envio não encontrei nada estranho... Este erro ocorre em um GERTEC - 17:20:46:500 - ACBrSAT.DesInicializado - 17:21:04:046 - ACBrSAT.Inicializado - 17:21:04:046 - -- 17:21:04:046 - numeroSessao: 681179 - Comando: CancelarUltimaVenda( CFe351509XXXXX1004000213590000064500123481654084, <?xml version="1.0" encoding="UTF-8"?><CFeCanc><infCFe chCanc="CFe351509XXXXX1004000213590000064500123481654084"><ide><CNPJ>XXXXX527000113</CNPJ><signAC>eeAE6sUOMQJbdvVmtiPgZ3IKX7qJ0cYpBm0c9WSSvFqDk8okPFkY8tRiDDUFGLxtrQGAlrLpb4gpKhmHkL8IGDnbnSY9JXJWDi3kYc5hSJRZXQUtpstYcinfkqrC ikCBYRMfUIMrP/r7O94mJMalcCKzRkSatjheCXcCFdJSVqW0Xr2aSikNAhbwavbbSCJ3Jf17vAOGAF/UQVK zIyWbGs9aofdTGoUVfNUqmwFR6C619mBC/Lfgb7rpSP00vfgWvf4WvMnZLZU0Py2Cyc1zydbPPsv46YepnHzVqr4poGlzVyF15yCBDHZtAMeQN4m6hfPDOKRPWBD1CRSh1vjA==</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest></dest><total></total></infCFe></CFeCanc> ) - 17:21:05:031 - NumeroSessao: 681179 - Resposta:681179|07099|0000|Erro desconhecido no cancelamento|| - 17:21:05:031 - ACBrSAT.DesInicializado

Olá Marcelo, Fiz as implementações considerando o fluxo já indicado no post anterior. Na bancada ficou bem legal - Agora estou submetendo para avaliação com nosso pessoal de testes. Por enquanto ainda não tenho resposta, só sei que eles já iniciaram a avaliação inicial. Pretendo obter algumas respostas importantes, para estabelecer os limites de uso desta solução, já que haverá uma concorrência pelo serviço no servidor. Alguns pontos: - como ocorrerá concorrência para aprovação simultânea por vários PDVs ao mesmo tempo; - qual o limite de tempo de espera na fila é aceitável; - se há um limite de PDVs que seja confortável utilizar esta solução; - como se comportar com cupons de vários itens (ex: 100 itens por cupons) - creio que é possível fazer uma distribuição por mais de um servidor formando uma espécie de "cluster" colaborando um com outro (talvez utópico). Eu já dei uma olhado no Monitor Plus, mas ele não tem projeto para DELPHI, então desisti da idéia de implementar isto lá, já que não trabalho com a ferramenta e fazer para DELPHI é algo que não cabe no tempo que tenho. Se alguém tiver interesse, pode faze-lo usando DataSnap..... claro... tem outras formas também. Você pode considerar, que o código atual do ACBr do SAT, já permite realizar a solução. Só precisa trabalhar um pouco no controle do servidor. Trabalhar em solução multithreaded é um grande desafio, mas é possível.

Baixei a versão de avaliação do Delphi DX10 que esta disponível no site da embarcadero. Ele não vem com ferramenta de prompt para compilação dos pacotes, ou seja, não dá para utilizar o instalador (Trunk2). Para compilar e registrar as BPLs fiz manualmente. Anexo "groupproj" que ordena as compilações e permite fazer o registro manual das bibliotecas. Trunk2.groupproj