Leandro_Silva
-
Total de ítens
90 -
Registro em
-
Última visita
-
Days Won
1
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Leandro_Silva
-
-
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.
- 1
-
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 of1: beginLocNFSeR.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 tbmnao tem como colocar mais campos no 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;varok : Boolean;CM: String;beginif (Leitor.rExtrai(1, 'OrgaoGerador') <> '')then beginCM:= Leitor.rCampo(tcStr, 'CodigoMunicipio');FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));end;if CM = '' thenbeginif (Leitor.rExtrai(1, 'Servico') <> '') thenbeginCM:= Leitor.rCampo(tcStr, 'CodigoMunicipio');FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));endelse FProvedor := proNenhum;end;bom mesmo preenchendo o campo: ANFSe.OrgaoGerador.CodigoMunicipionão jogou esse valor pro xml, aiiiiele cai nesse outra condicaoif CM = '' thenbeginif (Leitor.rExtrai(1, 'Servico') <> '') thenbeginCM:= Leitor.rCampo(tcStr, 'CodigoMunicipio');FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));endelse FProvedor := proNenhum;end;como o local da prestacao de serviço foi na cidade do clienteele nao consegue identificar o provedorai sai a impressao em limpa -
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
-
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 SistemaERP][Quantidade=1,0000][ValorUnitario=190,0000][Aliquota=0,0000][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=0]][[Descricao=Manutencao SistemaAssociacao][Quantidade=1,0000][ValorUnitario=100,0000][Aliquota=0,0000][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=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.
Impressão DARUMA DR 700 - FastReport
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado
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.