Digito Sistemas

Pessoal obrigado. Já resolvi aqui. O problema é que os vBCST e vBCSTRet são coisas diferentes, não posso informar o somatório do vBCSTRet no vBCST.O total do vBCST corresponde ao somatório dos vBCST dos produtos. Estava informando <ICMSSN500> vou orientar o cliente a usar o <ICMSSN201>

Onde está o erro? Esta me retornando 533-Rejeição: Total BC ICMS St - Difere do somatório dos Itens. Origem: GO - Micro Empresa Destino: SP ... <det nItem="1"> <prod> <cProd>000401</cProd> <cEAN /> <xProd>ARRUELA ENCOSTO DIANTEIRO FINO</xProd> <NCM>73182100</NCM> <CFOP>6403</CFOP> <uCom>PC</uCom> <qCom>8</qCom> <vUnCom>3.0000</vUnCom> <vProd>24.00</vProd> <cEANTrib /> <uTrib>PC</uTrib> <qTrib>8.0000</qTrib> <vUnTrib>3.0000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>8.49</vTotTrib> <ICMS> <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <vBCSTRet>24.00</vBCSTRet> **** <vICMSSTRet>1.68</vICMSSTRet> </ICMSSN500> </ICMS> ... <det nItem="2"> <prod> <cProd>000029</cProd> <cEAN /> <xProd>PINO MOLA DIANTEIRO CEMENTADO</xProd> <NCM>87169090</NCM> <CFOP>6403</CFOP> <uCom>PC</uCom> <qCom>6</qCom> <vUnCom>19.0000</vUnCom> <vProd>114.00</vProd> <cEANTrib /> <uTrib>PC</uTrib> <qTrib>6.0000</qTrib> <vUnTrib>19.0000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>18.46</vTotTrib> <ICMS> <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <vBCSTRet>114.00</vBCSTRet> *** <vICMSSTRet>7.98</vICMSSTRet> </ICMSSN500> </ICMS> ... <det nItem="3"> <prod> <cProd>002215</cProd> <cEAN /> <xProd>GRAXEIRO 3/8 RETO</xProd> <NCM>73261900</NCM> <CFOP>6403</CFOP> <uCom>PC</uCom> <qCom>6</qCom> <vUnCom>2.0000</vUnCom> <vProd>12.00</vProd> <cEANTrib /> <uTrib>PC</uTrib> <qTrib>6.0000</qTrib> <vUnTrib>2.0000</vUnTrib> <indTot>1</indTot> </prod> <imposto> <vTotTrib>4.18</vTotTrib> <ICMS> <ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> <vBCSTRet>12.00</vBCSTRet> *** <vICMSSTRet>0.84</vICMSSTRet> </ICMSSN500> </ICMS> ... <total> <ICMSTot> <vBC>0.00</vBC> <vICMS>0.00</vICMS> <vICMSDeson>0.00</vICMSDeson> <vBCST>150.00</vBCST> <vST>10.50</vST> <vProd>150.00</vProd> <vFrete>0.00</vFrete> <vSeg>0</vSeg> <vDesc>0.00</vDesc> <vII>0</vII> <vIPI>0.00</vIPI> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>160.50</vNF> <vTotTrib>31.13</vTotTrib> </ICMSTot> </total> Somando os 3 itens (12,00 + 24,00 + 114,00) = 150,00 não estou conseguindo entender.

Carlos obrigado pela dica. Sim eu tenho o Token só que não estou sabendo como passá-lo. Estou precisando de mais esta dica. Pois está me retornando o código "HTTP Status 40- Unauthorized" conforme imagem em anexo.

Ninguém?

