cesarpir

Bom dia. Gostaria de obter informações sobre a geração de cupom fiscal para o Convênio ICMS 09/09, estou iniciando um projeto com a impressora fiscal MP 4200 TH FI, baixei a DLL bemafi32, tudo ok o cupom fiscal está sendo emitido! Mas e a questão é e o envio para a receita? Pergunto pois pelo que li e entendi até o momento seria feito automático, mas onde e como configuro o certificado digital, onde configuro modo de homologação? Será que alguém aqui usou o ACBR poderiam orientar ou alguma sugestão, link aqui no fórum. Neste momento estou usando a DLL, mas gostaria também de usar o Acbr caso esteja já atualizado para o modo 3G. obs.: Antes de postar eu fiz buscas e não encontrei nada no fórum sobre o envio do cupom para a receita. Obrigado César

Boa tarde, desculpem pelo título mas realmente não encontrei um melhor. Estava tendo problemas como envio de NFE pelo ACBR e aqui no fórum encontrei esta solução: =============== MARQUE PERMITIR QUE O SOFTWARE SEJA EXECUTADO OU INSTALADO MESMO QUE A ASSINATURA SEJA INVALIDA MARQUE USAR SSL 2.0 MARQUE USAR SSL 3.0 MARQUE USAR TLS 1.0 DESMARQUE USAR TLS 1.1 E 1.2 DESMARQUE VERIFICAR REVOGAÇÃO DE CERTIFICADOS MARQUE VERIFICAR SE HÁ ASSINATURA EM PROGRAMAS BAIXADOS MARQUE VERIFICAR SE HA CERTIFICADOS REVOGADOS DO FORNECEDOR =============== Bom após fazer estas configurações deu certo, mas o Abrnfse Versão: 0.2.0 parou de enviar, não acontece e nem aparece erro, porém ao tentar enviar aparece uma tela sem informações (Em anexo), mostrei o problema ao Simpliss, pensando que pudesse o serviço estar instável, porém não havia problemas com eles, o suporte acredita pelo que expliquei e mostrei que o meu sistema não está se comunicando com o webservice do Simpliss. Será que alguém passou por isto, alguma sugestão? Obrigado

Boa tarde, hoje também estou com o mesmo erro E900, não tenho fontes atualizados pois fiz modificações para atender uma necessidade do cliente, mas enfim queria apenas comunicar e perguntar sobre a mudança de url: vejam o comunicado: A Prefeitura de Piracicaba, com o intuito de melhorar os serviços disponibilizados através da Internet, implantou novos servidores para hospedar os sistemas utilizados para emissão de Notas Fiscais de Serviço Eletrônicas (NFSE). Para finalizarmos a migração, é necessário que o acesso ao webservice da Nota Fiscal Eletrônica passe para um novo endereço: http://sistemas.pmp.sp.gov.br/semfi/simpliss/ws_nfse/nfseservice.svc Informamos que não houve alteração em nenhum parâmetro ou método, sendo o webservice exatamente o mesmo que está em funcionamento. Ambos webservices estão em funcionamento e o acesso ao antigo, no endereço http://sistemas.piracicaba.sp.gov.br/semfi/simpliss/ws_nfse/nfseservice.svc estará disponível até o dia 14/11/2014, quando apenas o novo endereço estará disponível para uso. Agradecemos a compreensão e ficamos a disposição para ajudar no que nos for possível. Att. Prefeitura do Município de Piracicaba =============== Devemos alterar o componente, se sim pode orientar ou podemos aguardar alguma atualização? Quanto ao erro E900 estou em contato com o suporte do simpliss. abs.

Boa tarde a todos e ao Professor. Em primeiro lugar desculpem tanto pela demora, mas não notei que apareceu mais msg aqui neste tópico e também não temos mais avisos parece, antigamente chegava um email dizendo que alguém comentou algo, enfim acho eu, rsrsrs. Bom segue o xml que tenho de exemplo onde tenho 1 serviço contendo mais de um item, isto no Simpliss, observem a tag <ItensServico>. Eu alterei os fontes do acbrnfse conforme disse no tópico anterior e na rotina de gerarNfse tenho uma parte assim: FNot02.CSer.First; //Clientdataset while not FNot02.CSer.Eof do begin with Servico.ItemServico.Add do begin Descricao := TrataTexto(FNot02.CSerSERDES.asString); Quantidade := FNot02.CSerSERQTD.asInteger; ValorUnitario := FNot02.CSerSERVAL.asCurrency; ValorTotal := FNot02.CSerSERTOT.asCurrency; Tributavel := snNao; end; FNot02.CSer.Next; end; 628-nfse.xml

