Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.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

marcionicolao

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutral

About marcionicolao

  • Rank
    Novato

Contact Methods

  • Website URL
    http://www.amltda.com.br

Profile Information

  • Sexo
    Masculino
  • Localização
    canoas/rs

Recent Profile Visitors

460 profile views
  1. Ver manual de orientação - ver o Manual de Orientação Contribuinte v 6.00 - Minuta - pag 187 cNF = Código Numérico que compõe a Chave de Acesso Código numérico que compõe a Chave de Acesso. Número aleatório gerado pelo emitente para cada NF-e para evitar acessos indevidos da NF-e. (v2.0). No meu caso eu não informo, ele gera um numero aleatorio que fica no xml, mais uma proteção para consultas indevidas.
  2. Boa noite, PARA: Rejeição: Grupos Veiculo Transporte e Reboque não devem ser informados if TbNotaFiscal.FieldByName('CFOP').AsString[1] in ['2', '6'] then begin // não informar nada, testado e homologado end else begin Transp.Transporta.xNome := TbNotaFiscal.FieldByName('NOMETRANSPORTADOR').AsString; Transp.Transporta.CNPJCPF := DeixaSoNumero(TbNotaFiscal.FieldByName('CNPJ_TRANSP').AsString); Transp.Transporta.xEnder := TbNotaFiscal.FieldByName('ENDERECOTRANSPORTADOR').AsString; Transp.Transporta.IE := TbNotaFiscal.FieldByName('CNPJCPF').AsString; Transp.Transporta.xMun := TbNotaFiscal.FieldByName('MUNICIPIOTRANSPORTADOR').AsString; Transp.Transporta.UF := TbNotaFiscal.FieldByName('UF1TRANSPORTADOR').AsString; Transp.Vol.Add.qVol := TbNotaFiscal.FieldByName('qUANTIDADE').asInteger; Transp.Vol.Add.esp := TbNotaFiscal.FieldByName('ESPECIE').asString; Transp.Vol.Add.marca := TbNotaFiscal.FieldByName('MARCA').asString; If TbNotaFiscal.FieldByName('PESOLIqUIDO').asString <> '' then Transp.Vol.Add.pesoL := strtocurr(DeixaSoNumero(TbNotaFiscal.FieldByName('PESOLIqUIDO').asString)); If TbNotaFiscal.FieldByName('PESOBRUTO').asString <> '' then Transp.Vol.Add.pesoB := strtocurr(DeixaSoNumero(TbNotaFiscal.FieldByName('PESOBRUTO').asString)); Transp.veicTransp.placa := TbNotaFiscal.FieldByName('PLACAVEICULO').AsString; Transp.veicTransp.placa := TiraEspacos(Transp.veicTransp.placa); Transp.veicTransp.UF := TbNotaFiscal.FieldByName('UF1TRANSPORTADOR').AsString; end; Function TiraEspacos(X1: String): String; Var f: integer; aux1, aux2, aux3: String; begin aux2 := ''; aux3 := TrimLeft(X1); For f := 1 to Length(aux3) do Begin if aux3[f] = ' ' then continue; aux2 := aux2 + aux3[f]; End; result := aux2; End;
  3. Atualizei mas ainda da erro [dcc32 Error] unt_Principal.pas(530): E2003 Undeclared identifier: 'PathCan' [dcc32 Error] unt_Principal.pas(531): E2003 Undeclared identifier: 'PathCCe' [dcc32 Error] unt_Principal.pas(533): E2003 Undeclared identifier: 'SalvarCCeCanEvento' [dcc32 Error] unt_Principal.pas(555): E2003 Undeclared identifier: 'PathSalvar' [dcc32 Warning] unt_Principal.pas(938): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] unt_Principal.pas(942): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] unt_Principal.pas(946): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Error] unt_Principal.pas(1403): E2003 Undeclared identifier: 'SaveToFile' [dcc32 Warning] unt_Principal.pas(1414): W1057 Implicit string cast from 'RawByteString' to 'string' [dcc32 Error] unt_Principal.pas(1415): E2003 Undeclared identifier: 'PathSalvar' [dcc32 Error] unt_Principal.pas(1440): E2003 Undeclared identifier: 'SaveToFile'
  4. marcionicolao

    Csosn

    http://www.flexdocs.com.br/guianfe/gerarNFe.detalhe.imp.ICMS.html
  5. Cancelamento NFe - Erro: Desativado de acordo com ajuste SINIEF 16/12. Usar o evento do cancelamento (NT 2011/006) Fiz a atualização na pasta c:\Program Files\Borland\BDS\3.0\lib\ACBR e depois compilei o projeto e na hora de cancelar ele da uma mensagem assim. Tenho um software proprio e essa chamada: ======================================================================= procedure TForm_NotaFiscal.BitBtn61Click(Sender: TObject); var lMotivo : string; begin // busca a nota certa no banco TbTabela.Locate('codigo',QryPesquisa.fieldbyname('codigo').asinteger,[]); if Application.MessageBox(pchar('Cancelamenta NF-e enviada a SEFAZ ?'),pchar('Aviso'),4+32+0)=Idno then exit; lMotivo := InputBox('Cancelamento de NFe','Informe a Justificativa:',''); if (lMotivo <> EmptyStr)then begin if Application.MessageBox('Deseja realmente cancelar esta NFe ?','Cancelamento de NFe',mb_yesno + MB_ICONQUESTION) = idYes then begin AquaNFe.CancelarNFe(TbTabelaNFE_CHAVEACESSO.AsString, TbTabelaNFE_PROTOCOLO.AsString, lMotivo); end; end else begin showmessage('Indentificar o motivo porque foi cancelada a NFE.'); exit; end; end; ======================================================================= SEMPRE FUNCIONOU SEM PROBLEMAS, MAS AGORA DA ESSA MENSAGEM, QUE POSTEI NO INICIO.... ALGUEM TEM A SOLUÇÃO
×
×
  • Create New...