Mudei o meu código para Var Response: TStringStream; Arquivo: TIdMultipartFormDataStream; begin Response := TStringStream.Create(''); Arquivo := TIdMultiPartFormDataStream.Create; Try Arquivo.AddFile('xml', 'c:\ancine.xml', 'xml/text'); IdHTTP.Request.CustomHeaders.Clear; IdHTTP.Request.Clear; IdHTTP.Request.BasicAuthentication := True; IdHTTP.Request.Authentication := TIdBasicAuthentication.Create; IdHTTP.Request.Accept := 'text/xml'; IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; IdHTTP.Request.ContentEncoding := 'multipart/form-data'; IdHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; IdHTTP.Request.URL := 'http://scbcertificacao.ancine.gov.br/scb/v1.0/'; IdHTTP.Request.Host := 'http://scbcertificacao.ancine.gov.br/scb/v1.0/'; IdHTTP.Request.Referer := 'http://scbcertificacao.ancine.gov.br/scb/v1.0/'; IdHTTP.Request.Method := 'POST'; IdHTTP.Request.Authentication.Username:= 'meuusername'; IdHTTP.Request.Authentication.Password:= 'meupassword'; Try screen.cursor := crSQLWait; Panel1.Visible := True; Refresh; IdHTTP.Post('https://scb.ancine.gov.br/scb/v1.0/bilheterias', Arquivo, Response); ShowMessage(Response.DataString); except on E: Exception do Begin Screen.Cursor := CrDefault; IdHTTP.Disconnect; if pos('400',E.Message) > 0 then ShowMessage('400 – Requisição ruim: A requisição não pôde ser interpretada pelo servidor em razão de erros de formato/sintaxe.') Else if pos('401',E.Message) > 0 then ShowMessage('401 – Não autorizado: A requisição requer autenticação por parte do cliente e as informações de autenticação não foram localizadas ou não são válidas.') Else ShowMessage(e.message); Panel1.Visible := False; end; end; finally Response.Free(); Arquivo.Free(); Panel1.Visible := False; Panel1.Caption := 'Tentando conexão com o ANCINE'; Screen.Cursor := CrDefault; end; Esta retornando o código: procedure TForm1.IdHTTPConnected(Sender: TObject); begin Panel1.Caption := 'Conectado ao ANCINE'; Refresh; Sleep(1000); end; Parece-me que está conectando: Como faço para passar a autorização? Authorization: QWxhZGRpbjpvcGVuIHNlc2FtZQ

Estou precisando de enviar um arquivo XML para um WebService e estou tendo algumas dificuldades. Estou quebrando a cabeça, e tenho poucos dias para conseguir transmitir os arquivos. Então, pensei que talvez alguém do suporte possa me dar uma luz.Tenho o seguinte cenário:* Enviar uma requisição HTTP completa para o web service do SCB que deverá conter os headers semelhantes ao exemplo abaixo:POST /scb/v1.0/bilheterias HTTP/1.1 Authorization: QWxhZGRpbjpvcGVuIHNlc2FtZQ Content-Type: application/json* web service SCB segue o padrão RESTURL: https://scb.ancine.gov.br/scb/v1.0/bilheterias Método HTTP: POSTMeu código: procedure TForm1.BtTransmiteClick(Sender: TObject); Var Response: TStringStream; Arquivo: TIdMultipartFormDataStream; begin Response := TStringStream.Create(''); Arquivo := TIdMultiPartFormDataStream.Create; Try Arquivo.AddFile('xml', 'c:\ancine.xml', 'xml/text'); IdHTTP.Request.CustomHeaders.Clear; IdHTTP.Request.Clear; IdHTTP.Request.Accept := 'text/xml'; IdHTTP.Request.ContentType := 'text/xml'; IdHTTP.Request.BasicAuthentication := True; IdHTTP.Request.Authentication := TIdBasicAuthentication.Create; IdHTTP.Request.Authentication.Password:= 'QWxhZGRpbjpvcGVuIHNlc2FtZQ'; IdHTTP.Request.Authentication.Username:= 'admin'; IdHTTP.Request.ContentEncoding := 'utf-8'; IdHTTP.Request.Referer := '/scb/v1.0/bilheterias HTTP/1.1'; IdHTTP.Post('http://scbcertificacao.ancine.gov.br/scb/v1.0/', Arquivo, Response); finally ShowMessage(Response.DataString); Response.Free(); Arquivo.Free() end; end; Componentes que estou utilizando:TIdHTTPTIdSSLIOHandlerSocketQuando estou enviando o arquivo me Retorna o erro socket #10061 Connection refused Desde já agradeço