Angelo Gomes, bom dia. Entendi muito obrigado pelo comentário, realmente pode ser isto, fiz alguns testes e o número da nota fiscal (canto superior direito) realmente não imprimi o que eu envio, pelo menos com o provedor Simpliss, está assim. Abs. Obrigado novamente.

Boa tarde Juliomar Marchetti. Bom eu alterei os fontes do AcbrNfse para conseguir imprimir logo abaixo da Discriminação do serviço os registros da Descrição, Quantidade, Tributável, ValorUnitário, ValorTotal, não sou um desenvolvedor de componentes, rsrs, mas para a necessidade que tenho urgente resolveu. Estou enviando para avaliarem lembrando que foi feito conforme a necessidade de momento onde tenho uma discriminação de serviço e vários itens abaixo, estamos testando eu o cliente, até o momento está ok, porém estou tendo dificuldades com uma outra coisa, o número da nota fiscal que sai no canto direito da página, estou checando o meu envio porque sai outro número queria que acompanhasse o número do meu sistema. obs.: Somente para Fortes report. Bom abs, e espero que ajude algo. ACBrNFSe.rar

Não picyka estou fazendo um novo relatório via Fortes report, pois pelo que vi nos fontes do acbrnfse não fizeram o imprimir os itens do serviço.

Bom dia filipe. Você conseguiu resolver isto? Eu também preciso imprimir os itens da NFSE, vi que estão no XML gerado, porém não imprimi somente. abs.

Boa tarde! Apenas para deixar aqui o que estou passando e sempre alguém tb pode precisar rsrsrs, enfim, ontem tentamos alterar para o protocolo P05, conforme sugestão do Daniel, porém não conseguimos, entramos em contato com o suporte da Toledo esta disse que não era viável devido a N motivos, um deles é que o P03 sempre retorna algo, mesmo sendo instável, já no P05 não retornaria nada, nem saberíamos o que houve em caso de problemas, etc etc etc, to encurtando ok. E além disto teríamos que chamar a toledo para fazer isto, pois teria que ser direto no equipamento, algo como duas serias no equipamento, quem falou com o suporte foi um responsável pelo TI da empresa que estou desenvolvendo o sistema. Por ora estou ainda tentando usar DLLs, ontem recebi um pclink06 que vem com um demo para Delphi e VB + dlls, realmente um parto se comunicar com esta balança. Voltando ao acbr o modelo toledo 2180 é o que mais se aproximou, o que gostaria de pedir Daniel, sei que não tenho este direito, mas vou arriscar é que por favor verificasse o modelo da rodoviária que está aqui neste tópico pq este não funciona com o indicador 9091 ac protocolo P03? a Pessoa que desenvolveu parece ter seguido a risca os critérios, eu verifiquei o fonte e não consegui encontrar nada de errado. Outra saída é desembolsar 390,00 - P03_unit.pas pela unit da Iagara, mas não sei se atende, se alguém tem alguma experiência por favor se puder comentar agradeço. Novamente obrigado e desculpe pela insistência! Abraços

Ok, daniel vou verificar isto então, na configuração do equipamento, então eu estava usando o monitorar balança sim, porém como te disse alguns pesos não lia, pois é muito rápido a passagem das carretilhas. Ai tive a idéia de desabilitar isto e tentar através de um loop, bom então o que me resta agora é tentar mudar este protocolo no módulo, ou usar algum outro componente, código enfim sei não, rsrsrs. Só não entendi então pq o código da balancarodoviaria que está no protocolo p03 não funcionou, vou tentar com ele tb e usar o monitorarbalanca. Novamente obrigado Abraços

Que isto, eu não tenho nem como cobrar nada e nem é isto que estou fazendo, rsrsrs, você não tem obrigação alguma com isto, já ajudou muito e sempre em ter desenvolvido estes componentes show de bola, uso o acbrnfe, acbrbal, usava o acbrecf pena que não faz comunicação com usb, ai tive que usar dlls dos fabricantes, mas tá tudo certo, rs. Ontem não conseguimos testar, não podemos prejudicar a produção tá complicado, não tenho ambiente de testes. valeu bom fds.

