joaolenosi

Muitíssimo obrigado! Já estou lendo aqui uns tópicos no forum sobre o assunto. Vou atualizar o componente mesmo e da uma estudada no DEMO. (Y)

Vamos supor que se eu ainda quisesse continuar com os componentes da forma como está hoje(Desatualizado), e eu quisesse fazer uma solução paliativa do modo de envio SCAN para SVC. Seria desta forma? Exemplo: O usuário do RN quer soliciar o status do serviço Ele usaria essa url: LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.svc.fazenda.gov.br/NfeConsulta2/NfeConsulta2.asmx'); Ao invés desta: LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx'); Correto? Italo, se disse que não existe mais a um bom tempo? Pois antes do dia 01/10/2015 nós ainda usávamos. Como pode? Fiz o download do ACBr "trunk" e as urls estão desatualizada. O repositório trunk mais atualizado é esse aqui?

Foda, acho que vai ser o jeito atualizar os componentes

Sério? Todos os nossos clientes não estão conseguindo enviar nota fiscal, devido a sefaz está em contingência, aí o sistema está indo para o modo SCAN. O que substituiu ele? Queria uma solução temporária, pois para atualizar os componentes nesse exato momento não dá, pois temos algumas correções nos componentes que vocês não possuem. O que eu posso usar para enviar a nota fiscal enquanto a sefaz está em contingência?

Boa tarde! Meu componente ACBr está desatualizado e a minha unit que contém as urls é ACBrNFeUtil.pas Já atualizei quase todo o arquivo, falta só as urls do mode de envio SCAN. 3 : begin case ALayOut of LayNfeRecepcao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeRecepcao2/NfeRecepcao2.asmx'); LayNfeRetRecepcao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeRetRecepcao2/NfeRetRecepcao2.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeRetRecepcao2/NfeRetRecepcao2.asmx'); LayNfeCancelamento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeCancelamento2/NfeCancelamento2.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeCancelamento2/NfeCancelamento2.asmx'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeInutilizacao2/NfeInutilizacao2.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeInutilizacao2/NfeInutilizacao2.asmx'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeConsulta2/NfeConsulta2.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeConsulta2/NfeConsulta2.asmx'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeStatusServico2/NfeStatusServico2.asmx'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/RecepcaoEvento/RecepcaoEvento.asmx'); LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeAutorizacao/NfeAutorizacao.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeAutorizacao/NfeAutorizacao.asmx'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/NfeRetAutorizacao/NfeRetAutorizacao.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/NfeRetAutorizacao/NfeRetAutorizacao.asmx'); end; end; Eu substituo essas urls por qual desta lista? http://www.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs=

Valeu amigo, deu certo! Tive que fazer uns ajustes para ficar do jeito que eu queria. Vou documentar aqui no forum a solução completa, caso alguém um dia precise. Adicionei essa procedure: procedure TfrmTelaPDV.LoadDocFromString(ABrowser: TWebBrowser; const HTMLString: WideString); var v: OleVariant; HTMLDocument: IHTMLDocument2; begin if not Assigned(ABrowser.Document) then begin ABrowser.Navigate('about:blank'); while ABrowser.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; end; HTMLDocument := ABrowser.Document as IHTMLDocument2; v := VarArrayCreate([0, 0], varVariant); v[0] := HTMLString; HTMLDocument.Write(PSafeArray(TVarData(v).VArray)); HTMLDocument.Close; end; Adicionei essa function: function TfrmTelaPDV.ColorToHTML(const Color: TColor): string; var ColorRGB: Integer; begin ColorRGB := ColorToRGB(Color); Result := Format('#%0.2X%0.2X%0.2X', [GetRValue(ColorRGB), GetGValue(ColorRGB), GetBValue(ColorRGB)]); end; Criei essa outra function para converter cores em RGB. function TfrmTelaPDV.HexToTColor(sColor : string) : TColor; begin Result := RGB( StrToInt('$'+Copy(sColor, 1, 2)), StrToInt('$'+Copy(sColor, 3, 2)), StrToInt('$'+Copy(sColor, 5, 2))) ; end; Na procedure WB_LoadHTML eu concatenei o HTMLCode com um código CSS que aplica uma determinada cor, retira as bordas e as barras de rolagem. procedure TfrmTelaPDV.WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate('about:blank'); LoadDocFromString(wbBobina, Format('<body style="background-color:%s; scrollbar-base-color:%s; overflow:hidden; border-style: none; "/>', [ColorToHTML(HexToTColor('ffffc8')), ColorToHTML(HexToTColor('ffffc8'))])); while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try sl.Text := HTMLCode + '<body style="background-color:#ffffc8; scrollbar-base-color:%s; overflow:hidden; border-style: none; "/>'; sl.SaveToStream(ms); ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)); finally ms.Free; end; finally sl.Free; end; end; end; No evento FormActive do formulário realizei a chamada da função da seguinte forma: LoadDocFromString(wbBobina, Format('<body style="background-color:%s; scrollbar-base-color:%s; overflow:hidden; border-style: none; "/>', [ColorToHTML(HexToTColor('ffffc8')), ColorToHTML(HexToTColor('ffffc8'))])); Ficou Show de bola. O resultado final: Onde que marca como RESOLVIDO?