Bom Dia!Ao final do dia (18:00) vou emitir a redução Z e o ACbr me retorna a mensagem que existe cupom fiscal aberto. No outro dia ao abrir o PDV é requerido a redução Z, ai imprimi.Mas quando peço para imprimir a Leitura X me retorna a mensagem de "Cupom fiscal aberto", mas eu entro no modo de vendas de cupom, eu consigo fazer impressão normalmente.Onde será o problema na ECF? No Banco de Dados? Ou outros?Como contornar isso? Desde já agradeço.

Esqueci de mencionar que no outro dia eu consigo imprimir a Redução Z. Mas quando peço para imitir a leitura X é retornado a mensagem "Cupom Fiscal Aberto" e não deixa imprimir. Desde já agradeço.

Bom Dia! Minha situação acho que se encaixa nesse tópico: Ao final do dia (18:00) vou emitir a redução Z e o ACbr me retorna a mensagem que existe cupom fiscal aberto, mas se eu entrar no modo de vendas cupom, eu consigo fazer outro normalmente. Onde será o problema na ECF? Banco de Dados? Componente? Como contornar isso?

Me deu um branco aqui. Como faço para imprimir a mensagem; Quando mando imprimir um boleto e o mesmo tem algum tipo de erro, em tempo de execução, não é apresentada ao usuário. Ex: Simplesmente não imprimi. O usuário fica sem saber o que deu errado. Como faço para mostrar a mensagem sem ter que mexer no fonte ACBRBoleto?

É, Mas nem sempre é o que acontece. O pior de tudo é que para a empresa não perder para o concorrente, que as vezes até usa o emissor gratuito, ele acaba aceitando fazer o CTe sem o XML. Além disso tem o problema que mencionei acima (a empresa fatura sem colocar os dados do transportador) ocasionando o problema de não conseguir fazer o download do xml.

Bom Dia, Renovando o assunto de fazer o Donwload da NFe. Acho que ainda há muitas dúvidas (inclusive a minha), pois veja bem, 1) Tenho um software da transportadora, e queria baixar o XML para facilitar a digitação do usuário, onde ele informa a chave de acesso e os dados do remetente e destinatário já sai preenchidos. Ao tentar baixar o XML a transportadora, em muitos casos, não é a indicada na NFe. O Emitente as vezes não informa o CNPJ da transportadora ou informa de outra e resolve mudar porque "n" motivos. Como vocês estão resolvendo este problema? 2) Não sei se vocês já viram este http://fsist.com.br/ mas nele qualquer um com pode, basta ter chave de acesso que consegue baixar o XML. Como ele consegue fazer isso e o "nosso" ACBr não pode? Desde já agradeço.

Boa tarde, É isso, mesmo. Fiz pelo ECFTeste e imprimiu a redução. Obrigado.

Boa Tarde, Confesso que ainda sou meio crú no quisito PAF-ECF, isso me obriga a recorrer aos nobres colegas, para me ajudar no seguinte problema: Meu cliente estava fazendo um cupom fiscal, e acabou a energia. Quando a energia foi restabelecida, cancelou o cupom que estava sendo feito, Fizemos mais algumas vendas normalmente. Ao final do dia, ao pedir para fazer a redução Z, a impressora começa a imprimir o cupom que estava sendo feito no momento da queda de energia. E não consigo emitir a redução Z. Pergunta: Esse problema é do meu software ou problema na impressora? Desde já agradeço.

Ainda não consegui resolver a parada. Imprimi a Leitura X é percebi no tipo de pagamento tenho: 01-Dinheiro 02-Cheque 03-TEF Cartão Debito 04-TEF Cartão Crédito Acho que meu aplicativo está buscando o indice 02 como cheque. Vou mudar aqui e posto o resultado.

Boa Noite, Estou tentando configurar o TEF Dedicado (Sitef). A impressora fiscal é a bematech e o pindpad é da gertec. O programa já está funcionando. Esse é o primeiro que instalo no Dedicado. No discado faz o parcelamento normal.

