LeoSlander

Segue em anexo a UnitACBrEPCBloco_D_Class.pasACBrEPCBloco_D_Class.dcu

procedure TBloco_D.WriteRegistroD200(RegD010: TRegistroD010) ; ....... case COD_SIT of sdfRegular : strCOD_SIT := '00'; sdfExtRegular : strCOD_SIT := '01'; sdfCancelado : strCOD_SIT := '02'; sdfExtCancelado : strCOD_SIT := '03'; sdfDenegado : strCOD_SIT := '04'; sdfInutilizado : strCOD_SIT := '05'; sdfComplementar : strCOD_SIT := '06'; sdfExtComplementar : strCOD_SIT := '07'; sdfEspecial : strCOD_SIT := '08'; end;

Estou com o mesmo problema!

Não, tudo tranquilo! Coloquei isso só porque se o valor passar de 999,00 na impressão engole as decimais. Só para quem for usar o exemplo mesmo! Agradeço a atenção!

Me desculpe, essa é a unit somente do exemplo mesmo! No exemplo nessa linha, alterar para 18!

Anexo! uFrmACBrConvenio115_PRN.zip

Pessoal, na unit uFrmACBrConvenio115_PRN linha 309 Antes estava: FCds.FieldDefs.Add('V_TOTAL', ftString, 6); //6 é muito pouco para esse campo, seguindo demais ajustado para 18 alterei para: FCds.FieldDefs.Add('V_TOTAL', ftString, 18); Desde já, agradeço!

Alguém poderia verificar para mim por favor o código na unit ACBrNFSeDANFSeFR: //linha 936 with Servico do begin FieldByName('ExigibilidadeISS').AsString := ExigibilidadeISSDescricao(ExigibilidadeISS); FieldByName('TipoRecolhimento').AsString := TipoRecolhimento; if Provedor = proAdm then begin FieldByName('CodigoMunicipio').AsString := CodigoMunicipio; FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(MunicipioIncidencia); end else begin FieldByName('CodigoMunicipio').AsString := CodCidadeToCidade(StrToIntDef(IfThen(CodigoMunicipio <> '', CodigoMunicipio, ''),0)); FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(MunicipioIncidencia); // Leo: mudei aqui //FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(StrToIntDef(CodigoMunicipio, 0)); // Antes: end; Comentei onde recebia o município de incidência com o mesmo código do município. Desde já agradeço a atenção!

Funcionou pra mim quando veículo de terceiro não informar a RNTRC (rodo.infANTT.RNTRC) da empresa, e sim somente do proprietário do veículo.

Bom dia! Também estou com o mesmo problema.

Segue o arquivo. Como é de teste esta com a advertência nas três linhas que contém o arquivo, pois os registros são para CPF. grato pela atenção! MG02728850000136210011703N01M.001 Na Unit uFrmACBrConvenio115_PRN possui a função SalvarPDF segue função: procedure TFrmACBrConvenio115_PRN.SalvarPDF; begin DoAddDataSet; { TODO : implementar } end; Esta função não esta salvando a impressão em PDF? Para salvar utilizei: procedure TFrmACBrConvenio115_PRN.SalvarPDF; begin DoAddDataSet; { TODO : implementar } RlReport.SaveToFile('diretorio\nomearquivo.pdf'); //salva o PDF end;

Bom dia! Essa: Advertência: 154 - CNPJ numericamente inválido é normal? Esta me informando essa advertência para cpf.

Obrigado, vou verificar.

MG02728850000136210011703N01D.001 MG02728850000136210011703N01I.001 MG02728850000136210011703N01M.001

Realmente, estou fazendo errado. Obrigado pela atenção! O arquivo mestre está gerando igual ao do destinatários. Sabe me dizer o que pode estar ocorrendo?