Bom dia Daniel, gostaria de saber se o link contendo o manual vc conseguiu baixar, se ajuda em algo? Hoje estaremos testando mais uma forma de ler o peso, usando o acbrbal, fiz algo que parecido com o codigo em clipper, ao invés de usar o monitorar estou usando um laço até 30 vezes se não ler ai ele sai fora do loop. Se eu tivesse um emulador bom com geração de instabilidade facilitaria muito, rs. obrigado t+

Boa noite Daniel! Bom antes de mais nada por ora agradeço muita sua atenção! segue link do manual do indicador 9091 ac - protocolo P03 http://www.toledobrasil.com.br/suporte/ ... 091_AC.pdf configurações que uso no componente: Paridade = none Stop bits = s2 Data Bits = 7 Baud Rate = 4800 Porta = COM1 Timeout = 1000 obs.: Um incoviniente que acontece algumas vezes é ler a tara de 3.50, rsrrs, ai judia kkk, t+

Oi Daniel, como não tive sucesso até hoje com isto, ainda estou batendo cabeça para acertar, porém adianto que está melhorando usando o model balToledo2180 que vem no acbrbal, mas este sistema é pra frigorifico, então a pesagem tem ser rapida, digamos que o tempo entre as pesagens não chega a 4 segundos (carretilhas). Não consigo chegar nem perto do sistema dos que existe hoje e que precisa ser trocado, a instabilidade é enorme, quando estabiliza preciso pegar o peso de imediato, coisa que melhorou após estar usando o monitorar balança. O que fiz foi ao abrir o formulario ativo o acbrbal e monitorando, quando o peso aparece em um edit o usuário pressiona f12 para ler o peso e já se preparar para outro, porém não está como disse de acordo com o sistema dos! Codigo para ativar o acbrbal, ele pega configuracoes que vem do banco, porém anotei abaixo com ok quais ele usa: (manual da toledo e tb verificamos no hardware a config) with ACBrBAL1 do begin Desativar; // Modelo := balToledoRodoviaria; Modelo := balToledo2180; Device.HandShake := TACBrHandShake(hsNenhum); case QCFGPARITY.asInteger of 0: Device.Parity := pNone; //ok 1: Device.Parity := pOdd; 2: Device.Parity := pEven; 3: Device.Parity := pMark; 4: Device.Parity := pSpace; end; case QCFGSTOP.asInteger of 0: Device.Stop := s1; 1: Device.Stop := s1eMeio; 2: Device.Stop := s2; //ok end; Device.Data := QCFGDATA.asInteger; //7 Device.Baud := QCFGBAUD.asInteger; //4800 Device.Porta := QCFGPORTA.asString;//com1 Intervalo := QCFGINTERVALO.asInteger; //1000 MonitorarBalanca := True; Ativar; end; Bom olha o código do sistema dos a parte que captura o peso: Static Procedure PESOBAL SetKey(K_F12, Nil) lf12:= .T. apeso:= {} com_setirq(vglob12, vglob17) If (com_open(vglob12, 1000)) If (!com_init(vglob12, vglob13, vglob14, vglob15, vglob16)) alerta("Porta nÆo pode ser inicializada !", 5, .T.) Set Key K_F12 To pesobal Return EndIf com_dtr(vglob12, .T.) com_rts(vglob12, .T.) com_dsr(vglob12, .T.) com_dcd(vglob12, .T.) com_cts(vglob12, .T.) For nstab:= 1 To 2 ntent:= 0 Do While (.T.) If (com_count(vglob12) > 0) dados1:= com_read(vglob12, 1) If (dados1 == "") dados2:= com_read(vglob12, 16) cpeso:= SubStr(dados1 + dados2, 5, 6) culti:= right(cpeso, 1) If (Val(cpeso) == 0 .OR. culti == "1" .OR. culti ; == "2" .OR. culti == "3" .OR. culti == "4" ; .OR. culti == "6" .OR. culti == "7" .OR. ; culti == "8" .OR. culti == "9") Loop EndIf npeso:= Val(Left(cpeso, 5) + "." + right(cpeso, 1)) If (SubStr(dados1 + dados2, 3, 1) == "q") readinsert(.T.) Keyboard alltrim(Transform(npeso, ; "@E 99,999.99")) readinsert(.F.) com_close(vglob12) Set Key K_F12 To pesobal Return EndIf EndIf EndIf ntent++ If (ntent > 10) Exit EndIf nk:= InKey(0.01) If (LastKey() == K_ESC) Exit EndIf EndDo Next ntent:= 0 Do While (.T.) If (com_count(vglob12) > 0) dados1:= com_read(vglob12, 1) If (dados1 == "") dados2:= com_read(vglob12, 16) cpeso:= SubStr(dados1 + dados2, 5, 6) culti:= right(cpeso, 1) If (Val(cpeso) == 0 .OR. culti == "1" .OR. culti == ; "2" .OR. culti == "3" .OR. culti == "4" .OR. ; culti == "6" .OR. culti == "7" .OR. culti == ; "8" .OR. culti == "9") Loop EndIf npeso:= Val(Left(cpeso, 5) + "." + right(cpeso, 1)) If (SubStr(dados1 + dados2, 3, 1) == "q" .OR. ; SubStr(dados1 + dados2, 3, 1) == "s" .OR. ; SubStr(dados1 + dados2, 3, 1) == "{") If (SubStr(dados1 + dados2, 3, 1) == "s" .OR. ; SubStr(dados1 + dados2, 3, 1) == "{") npeso:= npeso * -1 EndIf readinsert(.T.) Keyboard alltrim(Transform(npeso, "@E 99,999.99")) readinsert(.F.) com_close(vglob12) Set Key K_F12 To pesobal Return EndIf nacho:= ascan(apeso, { |_1| _1[1] == npeso }) If (nacho == 0) AAdd(apeso, {npeso, 1}) Else apeso[nacho][2]:= apeso[nacho][2] + 1 If (apeso[nacho][2] >= 3) readinsert(.T.) Keyboard alltrim(Transform(npeso, ; "@E 99,999.99")) readinsert(.F.) com_close(vglob12) Set Key K_F12 To pesobal Return apeso:= {} EndIf EndIf EndIf EndIf ntent++ If (ntent > 30) alerta("NÆo foi poss¡vel capturar o peso estabilizado !", ; 5, .T.) Exit EndIf nk:= InKey(0.01) If (LastKey() == K_ESC) Exit EndIf EndDo com_close(vglob12) Else alerta("Porta nÆo pode ser aberta !", 5, .T.) EndIf Set Key K_F12 To pesobal Return A questão é já fiz de tudo para ser mais eficaz, ler no momento em que a carretilha para e o peso é exibido no módulo mas não está de acordo, não lê as vezes. Alguma sugestão? Obs.: Esquece a da rodoviária, rsrsr. Abraços