Hum. Tentei mudar a cor aplicando o seguinte código: <bgcolor="FF0000"> Mas não funcionou, acredito que deva existir uma sintaxe específica do ACBr para realizar a alteração das cores.

Só com essas informações é quase impossível alguém te ajudar. Já tentou debugar? Forneça mais detalhes sobre o erro.

No componente ACBrEcf o meu MemoParams, está da seguinte forma: [Cabecalho] LIN000=<center><b>Nome da Empresa</b></center> LIN001=<center>Nome da Rua , 1234 - Bairro</center> LIN002=<center>Cidade - UF - 99999-999</center> LIN003=<center>CNPJ: 01.234.567/0001-22 IE: 012.345.678.90</center> LIN004=<table width=100%><tr><td align=left><code>Data</code> <code>Hora</code></td><td align=right>COO: <b><code>NumCupom</code></b></td></tr></table> LIN005=<hr> [Cabecalho_Item] LIN000=ITEM CODIGO DESCRICAO LIN001=QTD x UNITARIO Aliq VALOR (R$) LIN002=<hr> MascaraItem=III CCCCCCCCCCCCCC DDDDDDDDDDDDDDDDDDDDDDDDDDDDDQQQQQQQQ UU x VVVVVVVVVVVVV AAAAAA TTTTTTTTTTTTT [Rodape] LIN000=<hr> LIN001=<table width=100%><tr><td align=left><code>Data</code> <code>Hora</code></td><td align=right>Projeto ACBr: <b><code>ACBR</code></b></td></tr></table> LIN002=<center>Obrigado Volte Sempre</center> LIN003=<hr> [Formato] Colunas=48 HTML=1 HTML_Title_Size=4 HTML_Font=<font size="5" face="Lucida Console"> Penso que deve ser algo do tipo: bgcolor="FF0000"

Lunar Tecnologia da Informação LTDA. Nome Comerc.: NF-E / PAF-ECF LUNAR Versão......: 5.0 ER-PAF-ECF..: 02.03 Laudo: UNP1482015 Contato: João Leno

Bom dia! Estou fazendo o PDV e gostaria de alterar a cor de background daquele WebBrowser (wbBobina) que é reflexo do cupom? Como posso fazer isso?

Em qual tabela você se refere? Qualquer tabela do PAF-ECF deve implicar em evidenciar ? o campo "razão social"? Exemplo: Venda, Nota fiscal, produto, etc.

Bom dia! Alguém poderia me explicar como esse teste é realizado? Eu tenho que excluir ou incluir qual informação do banco de dados? O meu registro do tipo U1 está sendo alimentado da seguinte forma: /// REGISTRO TIPO U1 - IDENTIFICAÇÃO DO ESTABELECIMENTO USUÁRIO DO PAF-ECF: with frmMenu.PAF1.PAF_U.RegistroU1 do begin CNPJ := SomenteNumeros( dm.query5.fieldbyname('emp_cnpj').asstring);/// CNPJ do estabelecimento usuário do PAF-ECF IE := dm.query5.fieldbyname('emp_insc').asstring;// Inscrição Estadual do estabelecimento IM := dm.query5.fieldbyname('emp_im').asstring;// Inscrição Municipal do estabelecimento RAZAOSOCIAL := dm.query5.fieldbyname('emp_nm').asstring;// Razão Social do estabelecimento if dm.query5.fieldbyname('emp_encript').asstring = EnDecryptString(dm.query5.fieldbyname('emp_cnpj').asstring + ConsultaLookup(dm.ADOConnection1, 'ecf', 'ecf_numserie' , ' WHERE ecf_emp_cd = '+q(dm.query5.fieldbyname('emp_cnpj').asstring)),1808) then InclusaoExclusao := true else InclusaoExclusao := false; end; Depois eu criptografo o CNPJ da empresa com o Número de série do ECF, e comparo com o que está armazenado no banco de dados desta forma identificando se o registro foi alterado ou não; Resumindo, para esse teste da certo eu teria que alterar o número do CNPJ ou o número de série do ECF. Não sei se compreendi bem o requisito!

