Sergio Back
-
Total de ítens
1 -
Registro em
-
Última visita
Últimos Visitantes
649 visualizações
Sergio Back's Achievements
-
With tb512 do begin First; prog.Properties.Max := tb512.RecordCount; While not Eof do begin DtmFisco.NFE.NotasFiscais.Clear; DtmFisco.NFE.NotasFiscais.LoadFromString(tb512.fieldByName('XML').AsString); If somentegerar.Checked then DtmFisco.NFE.NotasFiscais.Items[0].GravarXML() Else Begin DtmFisco.NFe.NotasFiscais.Assinar; DtmFISCO.NFE.Consultar; SRetorno := DtmFisco.NFE.WebServices.Consulta.cStat; If ((SRetorno = 100) Or (SRetorno = 101) Or (SRetorno = 150)) then DtmFisco.NFE.NotasFiscais.Items[0].GravarXML() Else lista.Items.Add(tb512.fieldByName('NOTFIS').AsString+' Motivo - '+DtmFisco.NFE.WebServices.Consulta.XMotivo); End; prog.Position := prog.Position + 1; Application.ProcessMessages; Next; End; prog.Positio