Jump to content

logo_acbr_paygo.png

Chegou o TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao_saibamais.png

beneficios.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sergio Sartori

Membros
  • Content Count

    61
  • Joined

  • Last visited

Community Reputation

12 Good

1 Follower

About Sergio Sartori

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Bom dia pessoal. estou com esse erro ao compilar o meu aplicativo sat. delphi xe já desinstalei o acbr e reinstalei mas continua dando o mesmo problema. alguem já pegou esse problema ? Fatal Error F2063 Could not compile used unit 'ssl_openssl.pas'
  2. BigWings obrigado por responder. Imposto.PIS.CST := StrToCSTPIS(ok, DMNFE.cdsNfe_itensPIS_CST.AssTring); só que quando compilo da erro, função absoleta.
  3. Boa tarde a todos. Pessoal estou com problema para mudar cst do pis e cofins. -<PIS> -<PISAliq> <CST>01</CST> <vBC>0.00</vBC> <pPIS>0.0000</pPIS> <vPIS>0.00</vPIS> </PISAliq> </PIS> -<COFINS> -<COFINSAliq> <CST>01</CST> <vBC>0.00</vBC> <pCOFINS>0.0000</pCOFINS> <vCOFINS>0.00</vCOFINS> </COFINSAliq> </COFINS> </imposto> esta saindo no xml como esta acima empresa optante pelo simples nacional cst 01 tanto pis/cofins, preciso mudar a cst para 49 quando colo esta rotina da erro no envio. se não colocar nenhuma rotina ai sai como esta acima no xml, e funciona normal, porem se eu colocar a rotina a baixo da erro no enviao Imposto.PIS.CST := Variant(DMNFE.cdsNfe_itensPIS_CST.AssTring); que é = '49' Imposto.PIS.vBC := DMNFE.cdsNfe_itensVPROD.Asfloat; Imposto.PIS.pPIS := DMNFE.cdsNfe_itensPIS_PPIS.Asfloat; Imposto.PIS.vPIS := DMNFE.cdsNfe_itensPIS_VPIS.Asfloat; alguem sabe como posso resolver esse problema ? alguem tem um exemplo, como implementar de forma correta essa rotina? desde já agradeço a atenção.
  4. bom dia a todos. preciso fazer uma NF-e de devolução, nesta nota tem produtos com st, alguem pude me explicar como que faço este calculo, por favor? e se preciso somar com o total da nota?
  5. bom dia. não estou tendo nenhum problema na NFe. a duvida é que só sai as parcelas na danfe quando escolho a opção boleto. e mesmo escolhendo esta opção, no corpo da danfe sai duplica e não sai boleto.
  6. Boa tarde pessoal. Estou com uma duvida referente a informação de pagamento na nfe. a duvida é referente ao parcelamento da compra, somente quando escolho boleto que consigo parcelar a compra, é isso mesmo? na nfe sai como duplicata, e não boleto. outra forma de pagamento é o crédito loja, seria para venda com carnê? fiz um teste com essa opção crédito loja, mas não parcela nesta opção. atenciosamente Sergio Sartóri.
  7. boa tarde Daniel. obrigado por sua resposta, mas o problema não é tributação, é o credenciamento da SoftHouse no estado do paraná. como tenho pouca experiencia na aria de credenciamento da softhouse, não me atentei que preciso fazer o credenciamento da softhouse. so que achei estranho o prazo de trinta dias para ter a resposta da sefaz do parana´, com respeito do credenciamento da empresa! é isso mesmo?
  8. bom dia pessoal . Pessoal estou com duvida ? eu estou no estado de SÃO PAULO, instalei o meu sistema em uma empresa no PARANÁ para emissão da NFe, tenho que fazer algum cadastro no estado do paraná ? porque o escritório esta me pedindo o cnpj da sofhouse, codigo do sistema na receita estadual. alguem pode me orientar por favor.
  9. Bom dia Pessoal. estou com uma duvida? quando eu aplico o desconto na NFe, seja em valor ou porcentagem como eu devo proceder ? posso aplicar o desconto sobre o total da nota, sem fazer o rateio entre os produtos, ou tenho que dar o desconto e fazer o rateio nos produtos? qual é o correto fazer? desde já agradeço a atenção de todos.
  10. Boa tarde pessoal. Estou com uma duvida a respeito do cancelamento cfe sat. faço o cancelamento tudo certinho, gera o xml de cancelamento, imprime blz, mas o codigo que esta retornando do cancelamento é o 7010 e não o 7000, é isso mesmo ? no demo esta o codigo 7000 por isso minha duvida? estou usando o aparelho sat tanca sdk desenvolvimento.
  11. Vc pode me dar um exemplo como que eu passo esse parametro por favor?
  12. Bom dia pessoal . estou com problema no envia dos arquivos da carta de correção por email! so esta chegando no email do cliente o arquivo pdf o xml não. é assim mesmo no caso da carta de correção só envia o arquivo pdf ? /*********************************************************************** esse é o codigo //********************************************************************** vCaminho := 'C:\sgmsistemagestao\Nfe\CCe\'+vAn+'\'+vMe+'\'+pegaChaveRec+'-procEventoNFe.xml'; if vEmail1 <> '' then begin vEmail:= vEmail + ';' + vEMail1; end; if vEmail2 <> '' then begin vEmail:= vEmail + ';' + vEMail2; end; Para := vEmail; if not(InputQuery('Enviar Email', 'Digite o Email de destino', Para)) then exit; OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar; OpenDialog1.Title := 'Selecione ao Evento'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar; Evento := TStringList.Create; Evento.Clear; Evento.Add(OpenDialog1.FileName); frmListaNFe.ACBrNFe1.EventoNFe.Evento.Clear; frmListaNFe.ACBrNFe1.EventoNFe.LerXML(vCaminho); CC:=TstringList.Create; CC.Add('[email protected]'); //especifique um email válido CC.Add('[email protected]'); //especifique um email válido if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'SSL' then begin frmListaNFe.ACBrMail1.SetSSL := True; frmListaNFe.ACBrMail1.SetTLS := False; end else if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'TSL' then begin frmListaNFe.ACBrMail1.SetSSL := False; frmListaNFe.ACBrMail1.SetTLS := True; end else begin frmListaNFe.ACBrMail1.SetSSL := False; frmListaNFe.ACBrMail1.SetTLS := False; end; frmListaNFe.ACBrMail1.Host := DM_EMPRESA.cds_empresaSERVIDOR_EMAIL.AsString; frmListaNFe.ACBrMail1.Port := IntToStr(DM_EMPRESA.cds_empresaPORTA_EMAIL.AsInteger); frmListaNFe.ACBrMail1.Username := DM_EMPRESA.cds_empresaEMAIL.AsString; frmListaNFe.ACBrMail1.Password := DM_EMPRESA.cds_empresaSENHA_EMAIL.AsString; frmListaNFe.ACBrMail1.FromName := DM_EMPRESA.cds_empresaNOME.AsString; frmListaNFe.ACBrMail1.From := DM_EMPRESA.cds_empresaEMAIL.AsString; frmListaNFe.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email frmListaNFe.ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) // ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe'; frmListaNFe.ACBrNFe1.EnviarEmailEvento(Para, edtEmailAssunto.Text, mmEmailMsg.Lines, nil, // Lista com emails que serao enviado copias - TStrings nil, // Lista de anexos - TStrings nil // ReplyTo ); showMessage('Email enviado com sucesso.'); CC.Free; Evento.Free;
×
×
  • Create New...