leufmt

Obrigado pela ajuda anfm, resolveu aqui.

Alguém sabe onde estou errando aqui: [Produto001] CFOP=6202 Codigo=1648 Descricao=LAMP HAL MINI DIC 35/12v 3k B NCM=85392110 Unidade=UN Quantidade=500 ValorUnitario=0.84 ValorTotal=420 ValorDesconto= [iCMS001] CST=60 Origem=2 CSOSN=500 ValorBase=420 Aliquota=7 Valor=29.4 ValorBaseST= AliquotaST= ValorST= [iPI001] CST= Aliquota= Valor= [PIS001] CST=99 [COFINS001] CST=99 [Total] BaseICMS=420 ValorICMS=29.4 ValorProduto=420 BaseICMSSubstituicao= ValorICMSSubstituicao= ValorFrete= ValorSeguro= ValorDesconto= ValorIPI= ValorOutrasDespesas= ValorNota=420 Pois esta dando essa messagem: Rejeicao: Total da BC ICMS difere do somatorio dos itens Por favor me ajudem

Puts é mesmo. Eu esqueci desses dois campos: ValorBase, Valor. Obrigado pela ajuda

Estou tentando enviar essa nota: NFE.CriarEnviarNFe("[identificacao] NaturezaOperacao=VENDA MERCADORIAS Modelo=55 Serie=1 Codigo=49 Numero=49 Serie=1 Emissao=02/04/2011 Saida=02/04/2011 hSaiEnt= Tipo=1 FormaPag=0 Finalidade=0 procEmi=0 [Emitente] CNPJ=01520672000271 IE=132384477 CRT=3 Razao=A PATRICK DO AMARAL Fantasia=AUTO PECAS AMIGAO Fone=6536178101 CEP=78015500 Logradouro=AV. TENENTE CORONEL DUARTE Numero=1935 Complemento= Bairro=DOM AQUINO PORTO CidadeCod=5103403 Cidade=CUIABA UF=MT PaisCod=1058 Pais=BRASIL [Destinatario] CNPJ=80590045000100 IE=ISENTO ISUF= NomeRazao=DATAPROV EQUIP SERV INF LTDA Fone= CEP=80610260 Logradouro=AV REP ARGENTINA N 2403 Numero=2403 Complemento= Bairro=AGUA VERDE CidadeCod=4106902 Cidade=CURITIBA UF=PR Email= PaisCod=1058 Pais=BRASIL [Produto001] CFOP=6102 Codigo=009 Descricao=AMORTECEDORES TESTE EAN= NCM=87088000 Unidade=UNI Quantidade=1 ValorUnitario=10.00 ValorTotal=10.00 ValorDesconto=0.00 [iCMS001] CST=90 Origem=0 CSOSN= Aliquota=12.00 [iPI001] CST=55 Aliquota=5.00 Valor0.50 [PIS001] CST=99 [COFINS001] CST=99 [Total] BaseICMS=10.00 ValorICMS=1.20 ValorProduto=10.00 BaseICMSSubstituicao=0.00 ValorICMSSubstituicao=0.00 ValorFrete=0.00 ValorSeguro=0.00 ValorDesconto=0.00 ValorIPI=0.50 ValorNota=10.50 [Transportador] FretePorConta=0 CnpjCpf= NomeRazao= IE= Endereco= Cidade= UF= Placa= UFPlaca= [Volume001] Quantidade=1 Especie= Marca= Numeracao=2403 PesoLiquido=0 PesoBruto=0 UFPlaca= [DadosAdicionais] Complemento=",2,1) só que esta me retornando isso: OK: Lote recebido com sucesso [ENVIO] Versao=2.00 TpAmb=2 VerAplic=2.00 CStat=103 XMotivo=Lote recebido com sucesso CUF=51 NRec=510000006188031 DhRecbto=04/04/2011 07:41:07 TMed=1 Msg=Lote recebido com sucesso Nota(s) não confirmadas: 49->Rejeicao: Total da BC ICMS difere do somatorio dos itens [RETORNO] Versao=2.00 TpAmb=2 VerAplic=2.00 NRec=510000006188031 CStat=531 XMotivo=Rejeicao: Total da BC ICMS difere do somatorio dos itens CUF=51 [NFE49] Versao=2.00 TpAmb=2 VerAplic=2.00 CStat=531 XMotivo=Rejeicao: Total da BC ICMS difere do somatorio dos itens CUF=51 ChNFe=51110403265843000108550010000000491000000496 DhRecbto=04/04/2011 07:41:07 NProt= DigVal=I8d6W9jwjHgLQDAA0RGu9lWnUHU= Arquivo=C:\Produção\Leandro\Sistemas\SINCO\ACBrNFeMonitor\EnvioResposta\51110403265843000108550010000000491000000496-nfe.xml Alguém por gentileza, tem ideia do que esta errado?