Entendi. Vou perguntar ao homologador. Mas me fala aí, no local onde você homologa como é feito esse teste?

Bom dia! Pessoal estou com uma dúvida em relação ao requisito XXXI item 4. Antigamente quando existia o "Roteiro de análise funcional de programa aplicativo fiscal - emissor de cupom fiscal ER 02.02", esse teste era claro, pois o documento dizia exatamente qual campo que deveria ser alterado no banco de dados para quando gerar o arquivo "Registros do PAF-ECF" estar presente o caracter ?, para identificar que o registro foi alterado. Aí a minha dúvida é a seguinte, como não existe mais roteiro de análise funcional, os requisitos devem ser realizados através de interpretação? Se for, subentende-se que qualquer campo alterado de determinando registro, deve ser identificados como alterado, quando se gerar o arquivo, correto?

O layout provavelmente só sai em Setembro, por tanto, não adianta desenvolver agora.

Bom dia, venho compartilhar com vocês o novo perfil de requisitos do estado do RN. Segue o e-mail do homologador. Arquivo: https://drive.google.com/file/d/0B0sXNyiki7MpNEN0SHR6a3ZCd0U/view?usp=sharing

Bom dia! Falei com o homologador sexta-feira. Segue o áudio que recebi no whats app explicando essas questões. https://drive.google.com/open?id=0B0sXNyiki7MpVzRXTndIOFRvRTA

Mozart, você poderia postar oficio?

Cara, eu entrei em contato com a homologadora da Universidade Federal de Goiás (UFG), onde moro, e o que eles disseram é que a SEFAZ de Santa Catarina mandou um oficio "desobrigando" a utilização do Bloco X da ER 02.03, por enquanto. Segundo eles não está totalmente completo os requisitos do Bloco X, pois para enviar os arquivos dos itens 20, 21 e 22 do Requisito VII, é preciso de um servidor do estado ou nacional, não sei, para recepcionar os arquivos. Estou no aguardo para ver o que mais sai. Esse site https://www.legisweb.com.br/ passa informações diariamente de alterações nacionais e estaduais importantes. Nele achei a nova ER, e estou acompanhando também. Tem esse documento https://www.confaz.fazenda.gov.br/legislacao/atos/atos_cotepe/2015/ato-cotepe-icms-23-15 , oficial da CONFAZ, no fim dele tem uma sitação... “§3º Em relação a versão 02.03 da ER-PAF-ECF, poderá ser publicado, excepcionalmente em 2015, mais de um Ato COTEPE para sua complementação, exclusivamente em relação a requisitos do Bloco X ou por ele afetados, e ainda de PAF-ECF ou Sistema de Gestão utilizados para controles das empresas de transportes de passageiros.” Art. 3º Este ato entra em vigor na data de sua publicação no Diário Oficial da União, produzindo efeitos a partir do primeiro dia do segundo mês subsequente ao da publicação. Vamos ver o que vai dar... Muito obrigado pela a informação. Eu perguntei ao meu homologador, mas ele ainda não respondeu. Quando ele responder eu posto aqui também.

Não lembro de ver nada na ER e não encontrei nada lendo que obrigue a gravação disso em formato binário. Existe sim quais dados devem ser gerados nos arquivos, mas nada falando sobre salvá-los em um formato específico. Essa informação que passei, foram dita pelo o homologador de Natal/RN Coordenador do projeto de homologação de sistemas PAF ECF. Embora que não seja obrigado, é bom deixar os dados no formato cru(binário), assim diz ele.

"Vendas identificadas pelo o CPF/CNPJ" pertence a um novo item do Menu Fiscal? Também me deparei com esse requisito. Outra dúvida, na geração desse arquivo eletrônico, eu posso gerar apenas um CPF ou CNPJ por vez? ou posso gerar de todos os clientes em um único arquivo?

Adendo, embora que ainda não tenha layout definido e nem meios de transmissão disponível no momento, esses dados devem ser tratados e salvos em formato binário.

As vendas concomitantes são pré-venda ou DAV?

As vendas no PDV são concomitantes. Mas entendi, vou ter que fazer todos os testes mesmo. Obrigado!