Obrigado pelas respostas, Sou um tanto inexperiente nesta área do TEF e e não estou entendendo o seguinte: Quando vcs falam da "certificadora" é a certificadora do cartão TEF certo? > Se tiver certo, a minha dúvida é a seguinte tenho os seguintes programas: PDV.exe - é um programa para testes que baixei da internet que vc pode testar a venda com cartão, dinheiro, chama o admistrativo tef. SIMULADOR PDV - Baixei da internet também, faz quase a mesma opção do pdv.exe Se eu tiver certo, estes dois programas se eu passar uma venda no meu cartão e colocar a senha, vai debitar em minha conta, positivo, (Não cheguei a colocar a senha, rsrsr) Bom se a resposta foi sim (que debita em minha conta), estes programas, me dão a opção de parcelamento da minha compra. Veja imagem: https://twitter.com/digitosistemas/status/481064871707279360 > O meu programa, porém não me dá a opção de parcelamento. Quando escolho a opção crédito já pede logo de cara para colocar o cartão e depois pede a senha do cartão

Obrigado, pelo retorno, mas na homologadora tá certo. Visto que quanto faço uso do programa de "SimuladorPDV.Exe" ele me dá a opção de parcelamento. Minha dúvida é será que tá faltando algum arquivo na pasta onde fica meu aplicativo? Qual é o arquivo que trata do parcelamento? Se o já existe como é a configuração. Obrigado.

Regys, quando você diz "Para ambos os TEFs (discado ou dedicado) isso é liberado pelo demo..." Onde consigo este DEMO?

Boa Tarde, No simulador SEVENPDV.EXE está funcionando, mas no meu aplicativo não está funcionando. Tem alguma configuração no arquivo ACBrTEFD tem alguma configuração? É algum arquivo de configuração INI ou alguma DLL que é usado? Porque como disse no simulador está funcionando. Desde já agradeço.

Bom Dia, Sou inexperiente no TEF e não consigo parcelar a venda no cartao tef. Tenho que mexer em algum arquivo de configuração INI? ou Tenho que que alterar alguma coisa via programação? Já liguei na CIELO e eles falaram que tinha que dar uma carga nas tabelas, fiz isso, mas não resolveu. Estou usando o ACBrTEFD Ver: 4.3.8. Desde já agradeço.

Acho que o "Bichinho" ficou com medo do fórum rsrsrsrs. Mudei a linha: ... if ACBrTEFD1.CRT( cValorTEF1 ,'0', IntToStr( iCOOVenda)) then begin bPodeEncerrarVenda:= true; // estorno end else bPodeEncerrarVenda:= false; // estorno end; .. Para: .. if ACBrTEFD1.CRT( cValorTEF1 ,'02', IntToStr( iCOOVenda)) then .. é funcionou, sendo que eu já havia feito isso. Mas de qualquer forma valeu. T+

Boa tarde, Estou com problemas na hora de imprimir o comprovante TEF. Estou usando o TEF Discado. Estou passando assim: ... if ACBrTEFD1.CRT( cValorTEF1 ,'0', IntToStr( iCOOVenda)) then begin bPodeEncerrarVenda:= true; // estorno end else bPodeEncerrarVenda:= false; // estorno end; .. Onde esta em negrito, ja tentei usar '1', '2', '01', '02', 'Cartão', 'Cartao' e sempre me retorna a mensagem de erro. "Impressora não responde' Deseja imprimir novamente?'". Como vê. Sou novato e nem sei se é aqui que passa o indice da forma de pagamento. Lembrando que quando a venda é feita com dinheiro sai tudo legal. Na leitura X aparece assim: ....... -- RELATÓRIO GERENCIAL ----- Nº Relatório CER 01 Relatório Geral 0017 ------MEIOS DE PAGAMENTO---------- Nº Meio Pagamento Tef Valor Acumulado (R$) 01 Dinheiro N 100,00 02 Cartao S 0,00 ------------------------------------------------------------ ... Pensei que fosse problema de impressora. Então testei uma Epson e Troquei para uma Bematech, porém o erro é o mesmo. Atenciosamente, Dirceu Morais