Amigos encontrei a unit abaixo na net no seguinte link: http://www.forumweb.com.br/foruns/topic ... ocolo-p03/ Adicionei esta para ser usada no acbrBal, está bem melhor, porém ainda tenho retornos estranhos, a balança tem uma tara pré definida, quando tento ler o peso sem nada na balança ele retorna um valor enorme um : 34490,00. Este valor não é fixo ok, mesmo quando tem um item a ser pesado as vezes não lê, ora traz uns valores enormes, detalhe isto tb ocorre com o modelo Toledo q já existe, será que ninguém passou por isto, algo q possa me ajudar? Em resumo agora pelo menos está lendo o peso, sem ter que dividir, apenas formatar, porém acontece de ter retornos esquisitos e ora não lê nada. {$I ACBr.inc} unit ACBrBALToledoRodoviaria; interface uses ACBrBALClass, Classes; const STX = #02 ; ETX = #03 ; CR = #13 ; type TACBrBALToledoRodoviaria = class( TACBrBALClass ) public constructor Create(AOwner: TComponent); function LePeso( MillisecTimeOut : Integer = 3000) :Double; override; procedure LeSerial( MillisecTimeOut : Integer = 500) ; override ; end ; implementation Uses ACBrBAL, ACBrUtil, ACBrDevice, {$IFDEF COMPILER6_UP} DateUtils, StrUtils {$ELSE} ACBrD5, synaser, Windows{$ENDIF}, SysUtils, Math ; { TACBrBALToledoRodoviaria } constructor TACBrBALToledoRodoviaria.Create(AOwner: TComponent); begin inherited Create( AOwner ); fpModeloStr := 'ToledoRodoviaria' ; fpDevice.HardFlow := false ; fpDevice.SoftFlow := false ; fpDevice.HandShake:= TACBrHandShake(0); fpDevice.Parity := TACBrSerialParity(0) ; fpDevice.Data := 7 ; fpDevice.Baud := 4800 ; fpDevice.Stop := TACBrSerialStop(2) ; end; function TACBrBALToledoRodoviaria.LePeso( MillisecTimeOut : Integer) : Double; begin fpUltimoPesoLido := 0 ; fpUltimaResposta := '' ; fpDevice.Serial.Purge ; { Limpa a Porta } fpDevice.EnviaString( #05 ); { Envia comando solicitando o Peso } sleep(200) ; LeSerial( MillisecTimeOut ); Result := fpUltimoPesoLido ; end; procedure TACBrBALToledoRodoviaria.LeSerial(MillisecTimeOut: Integer); Var Peso, Tara, B210 : AnsiString ; Decimais : Double ; SWA,SWB,SWC : AnsiChar ; B : Integer ; begin fpUltimoPesoLido := 0 ; fpUltimaResposta := '' ; Decimais := 1000 ; Try fpUltimaResposta := fpDevice.Serial.RecvPacket( MillisecTimeOut ); {Protocolo P03 [STX] [SWA] [SWB] [SWC] [IIIIII] [TTTTTT] [CR] [CKS] SWA = 1 byte - Status word "A" SWB = 1 byte - Status word "B" SWC = 1 byte - Status word "C" IIIIII = 6 bytes - peso bruto ou liquido TTTTTT = 6 bytes - tara configurada na balança CR = Carriage Return CKS = checksum SWA - STATUS WORD "A" bit 2, 1 e 0 = 001 = x 10 010 = x 1 011 = x 0.1 100 = x 0.01 101 = x 0.001 110 = x 0.0001 bit 4 e 3 = 01 = Tamanho do Incremento 1 10 = Tamanho do Incremento 2 11 = Tamanho do Incremento 5 bit 5 e 6 = sempre 01 bit 7 = 0 = Paridade Ímpar 1 = Paridade Par SWB - STATUS WORD "B" Bit 0 = Peso Líquido = 1 Bit 1 = Peso Negativo = 1 Bit 2 = Sobrecarga = 1 Bit 3 = Motion = 1 Bit 4 = Sempre = 1 Bit 5 = Sempre = 1 Bit 6 = Se AUTO Zerado = 1 Bit 7 = Paridade Par SWC - STATUS WORD "C" Bit 0 = Sempre = 0 Bit 1 = Sempre = 0 Bit 2 = Sempre = 0 Bit 3 = Tecla Imprimir = 1 Bit 4 = Expandido = 1 Bit 5 = Sempre = 1 Bit 6 = Sempre = 1 Bit 7 = Paridade Par } SWA := fpUltimaResposta[2] ; SWB := fpUltimaResposta[3] ; SWC := fpUltimaResposta[4] ; if TestBit(Ord(SWA),2) then B210 :='1' else B210 :='0'; if TestBit(Ord(SWA),1) then B210 :=B210 + '1' else B210 :=B210 + '0'; if TestBit(Ord(SWA),0) then B210 :=B210 + '1' else B210 :=B210 + '0'; B:=StrToInt(B210); case B of 1:Decimais := 10 ; 10:Decimais := 1 ; 11:Decimais := 0.1 ; 100:Decimais := 0.01 ; 101:Decimais := 0.001 ; 110:Decimais := 0.0001 ; end; Peso := Trim(Copy(fpUltimaResposta,5,6)); Tara := Trim(Copy(fpUltimaResposta,11,6)); { Ajustando o separador de Decimal corretamente } Peso := StringReplace(Peso, '.', DecimalSeparator, [rfReplaceAll]); Peso := StringReplace(Peso, ',', DecimalSeparator, [rfReplaceAll]); Tara := StringReplace(Tara, '.', DecimalSeparator, [rfReplaceAll]); Tara := StringReplace(Tara, ',', DecimalSeparator, [rfReplaceAll]); if TestBit(Ord(SWB),1) then {se Bit 1 do SWB ligado = peso negativo} fpUltimoPesoLido := -1 else if TestBit(Ord(SWB),2) then {se Bit 2 do SWB ligado = Sobrecarga de Peso} fpUltimoPesoLido := -10 else begin try if TestBit(Ord(SWB),0) then {se Bit 0 do SWB ligado = peso liquido} begin if pos(DecimalSeparator,Peso) > 0 then { Já existe ponto decimal ? } fpUltimoPesoLido := StrToFloat(Peso) else fpUltimoPesoLido := StrToInt(Peso) * Decimais ; end else begin if pos(DecimalSeparator,Peso) > 0 then { Já existe ponto decimal ? } fpUltimoPesoLido := StrToFloat(Peso) - StrToFloat(Tara) else fpUltimoPesoLido := (StrToInt(Peso) * Decimais) - (StrToInt(Tara) * Decimais) ; end; except case Peso[1] of 'I' : fpUltimoPesoLido := -1 ; { Instavel } 'N' : fpUltimoPesoLido := -2 ; { Peso Negativo } 'S' : fpUltimoPesoLido := -10 ; { Sobrecarga de Peso } else fpUltimoPesoLido := 0 ; end; end; end; except { Peso não foi recebido (TimeOut) } fpUltimoPesoLido := -9 ; end ; end; end.

