Leandro_Silva

Boa tarde galera, so pra dar como encerrado o assunto gostaria de agradecer pela colaboração de todos. minha "correção" na unit ACBrNFeDANFEFR linha 224 // if Assigned(ACBrNFe) then // if(TACBrNFe(ACBrNFe).Configuracoes.Geral.ModeloDF = moNFCe)then // FdmDanfe.frxReport.PrintOptions.PrintMode := pmSplit; ficou provisorio assim pretendo colocar fixo no Report mesmo. o cliente sempre imprimi pouco itens. se eu intendi bem esse comando serve para esticar a pagina se for isso existe uma propriedade na Page chamado EndlessHeight basta definir como True que de acordo com os itens ele vai aumentando a pagina. Desculpe se falei alguma besteira. Obrigado a todos, sucesso.

Boa tarde galera consegui identificar onde da o erro no fast if Report.PrintOptions.PrintMode <> pmDefault then begin showmessage('acesso Report.PrintOptions.PrintMode if'); if Report.PrintOptions.PrintOnSheet <> 256 then frxPrinters.Printer.SetViewParams(Report.PrintOptions.PrintOnSheet, 0, 0, poPortrait) else frxPrinters.Printer.SetViewParams(Report.PrintOptions.PrintOnSheet, frxPrinters.Printer.PaperWidth, frxPrinters.Printer.PaperHeight, poPortrait); SheetWidth := frxPrinters.Printer.PaperWidth; SheetHeight := frxPrinters.Printer.PaperHeight; SplicingLineSz := Report.PrintOptions.SplicingLine; end;} unit frxPreviewPages; ainda nao consegui saber oque realmente pode ser versao do fast é 5.3.11

Bom dia, ja vi isso acontecer precisa entrar em contato com a empreasa GAS Tecnologia e passa a situação ai eles colocam uma exceção no aplicativo deles e volta funciona normal, porem vai precisa baixa a nova versao da app deles pra atualiza nos clientes.

Bom dia, estamos usando o trunk. o relatorio visualiza tudo bunitinho o problema acontece quando clica no botao imprimir.

Concerteza, até esses dias imprimia normal, ai com a mudança dos links da nf-e foi atualizado, o mais triste é que nao tem impressora para testar, por que se voce manda imprimir uma outra impressao de outro lugar nao trava, mesmo indo no fr3 editando ele, ele trava. é bem como voce comentou deve ser loop em algum lugar.

Boa tarde senhores, estou utilizando impressora Daruma DR 700 com o componente TACBrNFeDANFEFR porem parou de funcionar, o preview esta normal mais quando clica no Fast na opção de imprimir trava a impressão tendo que fechar tudo, tive olhando o fontes antes existia um datamodulo onde ficava os arquivos, agora é criado tudo em run time, pelo que vi teve uma grande mudança. alguém passou por isso ? Obrigado pela atenção.

Bom dia galera, sei que nao tem muito haver com o assunto mais... Rejeicao: Operacao interna para consumidor final e UF destinatario difere de UF emiente emiente sera que isso ja foi corrigido. Abraço a todos.

Boa noite pessoal, valeu pela dica jhmontioa realmente esse link resolve http://qc.embarcadero.com/wc/qcmain.aspx?d=124627 abraço a todos.

Ontem fiz varios testes inclusive com versoes antigas e nao funciono... o problema so pode estar no provedor so pode.... o coisa sinistra.

Mechi bastante coisa no windows, atualizei o IE, desabilitei firewall, antivirus e nada.... eita...

Bom dia, nao entrei em contato com eles, vi que no forum da betha tem essa mensagem e ninguem disse nada. vi no nosso forum aqui sobre nivel de segurança e atualizaçõe no IE, irei fazer esses teste e retorno.

Bom dia, alguem descobriu algo? estou com o mesmo problema.

[Window Title] Atenção [Content] O buffer do usuário não é válido para a operação solicitada. - URL:https://e-gov.betha.com.br/e-nota-contribuinte-ws/consultarNfsePorRps?wsdl - SOAPAction:http://www.betha.com.br/e-nota-contribuinte-ws/consultarNfsePorRps [OK] Alguem ja passou por isso ?

Bom dia pessoal.... deu certo esse problema ?

Bom dia, favor adicionar na classe ACBrCTeUtil a linha: LayCTeEvento: Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://nfe.fazenda.sp.gov.br/cteWEB/services/cteRecepcaoEvento.asmx' , 'https://homologacao.nfe.fazenda.sp.gov.br/cteweb/services/cteRecepcaoEvento.asmx'); Quando a forma de emissão for 8 (// Autorização pela SVC-SP (SEFAZ Vitual de Contingência de SP)) Obs: não fiz testes com a opção 7, pode ter o mesmo problema. Grato: Leandro

Bom dia, analisando um xml baixado do sistema da betha em producao na tag prestador de serviço tem o a tag: <CodigoMunicipio>4201505</CodigoMunicipio> seguindo essa logica deve funcionar, vou testar e mais tarde retorno Abraço e tenham um bom dia.