o formulário princial é o main form? se sim eu coloco o código: Initialization RLConsts.SetVersion(3,71,'B'); antes do end. quando executo o programa já aparece de cara aquela tela que o nazarenoneto citou no começo do post.

Joge o teu código aqui para eu ver, pois não estou conseguindo. Estou com o boleto parado por causa desse trem...

Estou com o mesmo problema, fiz o que o ws_junior falou: program Ceramica; uses Forms, MidasLib, RLConsts, ... ... ... {$R *.res} begin Application.Initialize; RLConsts.SetVersion(3,71,'B'); Application.CreateForm(TFormGestorCeramica, FormGestorCeramica); Application.CreateForm(TDMBaseDados, DMBaseDados); Application.CreateForm(TDMBaseDados2, DMBaseDados2); Application.CreateForm(TFormAcesso, FormAcesso); Application.Run; end. Só que ainda não esta dando certo...

Obrigado. Vou ver lá.

Niguémmm.

Obrigadoo. Resolveu.

Ao mandar imprimir o boleto me vem a seguinte mensagem, isto depois de atualizar o ACBrBoleto: Sistema não está de acordo com a versão do FortesReport. Versão Atual 3.70B Pelo visto já estão desenvolvendo em uma outra versão do FortesReport... O que devo fazer?

Estou com a seguinte linha da minha rotina de arquivo retorno com problema: CDSRetorno.FieldByName('DescricaoMotivoRejeicaoComando').AsString := ACBrBoleto.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComando; Esta dando o seguinte erro, depois da atualização do ACBrBoleto: Incompatible types: 'String' and 'TStrings' Alguém sabe o que devo fazer?

Deu certo. Obrigado

Obrigado. Vou ver isso.

Ninguém??

Onde que eu defino se o boleto será com ou sem registro?

Esta dando o seguinte erro ao abrir o exemplo do ACBrBoleto: Error reading ACBrBoleto1 -> ComprovanteEntrega: Property ComprovanteEntrega does not exist. Alguém sabe o que devo fazer?

Agora que vi isso... o problema dá quando se utiliza a fonte courier.

Que beleza então.. Vou esperar sair a novar versão do monitor. Obrigado

Segue o link para baixar o xml mais o danfe em pdf. http://www.4shared.com/file/QOCqWDvu/ProblemaNCM.html

Eu olhei o xml e o mesmo tem os 8 digitos. O problema é com o DANFE impresso no componente de impressão que pelo visto é o RAVE. Lá no RAVE é que come o último digito.

Não dá para o pessoal do desenvolvimento do monitor arrumar o danfe retrato? Pois o mesmo esta gerando o NCM só com 7 digitos. Um companheiro já detectou esse problema e já apontou a solução que esta neste link: viewtopic.php?f=6&t=526&p=2096&hilit=%C3%BAltimo+digito#p2096 Se puderem arrumar no monitor eu agradeço.

Agora danou-se. Não consigo fazer esse trem instalar.

criei uma nova package mas quando compilo vem esses erros: [Pascal Error] RLUtils.pas(910): E2003 Undeclared identifier: 'CharInSet' [Pascal Error] RLUtils.pas(910): E2015 Operator not applicable to this operand type E olhando essa unit verifiquei o seguinte trecho, lá no começo: {$IFDEF DELPHI7} //Esta funções existem a partir do Delphi 2009 e foram recriadas para evitar warnings function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload; function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload; {$ENDIF} e aqui onde é chamada esta função que dá o erro: function IterateJustification(var AText: string; var AIndex: Integer): Boolean; function FindSpc: Boolean; const SPC = [#32, #9, #13, #10]; begin Result := False; while (AIndex > 0) and CharInSet(AText[AIndex], SPC) do Dec(AIndex); while AIndex > 0 do if CharInSet(AText[AIndex], SPC) then begin while (AIndex > 0) and CharInSet(AText[AIndex], SPC) do Dec(AIndex); if AIndex > 0 then begin Insert(#32, AText, AIndex + 1); Result := True; end; Break; end else Dec(AIndex); end; begin Result := FindSpc; if not Result then begin AIndex := Length(AText); Result := FindSpc; end; end; agora não sei o que fazer. Tem alguma ideia Daniel?

Criei a pasta fortesreport e pelo svn coloquei o endereço que tu passou e baixei o fonte. Agora minha dúvida é qual dos *.pas eu aponto para criar o Package?