Boa tarde. Estou utilizando o acbrBal para leitura do peso, porém ao trazer o peso que está indicado 6,00 no visor do módulo (Toledo) ele me retorna um peso assim: 60.000,035 utilizo o evento onlepeso: procedure TFLot02.ACBrBAL1LePeso(Peso: double; Resposta: AnsiString); var valid: integer; begin FormataEdits(formatFloat('##0.000', Peso)); // sttResposta.Caption := Converte( Resposta ) ; if Peso > 0 then begin lblError.Visible := false; lblError.caption := 'Leitura OK !' end else begin lblError.Visible := True; valid := Trunc(ACBrBAL1.UltimoPesoLido); case valid of 0: lblError.caption := 'TimeOut !' + sLineBreak + 'Coloque o produto sobre a Balança!'; -1: lblError.caption := 'Peso Instavel ! ' + sLineBreak + 'Tente Nova Leitura'; -2: lblError.caption := 'Peso Negativo !'; -9: lblError.caption := 'Erro de leitura, balança instável !'; -10: lblError.caption := 'Sobrepeso !'; end; end; end; Alguma sugestão ? Terei que fazer alguma divisão ? Grato. César

Ok, eu alterei para 020 e passou, bom vamos vendo e entendendo conforme os erros aparecem. Obrigado Abraços rodnei!

