Pesquisar na Comunidade
Showing results for tags 'bloco h'.
Encontrado 2 registros
-
Pessoal, é a primeira vez que uso o TACBrSPEDFiscal , pode ser algo muito básico. Procurei no fórum antes, mas não achei Preciso enviar para a contabilidade apenas o Bloco H, essa foi a solicitação da contabilidade. No exemplo do componente existe uma sucessão de blocos, sem gerar os outros blocos, é possível gerar apenas o bloco H ? Estou tendo um erro assinalado no código abaixo ( FFiscal.WriteBloco_H; <<<<< aqui ocorre a exceção ). var FFiscal: TACBrSPEDFiscal; begin FFiscal := TACBrSPEDFiscal.Create(nil) try FFiscal.Path := APath; FFiscal.Arquivo := AFile; FFiscal.LinhasBuffer := 5000; try with FFiscal.Bloco_H do begin with RegistroH001New do begin IND_MOV := imComDados; with RegistroH005New do begin DT_INV := GL_PERIODO; VL_INV := AVEstoque; MOT_INV := miFinalPeriodo; while not DM.sqlQry.Eof do begin with RegistroH010New do begin COD_ITEM := DM.sqlQry.FieldByName('CODIGO').AsString; case IsVazio(DM.sqlQry.FieldByName('UNIDADE').AsString) of False : UNID := DM.sqlQry.FieldByName('UNIDADE').AsString; True : UNID := 'PC'; end; QTD := DM.sqlQry.FieldByName('POSICAO').AsInteger; VL_UNIT := DM.sqlQry.FieldByName('PRECO_COMPRA').AsCurrency; VL_ITEM := DM.sqlQry.FieldByName('VALORITEM').AsCurrency; IND_PROP := piInformante; COD_PART := ''; TXT_COMPL := ''; COD_CTA := ACta; VL_ITEM_IR := DM.sqlQry.FieldByName('PRECO_COMPRA').AsCurrency; end; DM.sqlQry.Next; end; DM.sqlQry.Close; end; end; end; FFiscal.WriteBloco_H; <<<<< aqui ocorre a exceção . FFiscal.SaveFileTXT; finally FreeAndNil(FFiscal); end;
-
Boa noite a todos... Vocês conseguiram gravar valores no campo 11 do bloco H tag [H010] - campo: VL_ITEM_IR ? Mesmo seguindo orientações que sugerem ser o mesmo campo VL_ITEM com as devidas adições ou subtrações, mesmo informando zero ou algum outro numero fixo, o ACBrSPEDFiscal não está gravando o campo11. Desde já agradeço.
- 2 replies
-
- inventário
- bloco h
- (e 2 mais)