Ir para conteúdo
  • Cadastre-se

Rafael Maires Rangel

Membros
  • Total de ítens

    16
  • Registro em

  • Última visita

Últimos Visitantes

883 visualizações

Rafael Maires Rangel's Achievements

  1. estou com esse problema também, copie as dll para as pastas windows e da aplicação mas não deu certo. att
  2. Italo, existe algum outro mecanismo para descompactar o arquivo ? a sefaz disponibiliza algum sistema ?
  3. Desculpe a demora em retornar Este é o codigo que le a balança saturno e mais abaixo coloquei a modificação para quem quiser ler a balança toledo. estou usando o tcomport e alguns componentes jedi unit formLerBalancaOP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, inifiles, StdCtrls, Mask, Buttons, ExtCtrls, ScktComp, JvExMask, JvToolEdit, JvBaseEdits, ACBrBase, ACBrBAL, CPort; type TformLerBalanca = class(TForm) Panel1: TPanel; Panel2: TPanel; EditValor: TJvCalcEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; ComPort: TComPort; Panel3: TPanel; procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitSalvarClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure ComPortRxChar(Sender: TObject; Count: Integer); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } a, b, valor, s: string; confirmar_peso, alterna: Boolean; end; var formLerBalanca: TformLerBalanca; Ini: TIniFile; Port, BautRate, DataBits, StopBits, Parity, FlowControl, Modelo: variant; implementation {$R *.dfm} procedure TformLerBalanca.FormShow(Sender: TObject); begin Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\maitech.ini'); Port := Ini.ReadString('balanca', 'Port', ''); BautRate := Ini.ReadString('balanca', 'BautRate', ''); DataBits := Ini.ReadString('balanca', 'DataBits', ''); StopBits := Ini.ReadString('balanca', 'StopBits', ''); Parity := Ini.ReadString('balanca', 'Parity', ''); FlowControl := Ini.ReadString('balanca', 'FlowControl', ''); Modelo := Ini.ReadString('balanca', 'Modelo', ''); Self.Caption := 'Leitura Via cabo Serial Porta ' + Port; { configura a balanca } ComPort.Port := Port; ComPort.BaudRate := StrToBaudRate(BautRate); ComPort.DataBits := StrToDataBits(DataBits); ComPort.StopBits := StrToStopBits(StopBits); ComPort.Parity.Bits := StrToParity(Parity); ComPort.FlowControl.FlowControl := StrToFlowControl(FlowControl); // Modelo:=Ini.ReadString('balanca','Modelo',''); { final da balanca } try ComPort.Open; except on e: exception do begin ShowMessage('Erro ao inicializar a balança ' + e.Message); end; end; end; procedure TformLerBalanca.FormClose(Sender: TObject; var Action: TCloseAction); begin ComPort.Connected := false; ComPort.Close; end; procedure TformLerBalanca.FormCreate(Sender: TObject); var r: TRect; osv: TOSVersionInfo; begin scaled := true; osv.dwOSVersionInfoSize := sizeof(osv); GetVersionEx(osv); if osv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then begin SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0); Left := ((r.right - r.Left) - (Width)) div 2; Top := ((r.bottom - r.Top) - (55 + Height)) div 2; end else begin Left := (GetSystemMetrics(SM_CXSCREEN) - (Width)) div 2; Top := (GetSystemMetrics(SM_CYSCREEN) - (55 + Height)) div 2; end; end; procedure TformLerBalanca.BitSalvarClick(Sender: TObject); begin confirmar_peso := true; Close; end; procedure TformLerBalanca.ComPortRxChar(Sender: TObject; Count: Integer); var Str: String; begin try ComPort.ReadStr(Str, Count); EditValor.Text := Copy(Str, 1, 7); except on e: exception do begin Panel3.Caption := '...tentando estabilizar'; end; end; end; procedure TformLerBalanca.BitBtn2Click(Sender: TObject); begin confirmar_peso := false; Close; end; end. // Balança Toledo // procedure TformLerBalanca.ComPort1RxChar(Sender: TObject; Count: Integer); var str:string; begin ComPort1.ReadStr(Str, Count); total:=total+str; if length(total)=18 then begin editvalor.text:=copy(total,5,6); total:=''; str:=''; end; end; Arquivo INI [balanca] Port=COM1 BautRate=4800 DataBits=5 StopBits=1 Parity=Even FlowControl=None Modelo=Saturno
  4. Andersonh, grato pela resposta. Vejo que voce tambem é do RS. Agora me pergunto como meus clientes que são produtores rurais vão fazer essas notas, apenas pelo site da sefaz ? Será que tem alguma previsão de eles poderem realizar essa operação sem ter que entrar no site da sefaz para emitir essa NFE-A?
  5. Bom dia Recebi um xml de uma nota fiscal avulsa, emitida no site da sefaz rs. Efetuei a leitura do xml dela no monitor e gerou o ini abaixo. Minhas duvidas que são : 1 - Eu posso fazer uma nota fiscal avulsa pelo acbr ? 2 - Se sim, como preencho os dados de numero e serie da nfe avulsa ? Observe os campos [avulsa] eles deverão ficar como o ini abaixo ? att
  6. Bom dia Tambem nao consegui realizar a emissao da nfe com e-cpf. No meu caso é produtor rural do rs. A emissão fiscal é avulsa para produtor rural e quando tento gerar pelo acbr da essa mgs de sem CNPJ vinculado . Se algum tiver alguma dica ficamos grato
  7. Putz esqueci da tag [ do icms , perdi uma manha inteira !
  8. Rafael Maires Rangel

    Cts=51

    Bom dia Estou gerando uma nfe e a CST é igual a 51. So que quando abro o xml a CST esta 00 [Produto001] codigo=121 cEAN=121 descricao=ARROZ EM CASCA IRGA 426 NCM=10061092 CFOP=1905 unidade=kg quantidade=19.690,00 valorunitario=1,00 valortotal=0,00 vFrete=0,00 vDesc=0,00 vOutro=0,00 infAdProd= ICMS001] Origem=0 CST=51 pRedBC=0,00 ValorBase=0,00 Aliquota=0,00 Valor=0,00 [Total] BaseICMS=0,00 ValorICMS=0,00 BaseICMSSubstituicao=0,00 ValorICMSSubstituicao=0,00 ValorProduto=19.690,00 ValorFrete=0,00 ValorSeguro=0,00 ValorDesconto=0,00 ValorPIS=0,00 ValorCOFINS=0,00 ValorOutrasDespesas=0,00 ValorNota=19.690,00 [Transportador] FretePorConta=9 [Volume001] Quantidade=19690 Especie= Marca= PesoLiquido=0,00 PesoBruto=0,00 [DadosAdicionais] Fisco= NFP: 3930 Peso Bruto:19.690 nº do ticket 88 Complemento= NFP: 3930 Peso Bruto:19.690 nº do ticket 88 - <det nItem="1"> - <prod> <cProd>121</cProd> <cEAN /> <xProd>ARROZ EM CASCA IRGA 426</xProd> <NCM>10061092</NCM> <CFOP>1905</CFOP> <uCom>kg</uCom> <qCom>0.0000</qCom> <vUnCom>1.0000000000</vUnCom> <vProd>0.00</vProd> <cEANTrib /> <uTrib>kg</uTrib> <qTrib>0.0000</qTrib> <vUnTrib>1.0000000000</vUnTrib> <indTot>1</indTot> </prod> - <imposto> - <ICMS> - <ICMS00> <orig>0</orig> <CST>00</CST> <modBC>0</modBC> <vBC>0.00</vBC> <pICMS>0.00</pICMS> <vICMS>0.00</vICMS> </ICMS00> </ICMS> - <PIS> o que pode ser ? estou usando o acbrmonitornfe 0.7.7.1
  9. Ok grato pela resposta. Estao os dois certificados na mesma maquina: o A3 cartao e o A3 Token. Existe alguma possibilidade de um "atrapalhar" o outro ou da para usar a selecao de certificado pelo acbr na hora de emitir a nfe sem problemas?
  10. Boa noite a todos Tenho um cliente que é produtor rural e ele tem e-cpf para sua propriedades. é possivel emitir com acbrmonitor uma nfe dele ? lembrando que com o token e-cnpj esta funcionando. att
  11. Ola a todos eu tenho o manual da balança e estou implementando a balança rodoviária da saturno. Estou usando o componente tcomport. Não tem mistério. Ja consegui captar o peso certo, so tenho que tirar algum bugs. Assim que terminar o codigo eu post. Por enquanto segue o manual de integração da balança rodoviária. 12-SB (1).doc
×
×
  • 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.