Sugestão: pnfsNFSeR.pas TNFSeR = class(TPersistent) property CodigoMunicipio : Integer read FCodigoMunicipio write SetCodigoMunicipio; function TNotasFiscais.LoadFromFile(CaminhoArquivo: string): boolean; case Tipo of 1: begin LocNFSeR.CodigoMunicipio := Self.Configuracoes.WebServices.CodigoMunicipio; isso poderia ser o ultimo teste... minha sugestão blza

To vendo aqui nem o xml baixando no site da betha tem os campos necessarios... nao deveria trabalhar com o campo setado ACBrNFSe.Configuracoes.WebServices.CodigoMunicipio := lEmpresa.Cep.Cidade.NumeroIBGE; por que é necessario aquelas condições no metodo (function TNFSeR.LerNFSe: Boolean;) imprimir xml de mais de um prestador ?

-<Servico> -<Valores> <ValorServicos>200</ValorServicos> <ValorDeducoes>0</ValorDeducoes> <IssRetido>2</IssRetido> <ValorIss>0</ValorIss> <BaseCalculo>200</BaseCalculo> <Aliquota>0.0000</Aliquota> <DescontoCondicionado>0</DescontoCondicionado> <DescontoIncondicionado>0</DescontoIncondicionado> </Valores> <ItemListaServico>0107</ItemListaServico> <Discriminacao>Descricao: Manutencao Sistema ERP Valor: 200</Discriminacao> <CodigoMunicipio>4218707</CodigoMunicipio> </Servico> <CodigoMunicipio>4218707</CodigoMunicipio> nesse caso o codigo do municipio é diferente do prestador de serviço, e nao imprimiu tbm nao tem como colocar mais campos no xml ? 34-nfse.xml

Boa noite pessoal, estive olhando a fundo o fontes do acbr e descobri onde por que sai a impressão sem dados, porem nao sei se é erro meu Unit pnfsNFSeR function TNFSeR.LerNFSe: Boolean; var ok : Boolean; CM: String; begin if (Leitor.rExtrai(1, 'OrgaoGerador') <> '') then begin CM:= Leitor.rCampo(tcStr, 'CodigoMunicipio'); FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0))); end; if CM = '' then begin if (Leitor.rExtrai(1, 'Servico') <> '') then begin CM:= Leitor.rCampo(tcStr, 'CodigoMunicipio'); FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0))); end else FProvedor := proNenhum; end; bom mesmo preenchendo o campo: ANFSe.OrgaoGerador.CodigoMunicipio não jogou esse valor pro xml, aiiii ele cai nesse outra condicao if CM = '' then begin if (Leitor.rExtrai(1, 'Servico') <> '') then begin CM:= Leitor.rCampo(tcStr, 'CodigoMunicipio'); FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0))); end else FProvedor := proNenhum; end; como o local da prestacao de serviço foi na cidade do cliente ele nao consegue identificar o provedor ai sai a impressao em limpa alterado.pdf alterado.xml original.pdf original.xml

Boa tarde Italo, não tenho os schemas atualizado, mais.... o problema do ocorre na impressão, a transmissao esta certa, tanto se entrar no sistema da betha mostra certinho.. Outra situação que percebi é essa: Outra situação que notei é o preechimento do campo ANFSe.Servico.CodigoMunicipio := ANota.Cliente.Cep.Cidade.NumeroIBGE.ToString; quando preencho a cidade do cliente a impressão fica vazia, porem se preencher a cidade da empresa o prestador do serviço funciona, pelo que intendi esse campo é onde foi prestado o serviço, conforme o link http://forum.betha.c...hp?f=93&t=19746 Obrigado pela atenção Abraço e bom trabalho.

Sim, a Betha Sistemas aceita mais de um serviço segue o link: http://forum.betha.com.br/phpbb/viewtopic.php?f=93&t=6939 Outra situação que notei é o preechimento do campo ANFSe.Servico.CodigoMunicipio := ANota.Cliente.Cep.Cidade.NumeroIBGE.ToString; quando preencho a cidade do cliente a impressão fica vazia, porem se preencher a cidade da empresa o prestador do serviço funciona, pelo que intendi esse campo é onde foi prestado o serviço, conforme o link http://forum.betha.com.br/phpbb/viewtopic.php?f=93&t=19746

Boa noite, estou efetuando uns teste na nota de serviço, e quando coloco mais de um serviço sai errado na impressão {[[Descricao=Manutencao Sistema ERP][Quantidade=1,0000][ValorUnitario=190,0000][Aliquota=0,0000][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=0] ] [[Descricao=Manutencao Sistema Associacao][Quantidade=1,0000][ValorUnitario=100,0000][Aliquota=0,0000][Deducoes=0][DescontoCondicionado=0][DescontoIncondicion ado=0]]} se eu entrar no ambiente da betha, ficou certo la. Onde esta a branca ? Grato Leandro.

Olá Leandro, conseguiu resolver seu problema ?

4201505 //Armazem/SC : Provedor := 'Betha'; Grato.