olá boa noite.
se estiver fazendo algo inapropriado peço de ante mão desculpas, não tenho intenção de transgredir quaisquer regras..
bem a minha duvida é a seguinte.
sou novo em programação delphi, a apenas 3 meses.. e venho estudando bastante e me dedicando, estou desenvolvendo meu primeiro sistema, e gostaria de implementar a rotina de emissão de notas fiscais e a entrada. estudando sobre isso me deparo com o seguinte erro:
procedure TfrmEmitirDanfe.actImprimirExecute(Sender: TObject);
begin
if edtArquivo.Text = '' then
begin
ShowMessage('Por Favor Selecione um Arquivo');
Abort;
end;
DMNFE.ACBrNFe1.NotasFiscais.Clear;
DMNFE.ACBrNFe1.NotasFiscais.LoadFromFile(edtArquivo.Text);
if DMNFE.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
begin
DMNFE.ACBrNFe1.WebServices.ConsultaDPEC.NFeChave:= dmNFE.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
DMNFE.ACBrNFe1.WebServices.ConsultaDPEC.Executar;
//
DMNFE.ACBrNFe1.DANFE.ProtocoloNFe:= DMNFE.ACBrNFe1.WebServices.ConsultaDPEC.nREgDPEC+''+
DateTimeToStr(DMNFE.ACBrNFe1.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC);
end;
dmNFE.ACBrNFe1.NotasFiscais.Imprimir;
end;
o erro da na linha que tem:
DMNFE.ACBrNFe1.WebServices.ConsultaDPEC.NFeChave:= dmNFE.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
não ta encontrando o ConsultaDPEC..
estou fazendo algo errado?
contado:
[email protected]
