Ir para conteúdo
  • Cadastre-se

Leandro_Silva

Membros
  • Total de ítens

    90
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Leandro_Silva

  1. 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.

     

     

     

     

     

  2. 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

     

     

  3. 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.

     

     

  4. 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

  5. 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.

     

  6. 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

  7. 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 ?

  8. -<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

  9. 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

  10. 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.

  11. 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

  12. 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.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.