Boa noite, fiz busca antes de postar ok, mas não encontrei o problema que estou tendo, algo similar até mas não ajudou. Não é optante pelo simples e estou usando o acbrnfe2. O que acontece é assim estou tentando enviar uma NFE com CFOP 6.912 - REMESSA PARA DEMONSTRAÇÃO, com dois itens onde estes tem o cst = 050. Bom pelo que li e entendi como é emissão para fora do estado é necessário calcular a base e valor do ICMS, caso contrário da 5.912. Fiz isto porém o erro que aparece é este ai. Estou emitindo uma NF de SP para MG. Alguém pode me orientar, alguma sugestão do que pode ser isto? Segue parte dos itens e totais do xml: Obs.: Apesar de estar ICMS 20 ali embaixo eu peguei este como exemplo mas o cliente enviou como 50 ok. - - 6,0969 MOTOR ELETRICO 3CV 5000 RPM 24 V MK (NE) 85015210 6912 PC 1.0000 500.0000000000 500.00 PC 1.0000 500.0000000000 1 - - - 0 20 2 0.00 500.00 7.00 35.00 - 999 - 01 - - 01 0.00 0.00 0.00 - - 01 0.00 0.00 0.00 - - 10,2068 EIXO FLEXIVEL 28MM X 7M LT/DI (NE) 84609001 6912 PC 1.0000 400.0000000000 400.00 PC 1.0000 400.0000000000 1 - - - 0 20 2 0.00 400.00 7.00 28.00 - 999 - 01 - - 01 0.00 0.00 0.00 - - 01 0.00 0.00 0.00 - - 900.00 63.00 0.00 0.00 900.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 900.00 Abraços César