Pesquisar na Comunidade
Showing results for tags 'H005'.
Encontrado 2 registros
-
Estou gerando sped de uma empresa, com bloco H sem movimento (IND_MOV = imSemDados). Porém está exigindo o bloco H005. Não consigo gerá-lo porque não gera sem valor. O que devo fazer? procedure TBloco_H.WriteRegistroH001; begin if Assigned(RegistroH001) then begin with RegistroH001 do begin Add( LFill( 'H001' ) + LFill( Integer(IND_MOV), 0 ) ) ; if IND_MOV = imComDados then =======================> aqui begin WriteRegistroH005(FRegistroH001); end; end; RegistroH990.QTD_LIN_H := RegistroH990.QTD_LIN_H + 1; end; end;
-
Ao gerar o bloco H o motivo do inventário não está aparecendo no arquivo txt ... with RegistroH005New do begin DT_INV := DT_FIN; //o valor informado no campo deve ser menor ou igual ao valor no campo DT_FIN do registro 0000 VL_INV := 1000; MOT_INV := miFinalPeriodo; /// = 1 ... dados do arquivo ... |H001|0| |H005|30112011|1000,00| -- falta um campo aqui MOT_INV |H010|00000000000001|UN|1,000|100,000000|100,00|0|||| ... Alguma sugestão ?
